8. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/29/2018 2:55:51 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.

8.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 PSBMMRB.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 PSBMMRB.docx Tue Aug 28 12:58:43 2018 UTC

8.2 Comparison summary

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

8.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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

  1   PSBMMRB (N ew)
  2   PSBMMRB *  *  143 LIN ES,  (tota l 5207, co mments 114 8) BYTES   Page 1
  3           RS UM: old 76 43512, new  27545585
  4             UCI: VISTA ,ROU      Site: TEST .CHEYENNE. MED. DNS     JUL 30,201 8@12:29
  5  
  6     1 PSBMMR B ;AITC/CR  - REPORT  FOR RESPIR ATORY THER APY MEDS ;  7/30/18 1 1:19am
  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         ; Referen ce/ICR #
  11     6         ; WIN^DGP MDDCF/1246  (supporte d)
  12     7         ; File #2 11.4/1529   (private)
  13     8         ; $$GET1^ DIQ/2056    (supporte d)
  14     9         ; WARD^NU RSUT5/3052  (supporte d)
  15    10         ; ^DG(40. 8/2817      (controll ed)
  16    11         ; ^DG(43/ 6812        (private)
  17    12         ; File #4 4/10040     (supporte d)
  18    13         ; ^VA(200 /10060      (supporte d)
  19    14         ; %ZTLOAD /10063      (supporte d)
  20    15         ; %ZIS/10 086         (supporte d)
  21    16         ; %ZISC/1 0089        (supporte d)
  22    17         ;
  23    18         ;======== ========== ========== ========== ========== ========== =======
  24    19 EN1     ;
  25    20         W !!,"Rep ort for Re spiratory  Therapy Me dications" ,!
  26    21         N D0,DIC, PSBDATA,PS BDPTR,PSBD IV,PSBDVNM ,PSBNAME,P SBMUDV,PSB STIEN,X,Y
  27    22         K ^TMP("P SBMMRB")
  28    23         S D0=1,PS BMUDV=$S($ $GET1^DIQ( 43,D0,11," I")=1:1,1: 0)
  29    24         I PSBMUDV =1 D CHK1, EN2 Q
  30    25         I PSBMUDV =0 D ALL,E N2 Q
  31    26         Q
  32    27         ;
  33    28 EN2     I $P($G(^ VA(200,DUZ ,2,0)),U,4 )=0 W !!,$ C(7),"You  have no va lid divisi ons in the  NEW PERSO N file." S  Y="^" Q
  34    29         I '$O(^DG (40.8,"AD" ,DUZ(2),"" )) W !!,$C (7),"Your  NEW PERSON  file divi sion was n ot found i n the MEDI CAL CENTER  DIV
  35                ISION fi le." S Y=" ^" Q
  36    30         I Y=""!(Y <0)!(Y="^" ) Q
  37    31         S PSBDIV= $P($G(^TMP ("PSBMMRB" ,$J)),U,2)
  38    32         S PSBNAME =$P($G(^TM P("PSBMMRB ",$J)),U,3 )
  39    33         W !
  40    34         S %DT="AE "
  41    35         S %DT("A" )="Select  date of Re spiratory  Therapy Me ds Report  (eg T or T -1, etc.):  "
  42    36         D ^%DT
  43    37         I Y'=-1 D
  44    38         . S RDATE =Y
  45    39         . W !!,"P lease choo se a 132 c haracter p rinter",!
  46    40         . W "Queu ing of thi s report i s recommen ded",!
  47    41         . S %ZIS= "MQ"
  48    42         . D ^%ZIS
  49    43         . I POP K  %ZIS W !, "Device no t ready" Q
  50    44         . I $D(IO ("Q")) D
  51    45         .. S ZTRT N="EN3^PSB MMRB"
  52    46         .. S ZTSA VE("RDATE" )=""
  53    47         .. S ZTSA VE("PSBMUD V")=""
  54    48         .. S ZTSA VE("PSBDIV ")=""
  55    49         .. S ZTSA VE("PSBNAM E")=""
  56    50         .. S ZTDE SC("Respir atory Ther apy Meds R eport")=""
  57    51         .. D ^%ZT LOAD
  58    52         D ^%ZISC
  59    53         D EXIT
  60    54         Q
  61    55         ;
  62    56 EN3     ; create  new entry;  note: nat ional rout ine PSBO1  is modifie d for a ne w report,
  63    57         ; at NEW+ 3^PSBO1 ad d RT code  for Respir atory Ther apy Meds r eport
  64    58         ;
  65    59         D NEW^PSB O1(.PSBRPT ,"RT")      ;for Resp iratory Th erapy Meds  report
  66    60         G:$P($G(P SBRPT(0)), U)<1 EXIT
  67    61         ; edit ne w entry.
  68    62         S DA=$P($ G(PSBRPT(0 )),U),DIE= "^PSB(53.6 9,"
  69    63         S DR=".06 ///^S X=IO N;.11///W; .15=///B;. 16=///"_RD ATE_";.17= ///0001;.1 9=///2400"
  70    64         L +(^PSB( 53.69,DA)) :30 I '$T  G EXIT
  71    65         D ^DIE
  72    66         L -(^PSB( 53.69,DA))
  73    67         ; loop th rough Nurs ing locati ons, edit  new entry,  and print .
  74    68         S ZZA=0 F   S ZZA=$O (^NURSF(21 1.4,ZZA))  Q:'ZZA  D
  75    69         . N PSBWR DA,PSBSTA, PTFLAG
  76    70         . Q:'$D(^ NURSF(211. 4,ZZA,3,0) )  ;get ou t if no MA S Wards ex ist
  77    71         . S ZZA1= 0 F  S ZZA 1=$O(^NURS F(211.4,ZZ A,3,ZZA1))  Q:'ZZA1   D
  78    72         .. S D0=Z ZA D WIN^D GPMDDCF Q: X'=0  ; is  location  active or  inactive?
  79    73         .. S ZZB= $$GET1^DIQ (211.4,ZZA ,.01,"I")  ; pointer  to file #4 4
  80    74         .. ; capt ure the wa rd name
  81    75         .. S WARD =$$GET1^DI Q(44,ZZB,. 01,"E")
  82    76         .. D WARD ^NURSUT5(" L^"_ZZA,.P SBWRDA)
  83    77         .. Q:$G(P SBWRDA)=-1
  84    78         .. ;
  85    79         .. S PSBS TA=+$P(PSB WRDA(ZZA,. 02),U) ; s tation num ber
  86    80         .. I (PSB MUDV=1)&(P SBDIV'=PSB STA) Q  ;  single div ision is d efault
  87    81         .. S PTFL AG=$$GET1^ DIQ(211.4, ZZA,1,"I")  ; patient  care stat us flag
  88    82         .. I (PTF LAG["A") S  ^TMP($J,W ARD)=""
  89    83         .. ;
  90    84         ; if ther e are no w ards in th e division  queried,  issue a bl ank report
  91    85         I '$D(^TM P($J)) D   Q
  92    86         . S PSBHD R(1)="RESP IRATORY TH ERAPY MEDI CATIONS fr om "_$$FMT E^XLFDT(DT )_"@00:01" _" thru "_ $$FMTE^XLF DT(DT)_"@2 4:00
  93                "
  94    87         . S PSBWR D=""
  95    88         . D WRDHD R^PSBORT
  96    89         . W !,"No  Medicatio ns Found"
  97    90         . Q
  98    91         ;
  99    92         S WARD=""  F  S WARD =$O(^TMP($ J,WARD)) Q :WARD=""   D
  100    93         . S DA=$P ($G(PSBRPT (0)),U),DI E="^PSB(53 .69,"
  101    94         . S DR=". 13///^S X= WARD"
  102    95         . L +(^PS B(53.69,DA )):30 I '$ T G EXIT
  103    96         . D ^DIE
  104    97         . L -(^PS B(53.69,DA ))
  105    98         . D DQ^PS BO(DA)
  106    99         Q
  107   100         ;
  108   101 EXIT    ; clean u p.
  109   102         K DA,DIE, DR,PSBRPT, ZZWD,ZZWD1 ,ZZWD2,ZZW D3,RDATE
  110   103         K D0,ZZA, ZZA1,ZZA2, ZZB,WARD,^ TMP($J),^T MP("PSBMMR B",$J)
  111   104         Q
  112   105         ;
  113   106 CHK1    ; The use r must hav e at least  one divis ion from f ile #40.8  in his fil e #200 rec ord.
  114   107         N DIR
  115   108         W !
  116   109         S DIR(0)= "SB^A:All  Divisions; O:One Divi sion"
  117   110         S DIR("?" )="Select  either All  Divisions  or One Di vision."
  118   111         S DIR("A" )="Do you  want (A)ll  Divisions  or just ( O)ne Divis ion"
  119   112         S DIR("B" )="O"
  120   113         D ^DIR K  DIR I $D(D UOUT)!$D(D TOUT)!$D(D IROUT)!$D( DIRUT) Q
  121   114         I Y="" Q
  122   115         I Y(0)="O ne Divisio n" D ONE Q    ; regar dless user  divisions  in file # 200
  123   116         I Y(0)="A ll Divisio ns" S PSBM UDV=2 ; fo r all divi sions in a  multisite  setup
  124   117         Q
  125   118         ;
  126   119 ALL     ; user ge ts all div isions
  127   120         S Y(0)="A ll Divisio ns"  ; all  divisions  selected
  128   121         S PSBDIV= DUZ(2)
  129   122         S PSBSTIE N=+$O(^DG( 40.8,"AD", DUZ(2),"") ) ; curren t IEN for  station
  130   123         S Y=$$GET 1^DIQ(40.8 ,PSBSTIEN, .01,"E")
  131   124         I '$D(Y)  S Y=DUZ(2)
  132   125         S PSBNAME =$$NAME^XU AF4(DUZ(2) )
  133   126         S PSBMUDV =0
  134   127         S ^TMP("P SBMMRB",$J )=PSBMUDV_ U_PSBDIV_U _PSBNAME
  135   128         Q
  136   129         ;
  137   130 ONE     ; when us er selects  one divis ion from m any in fil e #200, lo ok at file  #40.8 for  a match i f availabl e
  138   131         W !
  139   132         S PSBSTIE N=+$O(^DG( 40.8,"AD", DUZ(2),"") ) ; curren t IEN for  station
  140   133         S PSBDVNM =$$GET1^DI Q(40.8,PSB STIEN,.01, "I") ;divi sion name
  141   134         S DIC("B" )=PSBDVNM
  142   135         S DIC("A" )="Select  Division:  ",DIC="^DG (40.8,",DI C(0)="AEMQ ",DIC("S") ="I $$SITE ^VASITE(,+ Y)>0"
  143   136         D ^DIC
  144   137         ; capture  the divis ion name a nd number  after user  selection
  145   138         S PSBNAME =$$GET1^DI Q(40.8,+Y, .01,"E")
  146   139         S PSBDPTR =$$GET1^DI Q(40.8,+Y, .07,"I") ;  pointer t o file #4
  147   140         S PSBDIV= PSBDPTR
  148   141         S ^TMP("P SBMMRB",$J )=PSBMUDV_ U_PSBDIV_U _PSBNAME
  149   142         Q
  150   143         ;