- LRBLINTG ;DALLAS CIOFO/RLM/CYM - INTEGRITY CHECKER FOR BLOOD BANK ROUTINES ;08/20/2001 4:35 PM
- ;;5.2;LAB SERVICE;**247,267,275**;Sep 27, 1994
- ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
- START ; Routine called from LRBLSRV
- S X=$T(+0) X ^%ZOSF("RSUM") S ^TMP("LRBL",$J,2,0)="LRBLINTG at "_LRBLSITE_" = "_Y
- F LRI=1:1 S LRA=$T(ROU+LRI) Q:LRA["***" S X=$P(LRA,",",2) D
- . X ^%ZOSF("TEST") I '$T S ^TMP("LRBL",$J,LRI+3,0)=X_" is missing." Q
- . X ^%ZOSF("RSUM") I Y'=$P(LRA,",",3) S ^TMP("LRBL",$J,LRI+3,0)=X_" should be "_$P(LRA,",",3)_" is "_Y
- K XMY S XMY("G.bloodbank@ISC-CHICAGO.DOMAIN.EXT")=""
- S %DT="T",X="NOW" D ^%DT,DD^LRX S LRBLNOW=Y
- S XMSUB="BB Checksum data at "_LRBLSITE_" run on "_LRBLNOW
- S XMTEXT="^TMP(""LRBL"",$J,",XMDUZ="Blood Bank Monitor" D ^XMD
- K %DT,LRA,LRBLNOW,LRBLSITE,LRI,X,XMDUZ,XMSUB,XMTEXT,Y
- K ^TMP("LRBL",$J)
- Q
- ROU ;
- ;;,LRBLA,11361264
- ;;,LRBLA1,10106404
- ;;,LRBLA2,7315572
- ;;,LRBLAA,14549108
- ;;,LRBLAA1,3751384
- ;;,LRBLAB,1343081
- ;;,LRBLAGG,2364163
- ;;,LRBLAUD,4865269
- ;;,LRBLAUD1,9357692
- ;;,LRBLB,7956270
- ;;,LRBLBU,1843508
- ;;,LRBLC,1993068
- ;;,LRBLCAP,2878590
- ;;,LRBLCMV,4895767
- ;;,LRBLD,3295327
- ;;,LRBLDA,12115475
- ;;,LRBLDA1,3235853
- ;;,LRBLDAA,12463641
- ;;,LRBLDAL,9196362
- ;;,LRBLDC,14196802
- ;;,LRBLDC1,5278208
- ;;,LRBLDCR,10142238
- ;;,LRBLDCU,5556264
- ;;,LRBLDED,6231669
- ;;,LRBLDEL,9949435
- ;;,LRBLDELT,5309734
- ;;,LRBLDEX,2280729
- ;;,LRBLDEX1,13643755
- ;;,LRBLDEX2,14294791
- ;;,LRBLDK,4408781
- ;;,LRBLDL,8027727
- ;;,LRBLDL1,1162721
- ;;,LRBLDLG,19191632
- ;;,LRBLDMV,6414505
- ;;,LRBLDP,2025215
- ;;,LRBLDPA,3904141
- ;;,LRBLDPA1,13804264
- ;;,LRBLDPA2,13967384
- ;;,LRBLDPAW,3164806
- ;;,LRBLDPH,10358285
- ;;,LRBLDPL,3867229
- ;;,LRBLDR,15537243
- ;;,LRBLDR1,7668103
- ;;,LRBLDRR,17451778
- ;;,LRBLDRR1,25481475
- ;;,LRBLDRR2,3243087
- ;;,LRBLDRR3,1756464
- ;;,LRBLDSC,8397022
- ;;,LRBLDT,13410130
- ;;,LRBLDTA,2557404
- ;;,LRBLDUC,5267997
- ;;,LRBLDW,5874762
- ;;,LRBLDX,4935632
- ;;,LRBLJA,17223916
- ;;,LRBLJA1,6301480
- ;;,LRBLJB,9637545
- ;;,LRBLJC,9275638
- ;;,LRBLJCK,9867617
- ;;,LRBLJD,12678359
- ;;,LRBLJD1,14481597
- ;;,LRBLJDA,9462759
- ;;,LRBLJDM,15110824
- ;;,LRBLJDP,9494946
- ;;,LRBLJED,15092195
- ;;,LRBLJI,8199613
- ;;,LRBLJL,20113772
- ;;,LRBLJL1,8092253
- ;;,LRBLJLA,10021308
- ;;,LRBLJLG,22434197
- ;;,LRBLJLG1,12109485
- ;;,LRBLJM,5716689
- ;;,LRBLJM1,15670509
- ;;,LRBLJP,5290456
- ;;,LRBLJPA,5625331
- ;;,LRBLJPA1,15924799
- ;;,LRBLJPA2,11292074
- ;;,LRBLJPH,6292279
- ;;,LRBLJPP,12819280
- ;;,LRBLJPP1,6500529
- ;;,LRBLJR,8337634
- ;;,LRBLJRB,10178183
- ;;,LRBLJSH,10420740
- ;;,LRBLJT,9133136
- ;;,LRBLJTS,3989459
- ;;,LRBLJTS1,8904563
- ;;,LRBLJTS2,8577037
- ;;,LRBLJU,6005102
- ;;,LRBLJU1,7426924
- ;;,LRBLJUT,5844963
- ;;,LRBLJW,11281581
- ;;,LRBLJX,5755259
- ;;,LRBLP,17385811
- ;;,LRBLPA,3613885
- ;;,LRBLPAB,2266423
- ;;,LRBLPB,1128898
- ;;,LRBLPBR,6311255
- ;;,LRBLPBR1,15305150
- ;;,LRBLPC,15671667
- ;;,LRBLPC1,7192443
- ;;,LRBLPCS,10290637
- ;;,LRBLPCS1,13639750
- ;;,LRBLPCSS,9974761
- ;;,LRBLPD,11082733
- ;;,LRBLPD1,10207069
- ;;,LRBLPE,12068165
- ;;,LRBLPE1,9122655
- ;;,LRBLPED,17147926
- ;;,LRBLPED1,9800010
- ;;,LRBLPED2,3635113
- ;;,LRBLPEW,12743930
- ;;,LRBLPH,3897023
- ;;,LRBLPIT,7051859
- ;;,LRBLPP,1084680
- ;;,LRBLPQA,8810766
- ;;,LRBLPR,6345892
- ;;,LRBLPR1,13035995
- ;;,LRBLPRA,5693589
- ;;,LRBLPT,9150490
- ;;,LRBLPT1,11224251
- ;;,LRBLPTR,11758949
- ;;,LRBLPTR1,10126100
- ;;,LRBLPUS,13178966
- ;;,LRBLPUS1,10560710
- ;;,LRBLPUS2,6349114
- ;;,LRBLPX,16100078
- ;;,LRBLPX1,12892470
- ;;,LRBLQPR,5571366
- ;;,LRBLQST,7084452
- ;;,LRBLRCT,9631694
- ;;,LRBLS,11617800
- ;;,LRBLSCRN,1075474
- ;;,LRBLSET,2877561
- ;;,LRBLSRV,1681921
- ;;,LRBLSSN,3897804
- ;;,LRBLST,3535761
- ;;,LRBLSTR,3249276
- ;;,LRBLSUM,1987283
- ;;,LRBLTA,6903899
- ;;,LRBLTA1,4221860
- ;;,LRBLTX,13956029
- ;;,LRBLTXA,11752893
- ;;,LRBLU,14043423
- ;;,LRBLUL,1134633
- ;;,LRBLVAL,715004
- ;;,LRBLW,4545909
- ;;,LRBLWD,4923072
- ;;,LRBLWDS,8168141
- ;;,LRBLY,3089131
- ;;,LRUB,2794163
- ;;,LRUC,1474534
- ;;,LRUCN,5719131
- ;;,LRUD,8613944
- ;;,LRUDIT,1873186
- ;;,LRUL,6494173
- ;;,LRUMSG,549954
- ;;,LRUT,1482424
- ;***
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRBLINTG 4201 printed Jan 18, 2025@03:11:43 Page 2
- LRBLINTG ;DALLAS CIOFO/RLM/CYM - INTEGRITY CHECKER FOR BLOOD BANK ROUTINES ;08/20/2001 4:35 PM
- +1 ;;5.2;LAB SERVICE;**247,267,275**;Sep 27, 1994
- +2 ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
- START ; Routine called from LRBLSRV
- +1 SET X=$TEXT(+0)
- XECUTE ^%ZOSF("RSUM")
- SET ^TMP("LRBL",$JOB,2,0)="LRBLINTG at "_LRBLSITE_" = "_Y
- +2 FOR LRI=1:1
- SET LRA=$TEXT(ROU+LRI)
- if LRA["***"
- QUIT
- SET X=$PIECE(LRA,",",2)
- Begin DoDot:1
- +3 XECUTE ^%ZOSF("TEST")
- IF '$TEST
- SET ^TMP("LRBL",$JOB,LRI+3,0)=X_" is missing."
- QUIT
- +4 XECUTE ^%ZOSF("RSUM")
- IF Y'=$PIECE(LRA,",",3)
- SET ^TMP("LRBL",$JOB,LRI+3,0)=X_" should be "_$PIECE(LRA,",",3)_" is "_Y
- End DoDot:1
- +5 KILL XMY
- SET XMY("G.bloodbank@ISC-CHICAGO.DOMAIN.EXT")=""
- +6 SET %DT="T"
- SET X="NOW"
- DO ^%DT
- DO DD^LRX
- SET LRBLNOW=Y
- +7 SET XMSUB="BB Checksum data at "_LRBLSITE_" run on "_LRBLNOW
- +8 SET XMTEXT="^TMP(""LRBL"",$J,"
- SET XMDUZ="Blood Bank Monitor"
- DO ^XMD
- +9 KILL %DT,LRA,LRBLNOW,LRBLSITE,LRI,X,XMDUZ,XMSUB,XMTEXT,Y
- +10 KILL ^TMP("LRBL",$JOB)
- +11 QUIT
- ROU ;
- +1 ;;,LRBLA,11361264
- +2 ;;,LRBLA1,10106404
- +3 ;;,LRBLA2,7315572
- +4 ;;,LRBLAA,14549108
- +5 ;;,LRBLAA1,3751384
- +6 ;;,LRBLAB,1343081
- +7 ;;,LRBLAGG,2364163
- +8 ;;,LRBLAUD,4865269
- +9 ;;,LRBLAUD1,9357692
- +10 ;;,LRBLB,7956270
- +11 ;;,LRBLBU,1843508
- +12 ;;,LRBLC,1993068
- +13 ;;,LRBLCAP,2878590
- +14 ;;,LRBLCMV,4895767
- +15 ;;,LRBLD,3295327
- +16 ;;,LRBLDA,12115475
- +17 ;;,LRBLDA1,3235853
- +18 ;;,LRBLDAA,12463641
- +19 ;;,LRBLDAL,9196362
- +20 ;;,LRBLDC,14196802
- +21 ;;,LRBLDC1,5278208
- +22 ;;,LRBLDCR,10142238
- +23 ;;,LRBLDCU,5556264
- +24 ;;,LRBLDED,6231669
- +25 ;;,LRBLDEL,9949435
- +26 ;;,LRBLDELT,5309734
- +27 ;;,LRBLDEX,2280729
- +28 ;;,LRBLDEX1,13643755
- +29 ;;,LRBLDEX2,14294791
- +30 ;;,LRBLDK,4408781
- +31 ;;,LRBLDL,8027727
- +32 ;;,LRBLDL1,1162721
- +33 ;;,LRBLDLG,19191632
- +34 ;;,LRBLDMV,6414505
- +35 ;;,LRBLDP,2025215
- +36 ;;,LRBLDPA,3904141
- +37 ;;,LRBLDPA1,13804264
- +38 ;;,LRBLDPA2,13967384
- +39 ;;,LRBLDPAW,3164806
- +40 ;;,LRBLDPH,10358285
- +41 ;;,LRBLDPL,3867229
- +42 ;;,LRBLDR,15537243
- +43 ;;,LRBLDR1,7668103
- +44 ;;,LRBLDRR,17451778
- +45 ;;,LRBLDRR1,25481475
- +46 ;;,LRBLDRR2,3243087
- +47 ;;,LRBLDRR3,1756464
- +48 ;;,LRBLDSC,8397022
- +49 ;;,LRBLDT,13410130
- +50 ;;,LRBLDTA,2557404
- +51 ;;,LRBLDUC,5267997
- +52 ;;,LRBLDW,5874762
- +53 ;;,LRBLDX,4935632
- +54 ;;,LRBLJA,17223916
- +55 ;;,LRBLJA1,6301480
- +56 ;;,LRBLJB,9637545
- +57 ;;,LRBLJC,9275638
- +58 ;;,LRBLJCK,9867617
- +59 ;;,LRBLJD,12678359
- +60 ;;,LRBLJD1,14481597
- +61 ;;,LRBLJDA,9462759
- +62 ;;,LRBLJDM,15110824
- +63 ;;,LRBLJDP,9494946
- +64 ;;,LRBLJED,15092195
- +65 ;;,LRBLJI,8199613
- +66 ;;,LRBLJL,20113772
- +67 ;;,LRBLJL1,8092253
- +68 ;;,LRBLJLA,10021308
- +69 ;;,LRBLJLG,22434197
- +70 ;;,LRBLJLG1,12109485
- +71 ;;,LRBLJM,5716689
- +72 ;;,LRBLJM1,15670509
- +73 ;;,LRBLJP,5290456
- +74 ;;,LRBLJPA,5625331
- +75 ;;,LRBLJPA1,15924799
- +76 ;;,LRBLJPA2,11292074
- +77 ;;,LRBLJPH,6292279
- +78 ;;,LRBLJPP,12819280
- +79 ;;,LRBLJPP1,6500529
- +80 ;;,LRBLJR,8337634
- +81 ;;,LRBLJRB,10178183
- +82 ;;,LRBLJSH,10420740
- +83 ;;,LRBLJT,9133136
- +84 ;;,LRBLJTS,3989459
- +85 ;;,LRBLJTS1,8904563
- +86 ;;,LRBLJTS2,8577037
- +87 ;;,LRBLJU,6005102
- +88 ;;,LRBLJU1,7426924
- +89 ;;,LRBLJUT,5844963
- +90 ;;,LRBLJW,11281581
- +91 ;;,LRBLJX,5755259
- +92 ;;,LRBLP,17385811
- +93 ;;,LRBLPA,3613885
- +94 ;;,LRBLPAB,2266423
- +95 ;;,LRBLPB,1128898
- +96 ;;,LRBLPBR,6311255
- +97 ;;,LRBLPBR1,15305150
- +98 ;;,LRBLPC,15671667
- +99 ;;,LRBLPC1,7192443
- +100 ;;,LRBLPCS,10290637
- +101 ;;,LRBLPCS1,13639750
- +102 ;;,LRBLPCSS,9974761
- +103 ;;,LRBLPD,11082733
- +104 ;;,LRBLPD1,10207069
- +105 ;;,LRBLPE,12068165
- +106 ;;,LRBLPE1,9122655
- +107 ;;,LRBLPED,17147926
- +108 ;;,LRBLPED1,9800010
- +109 ;;,LRBLPED2,3635113
- +110 ;;,LRBLPEW,12743930
- +111 ;;,LRBLPH,3897023
- +112 ;;,LRBLPIT,7051859
- +113 ;;,LRBLPP,1084680
- +114 ;;,LRBLPQA,8810766
- +115 ;;,LRBLPR,6345892
- +116 ;;,LRBLPR1,13035995
- +117 ;;,LRBLPRA,5693589
- +118 ;;,LRBLPT,9150490
- +119 ;;,LRBLPT1,11224251
- +120 ;;,LRBLPTR,11758949
- +121 ;;,LRBLPTR1,10126100
- +122 ;;,LRBLPUS,13178966
- +123 ;;,LRBLPUS1,10560710
- +124 ;;,LRBLPUS2,6349114
- +125 ;;,LRBLPX,16100078
- +126 ;;,LRBLPX1,12892470
- +127 ;;,LRBLQPR,5571366
- +128 ;;,LRBLQST,7084452
- +129 ;;,LRBLRCT,9631694
- +130 ;;,LRBLS,11617800
- +131 ;;,LRBLSCRN,1075474
- +132 ;;,LRBLSET,2877561
- +133 ;;,LRBLSRV,1681921
- +134 ;;,LRBLSSN,3897804
- +135 ;;,LRBLST,3535761
- +136 ;;,LRBLSTR,3249276
- +137 ;;,LRBLSUM,1987283
- +138 ;;,LRBLTA,6903899
- +139 ;;,LRBLTA1,4221860
- +140 ;;,LRBLTX,13956029
- +141 ;;,LRBLTXA,11752893
- +142 ;;,LRBLU,14043423
- +143 ;;,LRBLUL,1134633
- +144 ;;,LRBLVAL,715004
- +145 ;;,LRBLW,4545909
- +146 ;;,LRBLWD,4923072
- +147 ;;,LRBLWDS,8168141
- +148 ;;,LRBLY,3089131
- +149 ;;,LRUB,2794163
- +150 ;;,LRUC,1474534
- +151 ;;,LRUCN,5719131
- +152 ;;,LRUD,8613944
- +153 ;;,LRUDIT,1873186
- +154 ;;,LRUL,6494173
- +155 ;;,LRUMSG,549954
- +156 ;;,LRUT,1482424
- +157 ;***
- +158 QUIT