| 1 | AAQJUTL ;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."
|
|---|
| 7 | ASK 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
|
|---|
| 11 | GET ;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
|
|---|
| 21 | QUE S AAQX="P",ZTRTN="DQ^AAQJUTL",ZTDESC="Patch Documentation",ZTSAVE("AAQ*")="" D ^%ZTLOAD G EXIT
|
|---|
| 22 | DQ 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
|
|---|
| 25 | TST ; 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
|
|---|
| 30 | LOOP 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
|
|---|
| 35 | EXIT 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
|
|---|
| 37 | RET R !!,"Press RETURN to Continue, '^' to Exit: ",X:DTIME D:X["^" UPOUT
|
|---|
| 38 | D HDR
|
|---|
| 39 | Q
|
|---|
| 40 | HDR Q:AAQOUT=1 W @IOF S AAQPG=AAQPG+1 W !!,AAQHDT,?30,AAQJNAM,?65,AAQUCI,?70,"PAGE ",AAQPG,!! S $Y=5 Q
|
|---|
| 41 | UPOUT S AAQOUT=1 W @IOF S $Y=1
|
|---|
| 42 | Q
|
|---|
