PXBHLP1 ;ISL/JVS - FIRST HELP ROUITINE FOR STOP CODES STP ;5/21/96 11:47
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;
;
;
; If you edit the text besure to change the length nest to the TAG
; eg=== ;;4
; you can put a line feed '!' at the end of the last line if necess.
;
;
W !,"THIS IS NOT AN ENTRY POINT " Q
INTRO ;;6
W !,"Enter a STOP CODE associated with this patient ENCOUNTER."
W !,"You can enter partial codes or descriptions to receive a short list."
W !,"Above is a list of STOP CODES already entered. If there are any"
W !,"additional ones, they should be entered at this time."
W !," * indicates that the entry had been visited during this session"
I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and 'selection lists' enter ",IOINHI,"??",IOINLOW,!
Q
BODY ;;8
W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
W !
W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD stop codes."
W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE stop codes."
W !
W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
W !
W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active stop codes."
Q
A ;;4
W !,"To ",IOINHI,"ADD",IOINLOW," a STOP CODE Enter one of the following:"
W !," STOP CODE (eg. 305)"
W !," NAME or PARTIAL NAME of the STOP CODE (eg. AL or ALCOHOL)"
W !," Multiple STOP CODES seperated by a comma (eg. 305,121,314,555,654)"
Q
E ;;0
D ;;3
W !,"To ",IOINHI,"DELETE",IOINLOW," a STOP CODE Enter one of the following:"
W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
W !," Multiple ITEM NUMBERS (eg. @1,3,5 or @1-3,6,9)"
Q
PROMPT ;---Prompt for the help prompt
N DIR,OK,POSS
D WIN17^PXBCC(PXBCNT)
W !!,"Enter '^' to leave HELP CENTER"
W !,"Enter a letter or number for additional help: "
R Y:DTIME
S POSS="aAdD12^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
S TAG=$TR(TAG,"ade","ADE")
I POSS'[Y!($L(Y)>1) S TAG="BODY"
;
Q
ROUTINE ;---routine excuted when SELECTION LISTS are selected
;W !,"ROUTINES FOR SELECTION LISTS"
1 ;;10
S (Y,DATA,EDATA)=$P($$DOUBLE^PXBGSTP2(WHAT),"^2")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXBHLP1 2296 printed Nov 22, 2024@17:36:54 Page 2
PXBHLP1 ;ISL/JVS - FIRST HELP ROUITINE FOR STOP CODES STP ;5/21/96 11:47
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;
+3 ;
+4 ;
+5 ; If you edit the text besure to change the length nest to the TAG
+6 ; eg=== ;;4
+7 ; you can put a line feed '!' at the end of the last line if necess.
+8 ;
+9 ;
+10 WRITE !,"THIS IS NOT AN ENTRY POINT "
QUIT
INTRO ;;6
+1 WRITE !,"Enter a STOP CODE associated with this patient ENCOUNTER."
+2 WRITE !,"You can enter partial codes or descriptions to receive a short list."
+3 WRITE !,"Above is a list of STOP CODES already entered. If there are any"
+4 WRITE !,"additional ones, they should be entered at this time."
+5 WRITE !," * indicates that the entry had been visited during this session"
+6 IF $GET(WHAT)="INTV"
WRITE !,"a '^^' (double up arrow) will take you out of the interview"
+7 WRITE !,"For more detailed ",IOINHI,"HELP",IOINLOW," and 'selection lists' enter ",IOINHI,"??",IOINLOW,!
+8 QUIT
BODY ;;8
+1 WRITE !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
+2 WRITE !
+3 WRITE !," ",IOINHI,"A",IOINLOW," to get help on how to ADD stop codes."
+4 WRITE !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE stop codes."
+5 WRITE !
+6 WRITE !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
+7 WRITE !
+8 WRITE !," ",IOINHI,"1",IOINLOW," to get a list of ALL active stop codes."
+9 QUIT
A ;;4
+1 WRITE !,"To ",IOINHI,"ADD",IOINLOW," a STOP CODE Enter one of the following:"
+2 WRITE !," STOP CODE (eg. 305)"
+3 WRITE !," NAME or PARTIAL NAME of the STOP CODE (eg. AL or ALCOHOL)"
+4 WRITE !," Multiple STOP CODES seperated by a comma (eg. 305,121,314,555,654)"
+5 QUIT
E ;;0
D ;;3
+1 WRITE !,"To ",IOINHI,"DELETE",IOINLOW," a STOP CODE Enter one of the following:"
+2 WRITE !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
+3 WRITE !," Multiple ITEM NUMBERS (eg. @1,3,5 or @1-3,6,9)"
+4 QUIT
PROMPT ;---Prompt for the help prompt
+1 NEW DIR,OK,POSS
+2 DO WIN17^PXBCC(PXBCNT)
+3 WRITE !!,"Enter '^' to leave HELP CENTER"
+4 WRITE !,"Enter a letter or number for additional help: "
+5 READ Y:DTIME
+6 SET POSS="aAdD12^"
IF POSS[Y
IF $LENGTH(Y)=1!(Y="")
SET TAG=Y
+7 SET TAG=$TRANSLATE(TAG,"ade","ADE")
+8 IF POSS'[Y!($LENGTH(Y)>1)
SET TAG="BODY"
+9 ;
+10 QUIT
ROUTINE ;---routine excuted when SELECTION LISTS are selected
+1 ;W !,"ROUTINES FOR SELECTION LISTS"
1 ;;10
+1 SET (Y,DATA,EDATA)=$PIECE($$DOUBLE^PXBGSTP2(WHAT),"^2")
+2 QUIT
