source: FOIAVistA/trunk/r/ENGINEERING-EN/ENJINJ3.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1ENJINJ3 ;(WASH ISC)/JA/TJK-Screen Input ;2.26.97
2 ;;7.0;ENGINEERING**35**;;Aug 17, 1993
3 ; Modified with **35** to handle escape sequences (ex: arrow keys)
4Z ;
5 S DJSM=0,DJLG=+DJJ(V)+1
6 D INITKB^XGF($C(9,13)) S X=$$READ^XGF("") S DJZ='$D(DTOUT) S:'DJZ X="^"
7 I X="",$G(XGRT)]"" D
8 . ; can only use jump navigation when data not entered in field
9 . I "UP^LEFT"[XGRT D Q
10 . . ; jump to previous field that is not read-only
11 . . N I,J,K
12 . . S I=V,K=0 F S I=$O(^ENG(6910.9,DJN,1,"A",I),-1) Q:I<1 D Q:K
13 . . . S J=$O(^ENG(6910.9,DJN,1,"A",I,0))
14 . . . I '$P($G(^ENG(6910.9,DJN,1,J,0)),U,7) S K=I
15 . . S X="^"_$S(K:K,1:V)
16 . I XGRT="PREV" S X="^U" Q
17 . I XGRT="NEXT" S X="^D" Q
18 S:X="" DJSM=1
19 D RESETKB^XGF
20 ;
21Z1 I $L(X)>(DJLG-1) W @IOBS," ",*7 X XY S:'$D(V(V)) V(V)="" D B:V(V)'="",D:V(V)="" W V(V) W:$D(DJDB) DJDB K DJDB X XY G Z
22 I X?1"^".E!(X?1"?".E) S:'$D(V(V)) V(V)="" D B:V(V)'="",D:V(V)="" X XY W @DJHIN X XY W V(V) W:$D(DJDB) DJDB W @DJLIN K DJDB X XY Q
23 Q
24N R !,"Repaint screen(Y/N): N//",DJX:DTIME I DJX["?" W !,*7,"Please enter 'Y'es or 'N'o." G N
25 Q:"Yy"'[$E(DJX)!(DJX="") S DJSV=V D N^ENJDPL S V=DJSV Q
26B S $P(DJDB," ",DJJ(V)-$L(V(V)))="" Q
27D S $P(DJDB,".",DJJ(V))="." Q
Note: See TracBrowser for help on using the repository browser.