source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVGGG1.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1ABSVGGG1 ;EAP ALTOONA ;9/24/97 3:08 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;**7**;JULY 1994;
3 W:'$D(DUZ) !,"NO DUZ DEFINED, CALL IRM!!!"
4 Q:'$D(DUZ)
5 S DIR(0)="SO^1:FACILITY;2:STATE;3:VISN;4:ALL"
6 S DIR("L",1)=" Select one of the following:"
7 S DIR("L",2)=" "
8 S DIR("L",3)=" 1 FACILITY"
9 S DIR("L",4)=" 2 STATE"
10 S DIR("L",5)=" 3 VISN"
11 S DIR("L")=" 4 ALL"
12 S DIR("?")="Enter a code from the list"
13 D ^DIR K DIR G:$D(DIRUT) END
14 S X="Remember, the output from this report is designed to be displayed/printed in 132 column format. Anything less may be unreadable.*!" D MSG^ABSVQ
15 S TYPE=+Y D @TYPE Q:'$D(BY)
16 S DIC="^ABS(503339.2,",L=0,FLDS="[ABSV DIRECTORY PRINT]" D EN1^DIP
17END K ALT2,K,POP,T,DIC,L,BY,FLDS,DIRUT,DIR(0),DIR("L")
18 K FO,FI,ON,SI,TH,TW,ZN,TYPE
19 QUIT
201 S DIC=503339.2,DIC(0)="AEMNZQ",DIC("A")="Select Facility Identifier: " D ^DIC
21 I Y<0 D NO QUIT
22 S BY=".01",(FR,TO)=$P(Y,"^",2) QUIT
232 S DIC=5,DIC(0)="AEMNZQ" D ^DIC
24 I Y<0 D NO QUIT
25 S BY="6",(FR,TO)=$P(Y,"^",2) QUIT
263 S DIR(0)="NA^1:22:0",DIR("A")="Select VISN Number: "
27 D ^DIR
28 K DIR
29 I $$DIR^ABSVU2 QUIT
30 S BY="2",(FR,TO)=+Y QUIT
314 S BY=1,FR="A",TO="ZZZ" QUIT
32NO S X="No Selection Made, Option Terminating!*" D MSG^ABSVQ QUIT
Note: See TracBrowser for help on using the repository browser.