| 1 | ENJMUL ;(WASH ISC)/JA-Multiple Stack Driver (Screens) ;5-29-91
|
|---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | K DJW2,DJK1 G EN3^ENJINJ:X?1"^".N,TK^ENJINJ:X=""!($E(X,1)="^") S:X="@" DJK1=1 S:X=" "!(X="@") X=V(V)
|
|---|
| 4 | S DJST=DJST+1,^TMP($J,"DJST",DJST,"DA")=V(V,"DA"),^TMP($J,"DJST",DJST,"SC")=$O(^ENG(6910.9,"B",$P(DJJ(V),U,6),0)),^TMP($J,"DJST",DJST-1,"LOC")=V,^TMP($J,"DJST",DJST,"DD")=V(V,"DD"),^TMP($J,"DJST",DJST,"GN")=V(V,"GN")
|
|---|
| 5 | S ^TMP($J,"DJST",DJST,"FRSC")=DJN,^TMP($J,"DJST",DJST,"DIC")=^TMP($J,"DJST",DJST-1,"DIC")_^TMP($J,"DJST",DJST-1,"DA")_","_V(V,"GN")_","
|
|---|
| 6 | S DJZ=DJST F DJK=1:1:DJST-1 S DJZ=DJZ-1,DA(DJZ)=^TMP($J,"DJST",DJK,"DA")
|
|---|
| 7 | S DJNM=$P(^ENG(6910.9,^TMP($J,"DJST",DJST,"SC"),0),U,1),DIC=^TMP($J,"DJST",DJST,"DIC") S:$D(@(DIC_0_")"))=0 @(DIC_0_")")="^"_^TMP($J,"DJST",DJST,"DD")_"^^" K DJDN
|
|---|
| 8 | S DIC(0)="EQZM" S:'$D(DJDIS) DIC(0)=DIC(0)_"L" X DJCP D ^DIC G D:$D(DJK1) I X["?" X DJCL S:DJ4["S" DJT=DJDD,DJDD=+DJ4,DJY=DJAT,DJAT=.01 D ^ENJINQ:DJ4["S"!(DJ4["D") S:DJ4["S" DJDD=DJT,DJAT=DJY
|
|---|
| 9 | I Y>0,$P(DJJ(V),U,7)=1 S V(V)=X S @$P(DJJ(V),U,2) X XY W @DJHIN X XY S $P(DJDB," ",DJJ(V)-$L(V(V)))=" " W V(V),DJDB,@DJLIN K DJDB G A
|
|---|
| 10 | I $Y>23 R !,"Type <CR> to continue",DJZ1:DTIME K DJZ1
|
|---|
| 11 | I Y>0 D SAVE K V,DJMUL S DA=+Y,DJDN=+Y,^TMP($J,"DJST",DJST,"DA")=DA,@("D"_(DJST-1)_"="_DA) D ^ENJDPL S (W(V),V(V))=DJDN D ^ENJC2 S ^TMP($J,"DJST",DJST-1,"KEY")=V(DJKEY) D EN^ENJINJ S DJW2=1
|
|---|
| 12 | A S DJN=^TMP($J,"DJST",DJST,"FRSC") S DJST=DJST-1 S DJNM=$P(^ENG(6910.9,DJN,0),"^",1),DIC=^TMP($J,"DJST",DJST,"DIC") S DJDN=^TMP($J,"DJST",DJST,"DA")
|
|---|
| 13 | K DA S DJZ=DJST I $D(DJW2),DJST>1 F DJK=1:1:DJST-1 S DJZ=DJZ-1,DA(DJZ)=^TMP($J,"DJST",DJK,"DA")
|
|---|
| 14 | I $D(DJW2),DJST>1 F DJK=0:1:DJST-2 S @("D"_DJK)=^TMP($J,"DJST",DJK+1,"DA")
|
|---|
| 15 | I $D(DJW2) D REST S V=^TMP($J,"DJST",DJST,"LOC"),V(V)=^TMP($J,"DJST",DJST,"KEY") D ^ENJDPL K DJZ,DJW2 G N
|
|---|
| 16 | N S DJFF=0,V=^TMP($J,"DJST",DJST,"LOC") G TK^ENJINJ
|
|---|
| 17 | SAVE S %X="V(",%Y="^TMP($J,""DJ"",DJN," D %XY^%RCR K V Q
|
|---|
| 18 | REST K V S %X="^TMP($J,""DJ"",DJN,",%Y="V(" D %XY^%RCR Q
|
|---|
| 19 | D I Y>0 X DJCP W !,"ARE YOU SURE YOU WANT TO DELETE: NO// ",*7 R DJX:10 G:DJX'["Y" D1 S DA=+Y,DR=".01///@" S DIE=DIC D ^DIE K DJK1 S V(V)="" G A
|
|---|
| 20 | D1 X DJCL W "NOTHING DELETED" G A
|
|---|
