source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRBLINTG.m@ 1704

Last change on this file since 1704 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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