PXQUTL2 ;ISL/JVS - Utility routine ;5/1/97 08:46
;;1.0;PCE PATIENT CARE ENCOUNTER;**4,29**;Aug 12, 1996
;
;
Q
EN1 ;--ENTRY POINT
S PXQ=PXQFORM
I FLENUM=9000010,PXQFORM[.01 S PXQ=".01;.22"
I FLENUM=409.68,PXQFORM[.01 S PXQ=".01;.04;.08"
D GETS^DIQ(FLENUM,VISIT_",",PXQ,"EN","PXQDATA","PXQDATA")
D PRINT^PXQUTL1
K PXQDATA
Q
DATE ;--DATE RANGE
W !
N X,Y,DIR
I $D(^DISV(DUZ,"PXQUTL2-START")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-START"))
S DIR("A")="Enter Starting Date (eg. T-4) : "
S DIR(0)="DAO" D ^DIR
I X["^" Q
S PXQSTART=$G(Y)
S ^DISV(DUZ,"PXQUTL2-START")=$G(Y(0))
I $D(^DISV(DUZ,"PXQUTL2-END")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-END"))
S DIR("A")="Enter Ending Date : "
S DIR(0)="DAO" D ^DIR
I X["^" Q
S PXQEND=$G(Y)
S ^DISV(DUZ,"PXQUTL2-END")=$G(Y(0))
I PXQSTART>PXQEND W !,"Starting Date cannot be before Ending date" G DATE
Q
N Y,X,DIR
S DIR("A")="OPTION"
S DIR(0)="SOM^D:Dependent Entry Count;EX:Expanded D.E.C.;I:Internal View of Visits;S:Source;V:Visit Ien;E:Encounter Ien;P:Parameter Setups;M:Maximum Global Lengths;PA:Patient/IHS & Location files;U:User's Visit Review;C:Cross-references repair"
D ^DIR
I Y="D" N PXQRECI S PXQRECI=0 D DEPEN^PXQMAIN G MENU
I Y="EX" N PXQRECI S PXQRECI=0 D EXPAND^PXQMAIN G MENU
I Y="I" N PXQRECI S PXQRECI=0 D INTER^PXQMAIN G MENU
I Y="S" N PXQRECI S PXQRECI=0 D SOURCE^PXQMAIN G MENU
I Y="V" N PXQRECI S PXQRECI=0 D ASK^PXQMAIN1 G MENU
I Y="E" N PXQRECI S PXQRECI=0 D ASKENC^PXQMAIN3 G MENU
I Y="P" N PXQRECI S PXQRECI=0 D SETUP^PXQMAIN G MENU
I Y="M" N PXQRECI S PXQRECI=0 D MAX^PXQMAIN G MENU
I Y="PA" N PXQRECI S PXQRECI=0 D MENU^PXQMAIN2 G MENU
I Y="U" K DIR,Y,X D REPT^PXQMAIN4 K DIR,X,Y G MENU
I Y="C" K DIR,Y,X D T^PXQUTL3 K Y G MENU
E K DIR Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXQUTL2 1798 printed Oct 16, 2024@18:30:53 Page 2
PXQUTL2 ;ISL/JVS - Utility routine ;5/1/97 08:46
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**4,29**;Aug 12, 1996
+2 ;
+3 ;
+4 QUIT
EN1 ;--ENTRY POINT
+1 SET PXQ=PXQFORM
+2 IF FLENUM=9000010
IF PXQFORM[.01
SET PXQ=".01;.22"
+3 IF FLENUM=409.68
IF PXQFORM[.01
SET PXQ=".01;.04;.08"
+4 DO GETS^DIQ(FLENUM,VISIT_",",PXQ,"EN","PXQDATA","PXQDATA")
+5 DO PRINT^PXQUTL1
+6 KILL PXQDATA
+7 QUIT
DATE ;--DATE RANGE
+1 WRITE !
+2 NEW X,Y,DIR
+3 IF $DATA(^DISV(DUZ,"PXQUTL2-START"))
SET DIR("B")=$GET(^DISV(DUZ,"PXQUTL2-START"))
+4 SET DIR("A")="Enter Starting Date (eg. T-4) : "
+5 SET DIR(0)="DAO"
DO ^DIR
+6 IF X["^"
QUIT
+7 SET PXQSTART=$GET(Y)
+8 SET ^DISV(DUZ,"PXQUTL2-START")=$GET(Y(0))
+9 IF $DATA(^DISV(DUZ,"PXQUTL2-END"))
SET DIR("B")=$GET(^DISV(DUZ,"PXQUTL2-END"))
+10 SET DIR("A")="Enter Ending Date : "
+11 SET DIR(0)="DAO"
DO ^DIR
+12 IF X["^"
QUIT
+13 SET PXQEND=$GET(Y)
+14 SET ^DISV(DUZ,"PXQUTL2-END")=$GET(Y(0))
+15 IF PXQSTART>PXQEND
WRITE !,"Starting Date cannot be before Ending date"
GOTO DATE
+16 QUIT
+1 NEW Y,X,DIR
+2 SET DIR("A")="OPTION"
+3 SET DIR(0)="SOM^D:Dependent Entry Count;EX:Expanded D.E.C.;I:Internal View of Visits;S:Source;V:Visit Ien;E:Encounter Ien;P:Parameter Setups;M:Maximum Global Lengths;PA:Patient/IHS & Location files;U:User's Visit Review;C:Cross-references repai
r"
+4 DO ^DIR
+5 IF Y="D"
NEW PXQRECI
SET PXQRECI=0
DO DEPEN^PXQMAIN
GOTO MENU
+6 IF Y="EX"
NEW PXQRECI
SET PXQRECI=0
DO EXPAND^PXQMAIN
GOTO MENU
+7 IF Y="I"
NEW PXQRECI
SET PXQRECI=0
DO INTER^PXQMAIN
GOTO MENU
+8 IF Y="S"
NEW PXQRECI
SET PXQRECI=0
DO SOURCE^PXQMAIN
GOTO MENU
+9 IF Y="V"
NEW PXQRECI
SET PXQRECI=0
DO ASK^PXQMAIN1
GOTO MENU
+10 IF Y="E"
NEW PXQRECI
SET PXQRECI=0
DO ASKENC^PXQMAIN3
GOTO MENU
+11 IF Y="P"
NEW PXQRECI
SET PXQRECI=0
DO SETUP^PXQMAIN
GOTO MENU
+12 IF Y="M"
NEW PXQRECI
SET PXQRECI=0
DO MAX^PXQMAIN
GOTO MENU
+13 IF Y="PA"
NEW PXQRECI
SET PXQRECI=0
DO MENU^PXQMAIN2
GOTO MENU
+14 IF Y="U"
KILL DIR,Y,X
DO REPT^PXQMAIN4
KILL DIR,X,Y
GOTO MENU
+15 IF Y="C"
KILL DIR,Y,X
DO T^PXQUTL3
KILL Y
GOTO MENU
+16 IF '$TEST
KILL DIR
QUIT
