| 1 | DDS3 ;SFISC/MLH-COMMAND UTILS ;9:02 AM 6 Feb 1996
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | I Y(0)]"","ECNRS"[$E(Y(0)) D @$E(Y(0))
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | S ;Save the form
|
|---|
| 8 | D ^DDS4,R^DDSR
|
|---|
| 9 | D:$D(DDSBR)#2 BR^DDS2
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | R ;Repaint all pages on current screen
|
|---|
| 13 | ;Called after wp, mults, and deletions
|
|---|
| 14 | G R^DDSR
|
|---|
| 15 | ;
|
|---|
| 16 | E ;
|
|---|
| 17 | I DDSSC>1!'DDSCHG!$P(DDSSC(DDSSC),U,4) S DDACT="Q" Q
|
|---|
| 18 | S DDM=1
|
|---|
| 19 | K DIR S DIR(0)="YO"
|
|---|
| 20 | S DIR("A")=$$EZBLD^DIALOG(8075)
|
|---|
| 21 | D BLD^DIALOG(9037,"","","DIR(""?"")")
|
|---|
| 22 | S DIR0=IOSL-1_U_($L(DIR("A"))+1)_"^3^"_(IOSL-1)_"^0"
|
|---|
| 23 | D ^DIR
|
|---|
| 24 | K DIR,DUOUT,DIROUT,DIRUT
|
|---|
| 25 | ;
|
|---|
| 26 | I Y=0!$D(DTOUT)!$D(DUOUT) D QT Q
|
|---|
| 27 | I Y="" S DDACT="N" Q
|
|---|
| 28 | I Y=1 D EX
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | C ;Close
|
|---|
| 32 | S DDACT="Q"
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | N ;Next page
|
|---|
| 36 | S:DDSNP]"" DDSPG=DDSNP,DDACT="NP"
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | QT ;Exit, don't save
|
|---|
| 40 | I $G(DDSDN)=1,DDO G ERR3
|
|---|
| 41 | S DDACT="Q"
|
|---|
| 42 | I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D MSG1 Q
|
|---|
| 43 | Q:'DDSCHG
|
|---|
| 44 | D DEL^DDS6
|
|---|
| 45 | S DX=0,DY=IOSL-1 X IOXY
|
|---|
| 46 | W $P(DDGLCLR,DDGLDEL),$S($D(DTOUT):$$EZBLD^DIALOG(8076),1:"")_$$EZBLD^DIALOG(8077) H 1
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | EX ;Exit, save
|
|---|
| 50 | I $G(DDSDN)=1,DDO G ERR3
|
|---|
| 51 | S DDACT="Q"
|
|---|
| 52 | I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D MSG1 Q
|
|---|
| 53 | D ^DDS4 I 'Y S DDACT="N" D R D:$D(DDSBR)#2 BR^DDS2
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | CL ;Close
|
|---|
| 57 | I $G(DDSDN)=1,DDO G ERR3
|
|---|
| 58 | G E
|
|---|
| 59 | ;
|
|---|
| 60 | TO ;Time-out
|
|---|
| 61 | I DDO,$G(DDSDN) S DDACT="N" G CURSOR^DDS01
|
|---|
| 62 | I DDO S DDSOSV=DDO,DDO=0
|
|---|
| 63 | E D E
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | MSG1 ;Print closing page message
|
|---|
| 67 | S DX=0,DY=IOSL-1 X IOXY
|
|---|
| 68 | W $P(DDGLCLR,DDGLDEL)_"Closing page..." H 1
|
|---|
| 69 | Q
|
|---|
| 70 | ;
|
|---|
| 71 | ERR3 ;
|
|---|
| 72 | D MSG^DDSMSG("Since navigation for the block is disabled, that key sequence is disabled.",1)
|
|---|
| 73 | S DDACT="N"
|
|---|
| 74 | Q
|
|---|
| 75 | ;
|
|---|
| 76 | ;#8075 Save changes before leaving form (Y/N)?
|
|---|
| 77 | ;#8076 Time out.
|
|---|
| 78 | ;#8077 Changes not saved!
|
|---|
| 79 | ;#9037 Enter 'Y' to save before exiting...(3 lines)
|
|---|
