9. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/29/2018 2:55:52 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

9.1 Files compared

# Location File Last Modified
1 EPIP.zip\PSS_1.0_225_PSB_3.0_103 _Aug_2018 PSS_1.0_225 - Routine PSBORT.docx Tue Aug 28 12:14:52 2018 UTC
2 EPIP.zip\PSS_1.0_225_PSB_3.0_103 _Aug_2018 PSS_1.0_225 - Routine PSBORT.docx Tue Aug 28 12:59:50 2018 UTC

9.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 396
Changed 1 2
Inserted 0 0
Removed 0 0

9.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

9.4 Active regular expressions

No regular expressions were active.

9.5 Comparison detail

  1   PSBORT (Ne w)
  2   PSBORT * *   183 LINE S,  (total  8766, com ments 754)  BYTES     Page 1
  3           RS UM: old 19 350916, ne w 69496290
  4             UCI: VISTA ,ROU      Site: TEST .CHEYENNE. MED. DNS     AUG 3,2018 @09:52
  5  
  6     1 PSBORT  ;AITC/CR  - REPORT F OR RESPIRA TORY THERA PY MEDS ;6 /29/18 2:1 8pm
  7     2         ;;3.0;BAR  CODE MED  ADMIN;**10 3**;Mar 20 04
  8     3         ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  9     4         ;
  10     5         ;SLC/KB   Modified P SBOMM for  Resp Thera py Meds re port
  11     6         ;
  12     7         ; Referen ce/IA
  13     8         ; EN^PSJB CMA/2828    (private)
  14     9         ; EN^PSJB CMA2/2830   (private)
  15    10         ; ^DPT/10 035         (supporte d)
  16    11         ;======== ========== ========== ========== ========== =========
  17    12 EN      ; called  from DQ^PS BO
  18    13         N PSBSTRT ,PSBSTOP,D FN,PSBODAT E,PSBFLAG, PSBCNT
  19    14         K ^TMP("P SJ",$J),^T MP("PSB",$ J),^TMP("P SB1",$J)
  20    15         S PSBSTRT =$P(PSBRPT (.1),U,6)+ $P(PSBRPT( .1),U,7)-. 0000001
  21    16         S PSBSTOP =$P(PSBRPT (.1),U,6)+ $P(PSBRPT( .1),U,9)
  22    17         S PSBODAT E=$P(PSBRP T(.1),U,6)
  23    18         F DFN=0:0  S DFN=$O( ^TMP("PSBO ",$J,DFN))  Q:'DFN  D  EN1
  24    19         D PRINT
  25    20         K ^TMP("P SJ",$J),^T MP("PSB",$ J),^TMP("P SBO",$J)
  26    21         Q
  27    22         ;
  28    23 EN1     ; expects  DFN,PSBST RT,PSBSTOP  from EN
  29    24         N PSBGBL, PSBHDR,PSB X,PSBDFN,P SBDT,PSBEV DT,PSBHOUR
  30    25         K ^TMP("P SJ",$J) S  PSBEVDT=PS BSTRT
  31    26         D EN^PSJB CMA(DFN,PS BSTRT)
  32    27         Q:^TMP("P SJ",$J,1,0 )=-1
  33    28         S PSBX=""
  34    29         F  S PSBX =$O(^TMP(" PSJ",$J,PS BX)) Q:PSB X=""  D
  35    30         .Q:^TMP(" PSJ",$J,PS BX,0)=-1   ; no Order s
  36    31         .D CLEAN^ PSBVT
  37    32         .D PSJ^PS BVT(PSBX)
  38    33         .; check  for a resp iratory th erapy drug
  39    34         .Q:$$GET1 ^DIQ(50.7, PSBOIT,15, "I")'="Y"   ;not a re sp terapy  drug, PSBO IT set in  ^PSBVT abo ve
  40    35         .Q:PSBIVT ="A"  ; No  Admix or  Hyp.
  41    36         .Q:PSBIVT ="H"
  42    37         .I PSBIVT ["S",PSBIS YR'=1 Q  ;     allow  intermitte nt syringe  only
  43    38         .I PSBIVT ["C",PSBCH EMT'="P",P SBISYR'=1  Q
  44    39         .I PSBIVT ["C",PSBCH EMT="A" Q   ;     all ow Chemo w ith interm ittent syr inge or Pi ggyback ty pe only
  45    40         .Q:PSBONX ["P"  ;no  pending or ders
  46    41         .I PSBSCH T="C" D  Q   ; Only C ontinuous
  47    42         ..S (PSBY ES,PSBODD) =0
  48    43         ..S PSBDO W="SU^MO^T U^WE^TH^FR ^SA" F I=1 :1:7 I $P( PSBDOW,"^" ,I)=$E(PSB SCH,1,2) S  PSBYES=1
  49    44         ..I PSBYE S,PSBADST= "" Q
  50    45         ..F I=1:1  Q:$P(PSBS CH,"-",I)= ""  I $P(P SBSCH,"-", I)?2N!($P( PSBSCH,"-" ,I)?4N) S  PSBYES=1
  51    46         ..S PSBFR EQ=$$GETFR EQ^PSBVDLU 1(DFN,PSBO NX)
  52    47         ..I PSBFR EQ="O" S P SBYES=1
  53    48         ..I 'PSBY ES,PSBADST ="",PSBFRE Q<1 Q
  54    49         ..I (PSBF REQ#1440'= 0),(1440#P SBFREQ'=0)  S PSBODD= 1
  55    50         ..I PSBOD D,PSBADST' ="" Q
  56    51         ..Q:PSBOS TS["D"  ;d iscontinue d
  57    52         ..Q:PSBNG F  ; marke d DO NOT G IVE
  58    53         ..Q:PSBOS TS="N"
  59    54         ..Q:PSBSM   ;Self me d
  60    55         ..S PSBCA DM=0
  61    56         ..I PSBAD ST="" S PS BADST=$$GE TADMIN^PSB VDLU1(DFN, PSBONX,PSB OST,PSBFRE Q,PSBEVDT)  Q:PSBADST =""  S PSB CADM=1
  62    57         ..E  K ^T MP("PSB",$ J,"GETADMI N") S ^TMP ("PSB",$J, "GETADMIN" ,0)=PSBADS T
  63    58         ..; inval id admin t imes
  64    59         ..F Y=1:1 :$L(PSBADS T,"-") D
  65    60         ...Q:($P( PSBADST,"- ",Y)'?2N)& ($P(PSBADS T,"-",Y)'? 4N)
  66    61         ..; below  is (Order  Start Dat e, Report  Date, Sche dule)
  67    62         ..Q:'$$OK AY^PSBVDLU 1(PSBOST,P SBODATE,PS BSCH,PSBON X,$P(^TMP( "PSJ",$J,P SBX,3),U,2 ),PSBFREQ, PSBOSTS)   ; Screens  QOD 
  68                type stu ff
  69    63         ..K PSBOA CTL,TMP("P SB1",$J) D  EN^PSJBCM A2(DFN,PSB ONX,1) I ^ TMP("PSJ2" ,$J,0)'=1  M PSBOACTL =^TMP("PSJ 2",$J) K ^ TMP(
  70                "PSJ2",$ J)
  71    64         ..F PSBXX =0:1 Q:'$D (^TMP("PSB ",$J,"GETA DMIN",PSBX X))  S PSB ADST=$G(^T MP("PSB",$ J,"GETADMI N",PSBXX))  D
  72    65         ...F Y=1: 1:$L(PSBAD ST,"-") D
  73    66         ....S PSB DT=+("."_$ P(PSBADST, "-",Y))+(P SBSTRT\1)
  74    67         ....Q:PSB DT<PSBOST    ; order  Start Date
  75    68         ....Q:PSB DT'<PSBOSP   ; order  Stop Date
  76    69         ....Q:PSB DT<PSBSTRT   ; report  Window
  77    70         ....Q:PSB DT>PSBSTOP   ; report  Window
  78    71         ....I $D( ^PSB(53.79 ,"AORD",DF N,PSBONX,P SBDT)) D   I PSBSTUS' ="N",PSBST US'="M" Q   ; if it i s on the l og quit, c onti
  79                nue if s tatus is " NOT GIVEN"  or "MISSI NG"
  80    72         .....S PS BINDX=$O(^ PSB(53.79, "AORD",DFN ,PSBONX,PS BDT,"")),P SBSTUS=$P( ^PSB(53.79 ,PSBINDX,0 ),U,9)
  81    73         ....S ^TM P("PSB",$J ,DFN,PSBDT ,PSBOITX,P SBONX)=""
  82    74         ....D UDC ONT
  83    75         ....I PSB FLAG=1 S ^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX)=" (On Hold)  "_$$FMTE^X LFDT(PSBHD DT)
  84    76         ....I PSB FLAG=2 S ^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX)=" (On Hold)  "_$$FMTE^X LFDT(PSBHD DT)_"  "_" (Off Hold)  "_$
  85                $FMTE^XL FDT(PSBUNH D) Q
  86    77         .K PSBHDD T,PSBUNHD, ^TMP("PSB1 ",$J)
  87    78         .I PSBSCH T="O" D  Q
  88    79         ..Q:PSBOS TS["D"!(PS BOSTS="N")   ; discon tinued
  89    80         ..Q:PSBNG F  ; Marke d DO NOT G IVE
  90    81         ..Q:PSBSM   ;self me d
  91    82         ..; is th e One Time  Given?
  92    83         ..Q:PSBOS P=PSBOST    ;expired  one-time
  93    84         ..Q:PSBOS T'<PSBSTOP
  94    85         ..Q:PSBOS P<PSBSTRT
  95    86         ..S (PSBG VN,X,Y)=""
  96    87         ..F  S X= $O(^PSB(53 .79,"AOIP" ,DFN,PSBOI T,X),-1) Q :'X  D
  97    88         ...F  S Y =$O(^PSB(5 3.79,"AOIP ",DFN,PSBO IT,X,Y),-1 ) Q:'Y  D
  98    89         ....I $P( ^PSB(53.79 ,Y,.1),U)= PSBONX,$P( ^PSB(53.79 ,Y,0),U,9) '="N",$P(^ PSB(53.79, Y,0),U,9)' ="M" S PSB GVN=1,(X,Y )=0
  99    90         ..; how l ong does O ne Time re main on th e this rep ort ??
  100    91         ..D NOW^% DTC
  101    92         ..S PSBRM N=1
  102    93         ..I PSBSC HT="O",PSB OSP'=PSBOS T&(%>PSBOS P) S PSBRM N=0
  103    94         ..D:('PSB GVN)&(PSBR MN)
  104    95         ...S VAR= ""
  105    96         ...K ^TMP ("PSJ2",$J ),^TMP("PS B1",$J),PS BOACTL D E N^PSJBCMA2 (DFN,PSBON X,1) I ^TM P("PSJ2",$ J,0)'=1 D
  106    97         ....M PSB OACTL=^TMP ("PSJ2",$J )
  107    98         ....D UDO NE
  108    99         ....I PSB FLAG=1 S V AR="(On Ho ld) "_$$FM TE^XLFDT(P SBHDDT)
  109   100         ....I PSB FLAG=2 S V AR="(On Ho ld) "_$$FM TE^XLFDT(P SBHDDT)_"   (Off Hold ) "_$$FMTE ^XLFDT(PSB UNHD)
  110   101         ...S VAR= VAR_U_$TR( $$FMTE^XLF DT(PSBOST, 2),"@"," " )
  111   102         ...S VAR= VAR_U_$TR( $$FMTE^XLF DT(PSBOSP, 2),"@"," " )
  112   103         ...S $P(^ TMP("PSB", $J,DFN,"** * ONE-TIME  ***",PSBO ITX,PSBONX ),U,1,4)=V AR
  113   104         ...K PSBH DDT,PSBUNH D,^TMP("PS B1",$J),PS BCNT
  114   105         K PSBOACT L
  115   106         Q
  116   107         ;
  117   108 PRINT   ; print m eds stored  in ^TMP(" PSB",$J,DF N,....
  118   109         N DFN,PSB HDR,PSBDT, PSBOITX,PS BONX
  119   110         ; print b y Ward
  120   111         D:$P(PSBR PT(.1),U,1 )="W"
  121   112         .S PSBHDR (1)="RESPI RATORY THE RAPY MEDIC ATIONS  fr om "_$$FMT E^XLFDT($P (PSBRPT(.1 ),U,6)+$P( PSBRPT(.1) ,U,7))_" t hru 
  122                "_$$FMTE ^XLFDT($P( PSBRPT(.1) ,U,6)+$P(P SBRPT(.1), U,9))
  123   113         .W $$WRDH DR()
  124   114         .I '$O(^T MP("PSB",$ J,0)) W !, "No Medica tions Foun d" Q
  125   115         .S PSBSOR T=$P(PSBRP T(.1),U,5)
  126   116         .F DFN=0: 0 S DFN=$O (^TMP("PSB ",$J,DFN))  Q:'DFN  D
  127   117         ..S PSBIN DX=$S(PSBS ORT="P":$P (^DPT(DFN, 0),U),1:$G (^DPT(DFN, .1))_" "_$ G(^(.101)) )
  128   118         ..S:PSBIN DX="" PSBI NDX=$P(^DP T(DFN,0),U )
  129   119         ..S ^TMP( "PSB",$J," B",PSBINDX ,DFN)=""
  130   120         .S PSBIND X=""
  131   121         .F  S PSB INDX=$O(^T MP("PSB",$ J,"B",PSBI NDX)) Q:PS BINDX=""   D
  132   122         ..F DFN=0 :0 S DFN=$ O(^TMP("PS B",$J,"B", PSBINDX,DF N)) Q:'DFN   D
  133   123         ...W ! ;  line break  between p atients
  134   124         ...S PSBD T=""
  135   125         ...F  S P SBDT=$O(^T MP("PSB",$ J,DFN,PSBD T)) Q:PSBD T=""  D
  136   126         ....;W !   ; line br eak betwee n admin ti mes, doubl e-spacing  of output
  137   127         ....S PSB OITX=""
  138   128         ....F  S  PSBOITX=$O (^TMP("PSB ",$J,DFN,P SBDT,PSBOI TX)) Q:PSB OITX=""  D
  139   129         .....S PS BONX=""
  140   130         .....F  S  PSBONX=$O (^TMP("PSB ",$J,DFN,P SBDT,PSBOI TX,PSBONX) ) Q:PSBONX =""  D
  141   131         ......I $ Y>(IOSL-5)  W $$WRDHD R()
  142   132         ......W ! ,+PSBONX,$ S(PSBONX[" U":"UD",PS BONX["V":" IV",1:"")
  143   133         ......W ? 10,$G(^DPT (DFN,.101) ,"**")
  144   134         ......W ? 30,$P(^DPT (DFN,0),U) ," (",$E($ P(^(0),U,9 ),6,9),")"
  145   135         ......I P SBDT["ONE- TIME" D  Q
  146   136         .......W  !,PSBDT,?3 0,PSBOITX, " ",$P(^TM P("PSB",$J ,DFN,PSBDT ,PSBOITX,P SBONX),U,1 )
  147   137         .......W  !,"Start D ate/Time:   ",?30,$P( ^TMP("PSB" ,$J,DFN,PS BDT,PSBOIT X,PSBONX), U,2)
  148   138         .......W  !,"Stop Da te/Time:   ",?30,$P(^ TMP("PSB", $J,DFN,PSB DT,PSBOITX ,PSBONX),U ,3)
  149   139         .......;W  !  ; stop  double sp ace
  150   140         ......W ? 74,$S(PSBD T:$$FMTE^X LFDT(PSBDT ,2),1:PSBD T),?90,PSB OITX
  151   141         ......W "  ",^TMP("P SB",$J,DFN ,PSBDT,PSB OITX,PSBON X)
  152   142         Q
  153   143         ;
  154   144 WRDHDR () --
  155                ; ward h eader
  156   145         D WARD^PS BOHDR1(PSB WRD,.PSBHD R)
  157   146         W !,"Ord  Num",?10," Room-Bed", ?30,"Patie nt",?74,"A dmin Date/ Time",?90, "Medicatio n"
  158   147         W !,$TR($ J("",IOM), " ","-")
  159   148         Q ""
  160   149         ;
  161   150 UDCONT  ;
  162   151         S PSBFLAG =0,J=1
  163   152         K ^TMP("P SB1",$J)
  164   153         F I=1:1:$ P(PSBOACTL (0),U,4) D
  165   154         . I $P($G (PSBOACTL( I,1)),U,4) ["ON HOLD" !($P($G(PS BOACTL(I,1 )),U,4)="H OLD") S ^T MP("PSB1", $J,DFN,J)= "HOLD"_U_$ E($P
  166                ($G(PSBO ACTL(I,1)) ,U,1),1,12 )
  167   155         . I $P($G (PSBOACTL( I,1)),U,4) ["TAKEN OF F HOLD"!($ P($G(PSBOA CTL(I,1)), U,4)["UNHO LD") S $P( ^TMP("PSB1 ",$J,DFN,J ),U,
  168                3)="OFF  HOLD"_U_$E ($P($G(PSB OACTL(I,1) ),U,1),1,1 2),J=J+1
  169   156         D:$D(^TMP ("PSB1",$J ,DFN))&($P (PSBOACTL( 0),U,4)'=1 )
  170   157         .S J=0 F   S J=$O(^T MP("PSB1", $J,DFN,J))  Q:'J  Q:P SBFLAG  D
  171   158         ..S PSBHD DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 2)
  172   159         ..S PSBHD ST=$P(^TMP ("PSB1",$J ,DFN,J),U)
  173   160         ..S PSBOF DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 4)
  174   161         ..S PSBOF ST=$P(^TMP ("PSB1",$J ,DFN,J),U, 3)
  175   162         ..I PSBDT >PSBHDDT,P SBHDST="HO LD",PSBOFS T'="" I PS BDT<PSBOFD T,PSBOFST= "OFF HOLD"  S PSBFLAG =2,PSBUNHD =PSBOFDT
  176   163         ..I PSBDT >PSBHDDT,P SBHDST="HO LD",PSBOFS T="" S PSB FLAG=1
  177   164         K PSBCNT, TMP("PSB1" ,$J)
  178   165         Q
  179   166         ;
  180   167 UDONE   ;
  181   168         S PSBFLAG =0,J=1
  182   169         F I=1:1:$ P(PSBOACTL (0),U,4) D
  183   170         .I $P($G( PSBOACTL(I ,1)),U,4)[ "ON HOLD"! ($P($G(PSB OACTL(I,1) ),U,4)="HO LD") S ^TM P("PSB1",$ J,DFN,J)=" HOLD"_U_$E ($P(
  184                $G(PSBOA CTL(I,1)), U,1),1,12)
  185   171         .I $P($G( PSBOACTL(I ,1)),U,4)[ "TAKEN OFF  HOLD"!($P ($G(PSBOAC TL(I,1)),U ,4)["UNHOL D") S $P(^ TMP("PSB1" ,$J,DFN,J) ,U,3
  186                )="OFF H OLD"_U_$E( $P($G(PSBO ACTL(I,1)) ,U,1),1,12 ),J=J+1
  187   172         D:$D(^TMP ("PSB1",$J ,DFN))&($P (PSBOACTL( 0),U,4)'=1 )
  188   173         .S J="" F   S J=$O(^ TMP("PSB1" ,$J,DFN,J) ) Q:'J  Q: PSBFLAG  D
  189   174         ..S PSBHD DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 2)
  190   175         ..S PSBHD ST=$P(^TMP ("PSB1",$J ,DFN,J),U)
  191   176         ..S PSBOF DT=$P(^TMP ("PSB1",$J ,DFN,J),U, 4)
  192   177         ..S PSBOF ST=$P(^TMP ("PSB1",$J ,DFN,J),U, 3)
  193   178         ..I PSBOS TS="A",PSB HDST="HOLD ",PSBOFST' ="",'$D(^T MP("PSB1", $J,DFN,J+1 )) I PSBST OP>PSBOFDT ,PSBOFST=" OFF HOLD"  S PS
  194                BFLAG=2, PSBUNHD=PS BOFDT
  195   179         ..I PSBOS TS="A",PSB HDST="HOLD ",PSBOFST' ="",PSBOFD T'<PSBSTOP  S PSBFLAG =1
  196   180         ..I PSBOS TS="H",PSB HDST="HOLD ",'$D(^TMP ("PSB1",$J ,DFN,J+1))  S PSBFLAG =1
  197   181         K PSBCNT, ^TMP("PSB1 ",$J)
  198   182         Q
  199   183         ;