PXQUTL2.m

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

MENU ;---MENU

 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 ---PXQUTL2   1798     printed  Apr 09, 2024@21:29:07                                                                                                                                                                                                     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 

MENU      ;---MENU

 +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