- 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 Jan 18, 2025@03:31:17 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