| 1 | ABSVGGG1 ;EAP ALTOONA ;9/24/97 3:08 PM
|
|---|
| 2 | V ;;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
|
|---|
| 17 | END 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
|
|---|
| 20 | 1 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
|
|---|
| 23 | 2 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
|
|---|
| 26 | 3 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
|
|---|
| 31 | 4 S BY=1,FR="A",TO="ZZZ" QUIT
|
|---|
| 32 | NO S X="No Selection Made, Option Terminating!*" D MSG^ABSVQ QUIT
|
|---|
