| [613] | 1 | ENJINJ2 ;(WASH ISC)/JA-Display Screen Handler Functions ;9.24.98
|
|---|
| 2 | ;;7.0;ENGINEERING;**55**;Aug 17, 1993
|
|---|
| 3 | ;OPTION LINE
|
|---|
| 4 | FUNC1 ;FUNCTION COMMANDS
|
|---|
| 5 | X DJCP W @DJHIN X XY W "FUNCTIONS",@DJLIN
|
|---|
| 6 | W !!," ^ -- Quit"
|
|---|
| 7 | W:$P(^ENG(6910.9,DJN,0),"^",3)]"" ?41,"U -- Up a page"
|
|---|
| 8 | W !," N -- New record"
|
|---|
| 9 | W:$P(^ENG(6910.9,DJN,0),"^",5)]"" ?41,"D -- Down a page"
|
|---|
| 10 | LST X DJCL W "FUNCTION: ",$S($P(DJJ,U,4)="":"N",1:"D"),"//" R X:DTIME S:'$T X="^" S:X=""!(X["D")!(X["d") X="D" G MOD:X?1"^"1N.N G Q:(X["N"!(X["n"))&(DJP=0) Q:X["N"&(DJP=1)
|
|---|
| 11 | LS1 G:X?1"^" OUT I ((X["D")!(X["d"))&($P(DJJ,U,4)]"")&($D(DJDN)) D SAVE S DJN=$P(DJJ,U,4) S DJN=$O(^ENG(6910.9,"B",DJN,0)) S DJFF=0 D N^ENJDPL Q:$D(DJY) S (DA,W(V))=DJDN D ^ENJC2 G EN2^ENJINJ
|
|---|
| 12 | I (X["D"!(X["d"))&($P(DJJ,U,4)="") S:$P(DJJ,U,2)'="" DJFF=0 G Q
|
|---|
| 13 | G:X["U"!(X["u") PREV
|
|---|
| 14 | G LST
|
|---|
| 15 | MOD I $D(DJJ($P(X,U,2))) S V=$P(X,"^",2) S:DJ4["M"&($D(DJDIS)) DJSW1=1,DJDIS=0 S V=V-.001 G NXT
|
|---|
| 16 | E W *7 G LST
|
|---|
| 17 | PREV G LST:$P(DJJ,U,2)="" S DJN=$P(DJJ,U,2) S:DJN'=+DJN DJN=$O(^ENG(6910.9,"B",DJN,0)) S DJFF=0 D REST D N^ENJDPL G NXT
|
|---|
| 18 | Q I $P(^ENG(6910.9,DJN,0),U,3)'="" F DJK=0:0 S (DJDPL,DJNM)=$P(^ENG(6910.9,DJN,0),U,3),DJN=$O(^ENG(6910.9,"B",DJNM,0)) Q:$P(^ENG(6910.9,DJN,0),U,3)=""
|
|---|
| 19 | K V,DJ0,DJAT,DJDN,DJ3,DJ4,DJQ I '$D(DJW1) D ^ENJDPL G EN2^ENJINJ
|
|---|
| 20 | OUT K DJSV,DJ0,DJAT,DJK,DJDN,DJ3,V,DJJ,DJQ,DIC,DJDD,DX,DY,DJSM,DJDIC,DJKEY S DJFF=0 Q
|
|---|
| 21 | KILL K DB,DC,DE,DG,DH,DI,DK,DL,DM,DP,DR,DW Q
|
|---|
| 22 | SAVE S %X="V(",%Y="^TMP($J,""DJ"",DJN," D %XY^%RCR K V Q
|
|---|
| 23 | REST K V S %X="^TMP($J,""DJ"",DJN,",%Y="V(" D %XY^%RCR Q
|
|---|
| 24 | NXT G NXT^ENJINJ
|
|---|
