source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI02D.m@ 1607

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

initial load of FOIAVistA 6/30/08 version
File size: 4.9 KB
Line 
1OCXDI02D ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI02E
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;R^"860.8:",100,7
21 ;;D^ ; I (+OCXFIL) S OCXGL=$$FILE^OCXBDTD(+OCXFIL,"GLOBAL NAME") Q:'$L(OCXGL) ""
22 ;;R^"860.8:",100,8
23 ;;D^ ; E S OCXGL=OCXFIL
24 ;;R^"860.8:",100,9
25 ;;D^ ; I +OCXKEY,(+OCXKEY=OCXKEY),$D(@(OCXGL_OCXKEY_")")) Q $G(@(OCXGL_(+OCXKEY)_","""_OCXNODE_""")"))
26 ;;R^"860.8:",100,10
27 ;;D^ ; S OCXDATA=$O(@(OCXGL_"""B"","""_OCXKEY_""",0)")) I OCXDATA Q $G(@(OCXGL_(+OCXDATA)_","""_OCXNODE_""")"))
28 ;;R^"860.8:",100,11
29 ;;D^ ; S OCXSUB="B" F S OCXSUB=$O(@(OCXGL_""""_OCXSUB_""")")) Q:'$L(OCXSUB) S OCXDATA=$O(@(OCXGL_"""B"","""_OCXKEY_""",0)")) Q:OCXDATA
30 ;;R^"860.8:",100,12
31 ;;D^ ; Q:'OCXDATA "" Q $G(@(OCXGL_(+OCXDATA)_","""_OCXNODE_""")"))
32 ;;R^"860.8:",100,13
33 ;;D^ ; ;
34 ;;EOR^
35 ;;KEY^860.8:^FILE DATA IN PATIENT ACTIVE DATA FILE
36 ;;R^"860.8:",.01,"E"
37 ;;D^FILE DATA IN PATIENT ACTIVE DATA FILE
38 ;;R^"860.8:",.02,"E"
39 ;;D^FILE
40 ;;R^"860.8:",1,1
41 ;;D^ ;FILE(DFN,OCXELE,OCXDFL) ; This Local Extrinsic Function files data
42 ;;R^"860.8:",1,2
43 ;;D^ ; ; in the Order Check Patient Data File
44 ;;R^"860.8:",1,3
45 ;;D^ ; ;
46 ;;R^"860.8:",100,1
47 ;;D^ ;FILE(DFN,OCXELE,OCXDFL) ; This Local Extrinsic Function logs a validated event/element.
48 ;;R^"860.8:",100,2
49 ;;D^ ; ;
50 ;;R^"860.8:",100,3
51 ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," Execution trace DFN: ",DFN," OCXELE: ",+$G(OCXELE)," OCXDFL: ",$G(OCXDFL)
52 ;;R^"860.8:",100,4
53 ;;D^ ; N OCXTIMN,OCXTIML,OCXTIMT1,OCXTIMT2,OCXDATA,OCXPC,OCXPC,OCXVAL,OCXSUB,OCXDFI
54 ;;R^"860.8:",100,5
55 ;;D^ ; S DFN=+$G(DFN),OCXELE=+$G(OCXELE)
56 ;;R^"860.8:",100,6
57 ;;D^ ; ;
58 ;;R^"860.8:",100,7
59 ;;D^ ; Q:'DFN 1 Q:'OCXELE 1 K OCXDATA
60 ;;R^"860.8:",100,8
61 ;;D^ ; ;
62 ;;R^"860.8:",100,9
63 ;;D^ ; S OCXDATA(DFN,OCXELE)=1
64 ;;R^"860.8:",100,10
65 ;;D^ ; F OCXPC=1:1:$L(OCXDFL,",") S OCXDFI=$P(OCXDFL,",",OCXPC) I OCXDFI D
66 ;;R^"860.8:",100,11
67 ;;D^ ; .S OCXVAL=$G(OCXDF(+OCXDFI)),OCXDATA(DFN,OCXELE,+OCXDFI)=OCXVAL
68 ;;R^"860.8:",100,12
69 ;;D^T+; .I $G(OCXTRACE) W !,"%%%%",?20," ",$P($G(^OCXS(860.4,+OCXDFI,0)),U,1)," = """,OCXVAL,""""
70 ;;R^"860.8:",100,13
71 ;;D^ ; ;
72 ;;R^"860.8:",100,14
73 ;;D^ ; M ^TMP("OCXCHK",$J,DFN)=OCXDATA(DFN)
74 ;;R^"860.8:",100,15
75 ;;D^ ; ;
76 ;;R^"860.8:",100,16
77 ;;D^ ; Q 0
78 ;;R^"860.8:",100,17
79 ;;D^ ; ;
80 ;;EOR^
81 ;;KEY^860.8:^RETURN POINTED TO VALUE
82 ;;R^"860.8:",.01,"E"
83 ;;D^RETURN POINTED TO VALUE
84 ;;R^"860.8:",.02,"E"
85 ;;D^POINTER
86 ;;R^"860.8:",1,1
87 ;;D^ ;POINTER(OCXFILE,D0) ; This Local Extrinsic Function gets the value of the name field
88 ;;R^"860.8:",1,2
89 ;;D^ ; ; of record D0 in file OCXFILE
90 ;;R^"860.8:",100,1
91 ;;D^ ;POINTER(OCXFILE,D0) ; This Local Extrinsic Function gets the value of the name field
92 ;;R^"860.8:",100,2
93 ;;D^ ; ; of record D0 in file OCXFILE
94 ;;R^"860.8:",100,3
95 ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," FILE: ",$G(OCXFILE)," D0: ",$G(D0)
96 ;;R^"860.8:",100,4
97 ;;D^ ; Q:'$G(D0) "" Q:'$L($G(OCXFILE)) ""
98 ;;R^"860.8:",100,5
99 ;;D^ ; N GLREF
100 ;;R^"860.8:",100,6
101 ;;D^ ; I '(OCXFILE=(+OCXFILE)) S GLREF=U_OCXFILE
102 ;;R^"860.8:",100,7
103 ;;D^ ; E S GLREF=$$FILE^OCXBDTD(+OCXFILE,"GLOBAL NAME") Q:'$L(GLREF) ""
104 ;;R^"860.8:",100,8
105 ;;D^T+; I $G(OCXTRACE) W !,"%%%%",?20," GLREF: ",GLREF," RESOLVES TO: ",$P($G(@(GLREF_(+D0)_",0)")),U,1)
106 ;;R^"860.8:",100,9
107 ;;D^ ; Q $P($G(@(GLREF_(+D0)_",0)")),U,1)
108 ;;R^"860.8:",100,10
109 ;;D^ ; ;
110 ;;EOR^
111 ;;KEY^860.8:^CHECK IF THIS IS A NEW ELEMENT
112 ;;R^"860.8:",.01,"E"
113 ;;D^CHECK IF THIS IS A NEW ELEMENT
114 ;;R^"860.8:",.02,"E"
115 ;;D^NEWELEM
116 ;;R^"860.8:",1,1
117 ;;D^ ;NEWELEM(DFN,OCXRUL,OCXREL,OCXELE,OCXTIME) ; This Local Extrinsic Function returns a 1 if this element (OCXELE)
118 ;;R^"860.8:",1,2
119 ;;D^ ; ; is newly triggered and a 0 if it has been responsible for triggering
120 ;;R^"860.8:",1,3
121 ;;D^ ; ; this rule (OCXRUL) in the past.
122 ;;R^"860.8:",1,4
123 ;;D^ ; ;
124 ;;R^"860.8:",100,1
125 ;;D^ ;NEWELEM(DFN,OCXRUL,OCXREL,OCXELE) ; This Local Extrinsic Function returns a 1 if this element (OCXELE)
126 ;;R^"860.8:",100,2
127 ;;D^ ; ; is newly triggered and a 0 if it has been responsible for triggering
128 ;;R^"860.8:",100,3
129 ;;D^ ; ; this rule (OCXRUL) in the past.
130 ;;R^"860.8:",100,4
131 ;;D^ ; ;
132 ;;R^"860.8:",100,5
133 ;;D^ ; ;
134 ;;R^"860.8:",100,6
135 ;;D^ ; Q
136 ;;R^"860.8:",100,7
137 ;;D^ ; ;
138 ;;R^"860.8:",100,8
139 ;;D^ ; ;
140 ;;EOR^
141 ;;KEY^860.8:^RETURN RENAL FUNCTION VALUES
142 ;;R^"860.8:",.01,"E"
143 ;;D^RETURN RENAL FUNCTION VALUES
144 ;;R^"860.8:",.02,"E"
145 ;;D^RENAL
146 ;;R^"860.8:",100,1
147 ;;D^ ;RENAL(DFN) ;
148 ;;R^"860.8:",100,2
149 ;;D^ ; ;
150 ;;R^"860.8:",100,3
151 ;;D^ ; N OCXV,OCXX,OCXTL,OCXTERM,OCXSLIST,OCXS S OCXV=""
152 ;;R^"860.8:",100,4
153 ;;D^ ; S OCXSLIST="" Q:'$$TERMLKUP("SERUM SPECIMEN",.OCXSLIST)
154 ;1;
155 ;
Note: See TracBrowser for help on using the repository browser.