source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQJUTL.m@ 701

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1AAQJUTL ;FGO/JHS - Patch Documentation Utility ;05-27-99 [10/27/99 11:15pm]
2 ;;1.4;AAQJ PATCH RECORD;; May 14, 1999
3 W !,"On-Line Documentation for Patch Record and Simple Patch."
4 W !!,"The documentation can be viewed on a display terminal,",!,"using FileMan Browser or queued to a printer."
5 W !!,"Arrow keys can be used to scroll up and down through the text.",!,"For Browser functions, use: F1 key on a PC. PF1 on a dumb terminal."
6 W !,"Use F1 (or PF1) 'H' for Help and F1 'E' to Exit the Document."
7ASK S AAQOUT=0 R !!,"Do you want to (P)rint or (V)iew?: V// ",AAQX:60 G:AAQX="^" EXIT W:$E(AAQX,1)="P" "rint" W:$E(AAQX,1)="V" "iew"
8 I (AAQX="")!(AAQX="V") S AAQX="V"
9 I AAQX?1L.E S AAQX=$$UP^XLFSTR(AAQX)
10 I $E(AAQX,1)'="P",$E(AAQX,1)'="V" W !!,"Enter the letter P or V, `^' to quit." G ASK
11GET ;Get a document to display or print
12 K DIC S DIC="^DIZ(437016.9,",DIC(0)="AEMQ",D="B",DZ="??" D DQ^DICQ
13 K DIC S DIC="^DIZ(437016.9,",DIC(0)="AEMQ",DIC("A")="Enter the Name of the Document: " D ^DIC W ! I Y<0 W $C(7),!,"No Document selected. Exiting." G EXIT
14 S AAQJ=+Y,AAQJNAM=$P(Y,U,2)
15 S:AAQX="P" IOP="Q",%ZIS="QN" D ^%ZIS Q:POP I $D(IO("Q")) G QUE
16 S AAQX="V",IOP="HOME" D ^%ZIS Q:POP
17 ;;S DDBRTIEN=IOST(0),X="IOTM;IOBM;IOSTBM;IORI" D ENDR^%ZISS
18 ;;S AAQX="V",%ZIS=0,%ZIS("B")="BROWSER" D ^%ZIS Q:POP
19 ;;S AAQX="V",IOP="BROWSER" D ^%ZIS Q:POP
20 G DQ
21QUE S AAQX="P",ZTRTN="DQ^AAQJUTL",ZTDESC="Patch Documentation",ZTSAVE("AAQ*")="" D ^%ZTLOAD G EXIT
22DQ U IO
23 S AAQPG=0 D UCI^%ZOSV S AAQUCI=$P(Y,",",1),AAQDT=$$NOW^XLFDT,AAQHDT=$$FMTE^XLFDT(AAQDT)
24 I AAQX="P" D HDR G LOOP
25TST ; This is a Test to see if your terminal will work with Browser.
26 I '$$TEST^DDBRT D Q
27 .W $C(7),!,?20,"Terminal cannot support a scroll region and reverse index.",!,?20,"Please contact IRM to see if they can correct this problem."
28 .Q
29 ;;I '$$TEST^DDBRT W $C(7),!,?20,"Terminal cannot support a scroll region and reverse index.",!,?20,"Please contact IRM to see if they can correct this problem." G EXIT
30LOOP D HDR F N1=0:0 S N1=$O(^DIZ(437016.9,AAQJ,1,N1)) Q:AAQOUT=1 G:N1'>0 EXIT S X=^DIZ(437016.9,AAQJ,1,N1,0) D
31 .W !,X
32 .I IOST["C-",$Y+3>IOSL D RET
33 .I IOST["P-",$Y+6>IOSL D HDR
34 .Q
35EXIT K %,%L,%X,%Y,%ZIS,AAQDT,AAQHDT,AAQJ,AAQJNAM,AAQOUT,AAQPG,AAQUCI,AAQX,D,DIC,DIZ,DZ,IOP,N1,POP,X,Y,ZTDESC,ZTRTN,ZTSAVE
36 D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@" Q
37RET R !!,"Press RETURN to Continue, '^' to Exit: ",X:DTIME D:X["^" UPOUT
38 D HDR
39 Q
40HDR Q:AAQOUT=1 W @IOF S AAQPG=AAQPG+1 W !!,AAQHDT,?30,AAQJNAM,?65,AAQUCI,?70,"PAGE ",AAQPG,!! S $Y=5 Q
41UPOUT S AAQOUT=1 W @IOF S $Y=1
42 Q
Note: See TracBrowser for help on using the repository browser.