Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRBLINTG

LRBLINTG.m

Go to the documentation of this file.
  1. 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
  1. ;Per VHA Directive 97-033 this routine should not be modified. Medical Device # BK970021
  1. START ; Routine called from LRBLSRV
  1. S X=$T(+0) X ^%ZOSF("RSUM") S ^TMP("LRBL",$J,2,0)="LRBLINTG at "_LRBLSITE_" = "_Y
  1. F LRI=1:1 S LRA=$T(ROU+LRI) Q:LRA["***" S X=$P(LRA,",",2) D
  1. . X ^%ZOSF("TEST") I '$T S ^TMP("LRBL",$J,LRI+3,0)=X_" is missing." Q
  1. . X ^%ZOSF("RSUM") I Y'=$P(LRA,",",3) S ^TMP("LRBL",$J,LRI+3,0)=X_" should be "_$P(LRA,",",3)_" is "_Y
  1. K XMY S XMY("G.bloodbank@ISC-CHICAGO.DOMAIN.EXT")=""
  1. S %DT="T",X="NOW" D ^%DT,DD^LRX S LRBLNOW=Y
  1. S XMSUB="BB Checksum data at "_LRBLSITE_" run on "_LRBLNOW
  1. S XMTEXT="^TMP(""LRBL"",$J,",XMDUZ="Blood Bank Monitor" D ^XMD
  1. K %DT,LRA,LRBLNOW,LRBLSITE,LRI,X,XMDUZ,XMSUB,XMTEXT,Y
  1. K ^TMP("LRBL",$J)
  1. Q
  1. ROU ;
  1. ;;,LRBLA,11361264
  1. ;;,LRBLA1,10106404
  1. ;;,LRBLA2,7315572
  1. ;;,LRBLAA,14549108
  1. ;;,LRBLAA1,3751384
  1. ;;,LRBLAB,1343081
  1. ;;,LRBLAGG,2364163
  1. ;;,LRBLAUD,4865269
  1. ;;,LRBLAUD1,9357692
  1. ;;,LRBLB,7956270
  1. ;;,LRBLBU,1843508
  1. ;;,LRBLC,1993068
  1. ;;,LRBLCAP,2878590
  1. ;;,LRBLCMV,4895767
  1. ;;,LRBLD,3295327
  1. ;;,LRBLDA,12115475
  1. ;;,LRBLDA1,3235853
  1. ;;,LRBLDAA,12463641
  1. ;;,LRBLDAL,9196362
  1. ;;,LRBLDC,14196802
  1. ;;,LRBLDC1,5278208
  1. ;;,LRBLDCR,10142238
  1. ;;,LRBLDCU,5556264
  1. ;;,LRBLDED,6231669
  1. ;;,LRBLDEL,9949435
  1. ;;,LRBLDELT,5309734
  1. ;;,LRBLDEX,2280729
  1. ;;,LRBLDEX1,13643755
  1. ;;,LRBLDEX2,14294791
  1. ;;,LRBLDK,4408781
  1. ;;,LRBLDL,8027727
  1. ;;,LRBLDL1,1162721
  1. ;;,LRBLDLG,19191632
  1. ;;,LRBLDMV,6414505
  1. ;;,LRBLDP,2025215
  1. ;;,LRBLDPA,3904141
  1. ;;,LRBLDPA1,13804264
  1. ;;,LRBLDPA2,13967384
  1. ;;,LRBLDPAW,3164806
  1. ;;,LRBLDPH,10358285
  1. ;;,LRBLDPL,3867229
  1. ;;,LRBLDR,15537243
  1. ;;,LRBLDR1,7668103
  1. ;;,LRBLDRR,17451778
  1. ;;,LRBLDRR1,25481475
  1. ;;,LRBLDRR2,3243087
  1. ;;,LRBLDRR3,1756464
  1. ;;,LRBLDSC,8397022
  1. ;;,LRBLDT,13410130
  1. ;;,LRBLDTA,2557404
  1. ;;,LRBLDUC,5267997
  1. ;;,LRBLDW,5874762
  1. ;;,LRBLDX,4935632
  1. ;;,LRBLJA,17223916
  1. ;;,LRBLJA1,6301480
  1. ;;,LRBLJB,9637545
  1. ;;,LRBLJC,9275638
  1. ;;,LRBLJCK,9867617
  1. ;;,LRBLJD,12678359
  1. ;;,LRBLJD1,14481597
  1. ;;,LRBLJDA,9462759
  1. ;;,LRBLJDM,15110824
  1. ;;,LRBLJDP,9494946
  1. ;;,LRBLJED,15092195
  1. ;;,LRBLJI,8199613
  1. ;;,LRBLJL,20113772
  1. ;;,LRBLJL1,8092253
  1. ;;,LRBLJLA,10021308
  1. ;;,LRBLJLG,22434197
  1. ;;,LRBLJLG1,12109485
  1. ;;,LRBLJM,5716689
  1. ;;,LRBLJM1,15670509
  1. ;;,LRBLJP,5290456
  1. ;;,LRBLJPA,5625331
  1. ;;,LRBLJPA1,15924799
  1. ;;,LRBLJPA2,11292074
  1. ;;,LRBLJPH,6292279
  1. ;;,LRBLJPP,12819280
  1. ;;,LRBLJPP1,6500529
  1. ;;,LRBLJR,8337634
  1. ;;,LRBLJRB,10178183
  1. ;;,LRBLJSH,10420740
  1. ;;,LRBLJT,9133136
  1. ;;,LRBLJTS,3989459
  1. ;;,LRBLJTS1,8904563
  1. ;;,LRBLJTS2,8577037
  1. ;;,LRBLJU,6005102
  1. ;;,LRBLJU1,7426924
  1. ;;,LRBLJUT,5844963
  1. ;;,LRBLJW,11281581
  1. ;;,LRBLJX,5755259
  1. ;;,LRBLP,17385811
  1. ;;,LRBLPA,3613885
  1. ;;,LRBLPAB,2266423
  1. ;;,LRBLPB,1128898
  1. ;;,LRBLPBR,6311255
  1. ;;,LRBLPBR1,15305150
  1. ;;,LRBLPC,15671667
  1. ;;,LRBLPC1,7192443
  1. ;;,LRBLPCS,10290637
  1. ;;,LRBLPCS1,13639750
  1. ;;,LRBLPCSS,9974761
  1. ;;,LRBLPD,11082733
  1. ;;,LRBLPD1,10207069
  1. ;;,LRBLPE,12068165
  1. ;;,LRBLPE1,9122655
  1. ;;,LRBLPED,17147926
  1. ;;,LRBLPED1,9800010
  1. ;;,LRBLPED2,3635113
  1. ;;,LRBLPEW,12743930
  1. ;;,LRBLPH,3897023
  1. ;;,LRBLPIT,7051859
  1. ;;,LRBLPP,1084680
  1. ;;,LRBLPQA,8810766
  1. ;;,LRBLPR,6345892
  1. ;;,LRBLPR1,13035995
  1. ;;,LRBLPRA,5693589
  1. ;;,LRBLPT,9150490
  1. ;;,LRBLPT1,11224251
  1. ;;,LRBLPTR,11758949
  1. ;;,LRBLPTR1,10126100
  1. ;;,LRBLPUS,13178966
  1. ;;,LRBLPUS1,10560710
  1. ;;,LRBLPUS2,6349114
  1. ;;,LRBLPX,16100078
  1. ;;,LRBLPX1,12892470
  1. ;;,LRBLQPR,5571366
  1. ;;,LRBLQST,7084452
  1. ;;,LRBLRCT,9631694
  1. ;;,LRBLS,11617800
  1. ;;,LRBLSCRN,1075474
  1. ;;,LRBLSET,2877561
  1. ;;,LRBLSRV,1681921
  1. ;;,LRBLSSN,3897804
  1. ;;,LRBLST,3535761
  1. ;;,LRBLSTR,3249276
  1. ;;,LRBLSUM,1987283
  1. ;;,LRBLTA,6903899
  1. ;;,LRBLTA1,4221860
  1. ;;,LRBLTX,13956029
  1. ;;,LRBLTXA,11752893
  1. ;;,LRBLU,14043423
  1. ;;,LRBLUL,1134633
  1. ;;,LRBLVAL,715004
  1. ;;,LRBLW,4545909
  1. ;;,LRBLWD,4923072
  1. ;;,LRBLWDS,8168141
  1. ;;,LRBLY,3089131
  1. ;;,LRUB,2794163
  1. ;;,LRUC,1474534
  1. ;;,LRUCN,5719131
  1. ;;,LRUD,8613944
  1. ;;,LRUDIT,1873186
  1. ;;,LRUL,6494173
  1. ;;,LRUMSG,549954
  1. ;;,LRUT,1482424
  1. ;***
  1. Q