source: FOIAVistA/tag/r/ENGINEERING-EN/ENJINQ.m@ 897

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

initial load of FOIAVistA 6/30/08 version

File size: 3.8 KB
Line 
1ENJINQ ;(WASH ISC)/JA/TJK-Help Processor (Screens) ;3-6-92
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3 S D=""
4A S DJX="" X:$Y<16 DJCP
5 I DJ4["R" W "**REQUIRED**",*7
6 ;ADDITIONAL HELP
7 S:'$D(X) X=DJXX G:X'="??" F G:'$D(^DD(DJDD,DJAT,21,0)) F G:'$P(^(0),U,4) F
8 S DJZ1=0,DIWL=0,DIWR=79,DIWF="" K ^UTILITY($J,"W")
9 S DJXX=X F DJK=1:1 S DJZ1=$O(^DD(DJDD,DJAT,21,DJZ1)) Q:DJZ1="" S X=^(DJZ1,0) D ^DIWP
10 S DJZ1=0 F DJK=1:1 S DJZ1=$O(^UTILITY($J,"W",DIWL,DJZ1)) Q:DJZ1="" D:$Y>21 HLD Q:DJX[U W !,^(DJZ1,0)
11 D HLD K DJZ1,DJK,^UTILITY($J,"W",DIWL),DIWL,DIWR,DIWF S X=DJXX G:DJX'[U F Q
12HLD W !,"Type <CR> to continue, uparrow to exit: " R DJX:DTIME X DJCP W ! Q
13CONT R !,"Repaint screen (Y/N): N//",DJX:DTIME I DJX["?" W !,*7,"Please enter 'Y'es or 'N'o." G CONT
14 X DJCP Q:DJX=""!("Yy"'[$E(DJX)) S DJSV=V N DJ0 D N^ENJDPL S V=DJSV Q
15F D:$Y>19 HLD Q:DJX[U I $D(^DD(DJDD,DJAT,3)),^(3)]"" W !,^(3) D HLD Q:DJX[U
16 I $D(^DD(DJDD,DJAT,4)) W ! X ^(4)
17 I DJ4["S",DJ4'["M" D:$Y>21 CONT Q:DJX[U W !,"CHOOSE FROM:" S DJS=$P(^DD(DJDD,DJAT,0),U,3) F DJK=1:1 S Y=$P(DJS,";",DJK) Q:Y="" S Y="'"_$P(Y,":",1)_"' FOR "_$P(Y,":",2) W !,Y
18 ; D DCS^ENJ
19 I DJ4["P" K DIC("S") S DJDIC=DIC,DJD0=D0,DIC(0)=$S(DJ4["'":"MEQZ",1:"MEQZL"),DIC=+$P(DJ4,"P",2) X DJCP X:$P(^DD(DJDD,DJAT,0),U,2)["*" ^(12.1) D ^DIC K DIC D CONT S DIC=DJDIC,D0=DJD0 G:Y<0 R1 S V(V)=$E(Y(0,0),1,+DJJ(V)) G P1
20 I DJ4["D" S:'$D(%DT) %DT="E" D HELP
21 K DJS,DJZ1 I $Y>23 D CONT Q
22 D CONT S @$P(DJJ(V),U,2) X XY W V(V) Q
23P ; D DCS^ENJ
24 K DIC("S") S DJDIC=DIC,DJD0=D0,DIC(0)=$S(DJ4["'":"MEQZ",1:"MEQZL"),DIC=+$P(DJ4,"P",2) X DJCP W X X:$P(^DD(DJDD,DJAT,0),U,2)["*" ^(12.1) D ^DIC K DIC S:+Y>0 V(V)=$E(Y(0,0),1,+DJJ(V)),DIC=DJDIC,D0=DJD0 D CONT G:Y<0 R1
25P1 ;
26 S X=+Y,(DIE,DIC)=DJDIC,DA=DJDN,DR=DJ3_"////"_X X DJCP W ! D ^DIE S D0=DJD0 D PP S V(V)=$E(V(V),1,+DJJ(V)) X:$D(^ENG(6910.9,DJN,1,$O(^ENG(6910.9,DJN,1,"A",V,0)),1)) ^(1)
27 I $Y>23 S DJZ=V D N^ENJDPL S V=DJZ Q
28 S DY=17,DX=0 X XY W @DJEOP S @$P(DJJ(V),U,2) X XY W @DJHIN X XY W V(V),@DJLIN Q
29R1 S DIC=DJDIC
30 S @$P(DJJ(V),U,2) X XY W:$D(V(V)) @DJHIN W:$D(V(V)) V(V) X XY Q
31FUNC ;COMMAND DISPLAY FOR PROGRAM DJINJ
32 X DJCP
33 W @DJHIN X XY W "COMMANDS",@DJLIN,!
34 W "^ -- Quit",?41,"@ -- Delete data"
35 W !,"^nn -- Go to the 'nn' statement",?41,"CR -- Go to the next statement"
36 W !,"^C -- Command menu display",?41,"< -- Go to previous statement"
37 W !,"^N -- New Record",?41,"?? -- For more information about field"
38 W !," -- Space bar, recall previous answer",?41," ? -- Information about field"
39 W !,"^D -- Down page",?41,"^U -- Up page"
40 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
41 H 5 ;Prevent premature erasure
42 Q
43FUNC2 ;COMMAND DISPLAY
44 X DJCP
45 W @DJHIN X XY W "COMMANDS",@DJLIN,!
46 W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
47 W !,"@ -- delete data",?41,"CR -- Go to the next statement"
48 W !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
49 W !,"? -- Help prompt",?41,"?? -- For more information about field"
50 W !,"^C -- Command menu display",?41,"^N -- Next record"
51 W !,"^L -- List current elements"
52 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
53 Q
54HELP ;
55 D:$Y>21 R W !,"EXAMPLES OF VALID DATES:"
56 D:$Y>21 R W !," JAN 22 1957 or 22 JAN 57 or 1/22/57 or 012257"
57 D:$Y>21 R W !," T (FOR TODAY), T+1 (FOR TOMORROW), T+2, T+7, etc."," T-1 (FOR YESTERDAY)"
58 D:$Y>21 R W !," T-3W (3 WEEKS AGO), etc."
59 D:$Y>21 R W !,"IF THE YEAR IS OMITTED, THE COMPUTER USES THE CURRENT YEAR",!
60 D:$Y>21 R I %DT'["X" W "YOU MAY OMIT THE PRECISE DAY, AS: JAN, 1957",!
61 D:$Y>21 R I %DT["T" W "FOLLOW DATE WITH TIME, AS: JAN 22@10, T@10PM, ETC."
62 Q
63R X DJCL W "Type <CR> to continue" R DJX:10 X DJCP
64PP ;
65 S DJZ=+$P($P(^DD(DJDD,DJAT,0),"^",2),"P",2) Q:$P(^DD(DJZ,.01,0),"^",2)'["P"
66P11 I $D(@("^"_$P(^DD(DJZ,.01,0),U,3)_"V(V),0)")) S V(V)=$P(^(0),U,1)
67 S DJZ=+$P($P(^DD(DJZ,.01,0),"^",2),"P",2) Q:$P(^DD(DJZ,.01,0),"^",2)'["P" G P11
Note: See TracBrowser for help on using the repository browser.