source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQZIS.m@ 789

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

initial load of WorldVistAEHR
File size: 5.2 KB
Line 
1PXQZIS ;ISL/JVS - QUEUEING UTILITY (%ZTLOAD) ;8/29/96 10:34
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4**;Aug 12, 1996
3 ;
4Q1 S ZTDTH=$H
5QUEZ K IO("Q") I '$D(ZTIO),$D(ION),ION="" S ZTIO=""
6 I '$D(ZTDESC) S ZTDESC=$S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"MAS UNKNOWN OPTION")
7 I '$D(ZTRTN) S DGPGM=$S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"") G:DGPGM="" CLOSE S ZTRTN="DQ^DGUTQ"
8 S DGZTSAVE=$S($D(DGVAR):DGVAR,$D(VAR):VAR,1:"*") D SAVE
9 I $D(DGPGM),'$D(ZTSAVE("DGPGM")) S ZTSAVE("DGPGM")=""
10LOAD D ^%ZTLOAD W:'$D(DGUTQND) !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") S:'$D(ZTSK) X="^" S:$D(ZTSK) X="" G CLOSE:$D(ZTSK),END
11 Q
12ZIS W ! K IOP,IO("Q") S POP=0,%ZIS="QMP" D ^%ZIS K %ZIS,IOP Q:POP I $D(IO("Q")) D
13 .I $G(OPTION)=1 D QUE1
14 .I $G(OPTION)=2 D QUE2
15 .I $G(OPTION)=3 D QUE3
16 .I $G(OPTION)=4 D QUE4
17 .I $G(OPTION)="5D" D QUE5D
18 .I $G(OPTION)="5E" D QUE5E
19 .I $G(OPTION)="5S" D QUE5S
20 .I $G(OPTION)="5A" D QUE5A
21 .I $G(OPTION)="6D" D QUE6D
22 .I $G(OPTION)="6E" D QUE6E
23 .I $G(OPTION)="6S" D QUE6S
24 .I $G(OPTION)="6A" D QUE6A
25 .I $G(OPTION)=7 D QUE7
26 .I $G(OPTION)="9P" D QUE9P
27 .I $G(OPTION)="9L" D QUE9L
28 .I $G(OPTION)=10 D QUE10
29 .S POP=1
30 I POP=1 G CLOSE
31 U IO Q
32QUE1 ;--DEPENDENT ENTRY COUNTS (VISITS AND ENCOUNTERS)
33 S ZTDESC="PCE DEBUGGING UTILITIES DEPENDENT ENTRY COUNTS"
34 S ZTRTN="DEP^PXQMAIN"
35 S ZTSAVE("PXQRECI")=0
36 S ZTSAVE("VISIT")=""
37 S ZTSAVE("IEN")=""
38 D ^%ZTLOAD
39 I $G(ZTSK) W !,"Task number is "_$G(ZTSK)
40 Q
41QUE2 ;--EXPANDED DEPENDENT ENTRY COUNTS
42 S ZTDESC="PCE DEBUGGING UTILITIES EXPANDED DEPENDENT ENTRY COUNTS"
43 S ZTRTN="EXP^PXQMAIN"
44 S ZTSAVE("PXQRECI")=0
45 S ZTSAVE("VISIT")=""
46 S ZTSAVE("IEN")=""
47 D ^%ZTLOAD
48 W !,"Task number is "_ZTSK
49 Q
50QUE3 ;--INTERNAL VIEW OF VISITS
51 S ZTDESC="PCE DEBUGGING UTILITIES INTERNAL VIEW OF VISITS"
52 S ZTRTN="INT^PXQMAIN"
53 S ZTSAVE("PXQRECI")=0
54 S ZTSAVE("VISIT")=""
55 S ZTSAVE("IEN")=""
56 D ^%ZTLOAD
57 W !,"Task number is "_ZTSK
58 Q
59QUE4 ;--SOURCE OF THE PCE DATA
60 S ZTDESC="PCE DEBUGGING UTILITIES SOURCE OF THE PCE DATA"
61 S ZTRTN="INT^PXQMAIN"
62 S ZTSAVE("PXQRECI")=0
63 S ZTSAVE("VISIT")=""
64 S ZTSAVE("IEN")=""
65 D ^%ZTLOAD
66 W !,"Task number is "_ZTSK
67 Q
68QUE5D ;--VISIT IEN-DEPENDENT ENTRIES
69 S ZTDESC="PCE DEBUGGING UTILITIES VISIT IEN-DEPENDENT ENTRIES"
70 S ZTRTN="DEC5D^PXQMAIN1"
71 S ZTSAVE("PXQRECI")=0
72 S ZTSAVE("VISIT")=""
73 S ZTSAVE("IEN")=""
74 D ^%ZTLOAD
75 W !,"Task number is "_ZTSK
76 Q
77QUE5E ;--VISIT IEN-EXPANDED
78 S ZTDESC="PCE DEBUGGING UTILITIES VISIT IEN-EXPANDED"
79 S ZTRTN="EXP5E^PXQMAIN1"
80 S ZTSAVE("PXQRECI")=0
81 S ZTSAVE("VISIT")=""
82 S ZTSAVE("IEN")=""
83 D ^%ZTLOAD
84 W !,"Task number is "_ZTSK
85 Q
86QUE5S ;--VISIT IEN-SOURCES
87 S ZTDESC="PCE DEBUGGING UTILITIES VISIT IEN-SOURCE"
88 S ZTRTN="SOR5S^PXQMAIN1"
89 S ZTSAVE("PXQRECI")=0
90 S ZTSAVE("VISIT")=""
91 S ZTSAVE("IEN")=""
92 D ^%ZTLOAD
93 W !,"Task number is "_ZTSK
94 Q
95QUE5A ;--VISIT IEN-ALL
96 S ZTDESC="PCE DEBUGGING UTILITIES VISIT IEN-ALL"
97 S ZTRTN="ALL5A^PXQMAIN1"
98 S ZTSAVE("PXQRECI")=0
99 S ZTSAVE("VISIT")=""
100 S ZTSAVE("IEN")=""
101 D ^%ZTLOAD
102 W !,"Task number is "_ZTSK
103 Q
104QUE6D ;--ENCOUNTER IEN-DEPENDENT ENTRIES
105 S ZTDESC="PCE DEBUGGING UTILITIES ENCOUNTER IEN-DEPENDENT ENTRIES"
106 S ZTRTN="DEC6D^PXQMAIN3"
107 S ZTSAVE("PXQRECI")=0
108 S ZTSAVE("VISIT")=""
109 S ZTSAVE("IEN")=""
110 D ^%ZTLOAD
111 W !,"Task number is "_ZTSK
112 Q
113QUE6E ;--ENCOUNTER IEN-EXPANDED
114 S ZTDESC="PCE DEBUGGING UTILITIES ENCOUNTER IEN-EXPANDED"
115 S ZTRTN="EXP6E^PXQMAIN3"
116 S ZTSAVE("PXQRECI")=0
117 S ZTSAVE("VISIT")=""
118 S ZTSAVE("IEN")=""
119 D ^%ZTLOAD
120 W !,"Task number is "_ZTSK
121 Q
122QUE6S ;--ENCOUNTER IEN-SOURCES
123 S ZTDESC="PCE DEBUGGING UTILITIES ENCOUNTER IEN-SOURCE"
124 S ZTRTN="SOR6S^PXQMAIN3"
125 S ZTSAVE("PXQRECI")=0
126 S ZTSAVE("VISIT")=""
127 S ZTSAVE("IEN")=""
128 D ^%ZTLOAD
129 W !,"Task number is "_ZTSK
130 Q
131QUE6A ;--ENCOUNTER IEN-ALL
132 S ZTDESC="PCE DEBUGGING UTILITIES ENOCUNTER IEN-ALL"
133 S ZTRTN="ALL6A^PXQMAIN3"
134 S ZTSAVE("PXQRECI")=0
135 S ZTSAVE("VISIT")=""
136 S ZTSAVE("IEN")=""
137 D ^%ZTLOAD
138 W !,"Task number is "_ZTSK
139 Q
140QUE7 ;--PCE/VISIT PARAMETER SETUP
141 S ZTDESC="PCE DEBUGGING UTILITIES PCE/VISIT PARAMETERS SETUP"
142 S ZTRTN="SET7^PXQMAIN"
143 S ZTSAVE("PXQRECI")=0
144 D ^%ZTLOAD
145 W !,"Task number is "_ZTSK
146 Q
147QUE9P ;--PATIENT/IHS AND LOCATION FILES
148 S ZTDESC="PCE DEBUGGING UTILITIES PATIENT FILES"
149 S ZTRTN="PAT9P^PXQMAIN2"
150 S ZTSAVE("PXQRECI")=0
151 D ^%ZTLOAD
152 W !,"Task number is "_ZTSK
153 Q
154QUE9L ;--PATIENT/IHS AND LOCATION FILES
155 S ZTDESC="PCE DEBUGGING UTILITIES LOCATION FILES"
156 S ZTRTN="LOC9L^PXQMAIN2"
157 S ZTSAVE("PXQRECI")=0
158 D ^%ZTLOAD
159 W !,"Task number is "_ZTSK
160 Q
161QUE10 ;--USER VISIT REVIEW
162 S ZTDESC="PCE DEBUGGING UTILITIES USER VISIT REVIEW"
163 S ZTRTN="REPORT^PXQMAIN4"
164 S ZTSAVE("PXQRECI")=0
165 S ZTSAVE("VISIT")=""
166 S ZTSAVE("PXQFORM")=""
167 S ZTSAVE("IEN")=""
168 D ^%ZTLOAD
169 W !,"Task number is "_ZTSK
170 Q
171SAVE D:DGZTSAVE["#" ARRAY F DGI=1:1 S DGVAR=$P(DGZTSAVE,"^",DGI) Q:DGVAR']"" I '$D(ZTSAVE(DGVAR)) S ZTSAVE(DGVAR)="" S:$E(DGVAR,$L(DGVAR))="(" ZTSAVE($E(DGVAR,1,($L(DGVAR)-1)))=""
172 Q
173ARRAY F DGJ=1:1:$L(DGZTSAVE) I $E(DGZTSAVE,DGJ)="#" S DGZTSAVE=$E(DGZTSAVE,1,(DGJ-1))_"("_$E(DGZTSAVE,DGJ+1,$L(DGZTSAVE))
174 Q
175CLOSE Q:$D(ZTQUEUED) N POP D ^%ZISC
176END K ZTSK,ZTDESC,ZTRTN,ZTREQ,ZTSAVE,ZTIO,ZTDTH,ZTUCI,DGUTQND,DGVAR,VAR,DGPGM,PGM,DGZTSAVE,DGI,IO("Q"),IO("C")
177 Q
178DQ D @($S($D(DGPGM):DGPGM,$D(PGM):PGM,1:"CLOSE"))
179 D KILL^%ZTLOAD,CLOSE
180 Q
181DTQ I $D(ZTSK("D")) S DGX=ZTSK("D"),%H=$P(DGX,",") D YMD^%DTC S DGX=$P(DGX,",",2),Z=X_((DGX#3600\60)/100+(DGX\3600)/100) ;Find time queued
182 Q
Note: See TracBrowser for help on using the repository browser.