| 1 | PXQUTL2 ;ISL/JVS - Utility routine ;5/1/97 08:46
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**4,29**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | EN1 ;--ENTRY POINT
|
|---|
| 7 | S PXQ=PXQFORM
|
|---|
| 8 | I FLENUM=9000010,PXQFORM[.01 S PXQ=".01;.22"
|
|---|
| 9 | I FLENUM=409.68,PXQFORM[.01 S PXQ=".01;.04;.08"
|
|---|
| 10 | D GETS^DIQ(FLENUM,VISIT_",",PXQ,"EN","PXQDATA","PXQDATA")
|
|---|
| 11 | D PRINT^PXQUTL1
|
|---|
| 12 | K PXQDATA
|
|---|
| 13 | Q
|
|---|
| 14 | DATE ;--DATE RANGE
|
|---|
| 15 | W !
|
|---|
| 16 | N X,Y,DIR
|
|---|
| 17 | I $D(^DISV(DUZ,"PXQUTL2-START")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-START"))
|
|---|
| 18 | S DIR("A")="Enter Starting Date (eg. T-4) : "
|
|---|
| 19 | S DIR(0)="DAO" D ^DIR
|
|---|
| 20 | I X["^" Q
|
|---|
| 21 | S PXQSTART=$G(Y)
|
|---|
| 22 | S ^DISV(DUZ,"PXQUTL2-START")=$G(Y(0))
|
|---|
| 23 | I $D(^DISV(DUZ,"PXQUTL2-END")) S DIR("B")=$G(^DISV(DUZ,"PXQUTL2-END"))
|
|---|
| 24 | S DIR("A")="Enter Ending Date : "
|
|---|
| 25 | S DIR(0)="DAO" D ^DIR
|
|---|
| 26 | I X["^" Q
|
|---|
| 27 | S PXQEND=$G(Y)
|
|---|
| 28 | S ^DISV(DUZ,"PXQUTL2-END")=$G(Y(0))
|
|---|
| 29 | I PXQSTART>PXQEND W !,"Starting Date cannot be before Ending date" G DATE
|
|---|
| 30 | Q
|
|---|
| 31 | MENU ;---MENU
|
|---|
| 32 | N Y,X,DIR
|
|---|
| 33 | S DIR("A")="OPTION"
|
|---|
| 34 | 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"
|
|---|
| 35 | D ^DIR
|
|---|
| 36 | I Y="D" N PXQRECI S PXQRECI=0 D DEPEN^PXQMAIN G MENU
|
|---|
| 37 | I Y="EX" N PXQRECI S PXQRECI=0 D EXPAND^PXQMAIN G MENU
|
|---|
| 38 | I Y="I" N PXQRECI S PXQRECI=0 D INTER^PXQMAIN G MENU
|
|---|
| 39 | I Y="S" N PXQRECI S PXQRECI=0 D SOURCE^PXQMAIN G MENU
|
|---|
| 40 | I Y="V" N PXQRECI S PXQRECI=0 D ASK^PXQMAIN1 G MENU
|
|---|
| 41 | I Y="E" N PXQRECI S PXQRECI=0 D ASKENC^PXQMAIN3 G MENU
|
|---|
| 42 | I Y="P" N PXQRECI S PXQRECI=0 D SETUP^PXQMAIN G MENU
|
|---|
| 43 | I Y="M" N PXQRECI S PXQRECI=0 D MAX^PXQMAIN G MENU
|
|---|
| 44 | I Y="PA" N PXQRECI S PXQRECI=0 D MENU^PXQMAIN2 G MENU
|
|---|
| 45 | I Y="U" K DIR,Y,X D REPT^PXQMAIN4 K DIR,X,Y G MENU
|
|---|
| 46 | I Y="C" K DIR,Y,X D T^PXQUTL3 K Y G MENU
|
|---|
| 47 | E K DIR Q
|
|---|
