source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXQUTL2.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1PXQUTL2 ;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
6EN1 ;--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
14DATE ;--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
31MENU ;---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
Note: See TracBrowser for help on using the repository browser.