| [613] | 1 | PXBHLP1 ;ISL/JVS - FIRST HELP ROUITINE FOR STOP CODES STP ;5/21/96 11:47
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | ; If you edit the text besure to change the length nest to the TAG
|
|---|
| 7 | ; eg=== ;;4
|
|---|
| 8 | ; you can put a line feed '!' at the end of the last line if necess.
|
|---|
| 9 | ;
|
|---|
| 10 | ;
|
|---|
| 11 | W !,"THIS IS NOT AN ENTRY POINT " Q
|
|---|
| 12 | INTRO ;;6
|
|---|
| 13 | W !,"Enter a STOP CODE associated with this patient ENCOUNTER."
|
|---|
| 14 | W !,"You can enter partial codes or descriptions to receive a short list."
|
|---|
| 15 | W !,"Above is a list of STOP CODES already entered. If there are any"
|
|---|
| 16 | W !,"additional ones, they should be entered at this time."
|
|---|
| 17 | W !," * indicates that the entry had been visited during this session"
|
|---|
| 18 | I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
|
|---|
| 19 | W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and 'selection lists' enter ",IOINHI,"??",IOINLOW,!
|
|---|
| 20 | Q
|
|---|
| 21 | BODY ;;8
|
|---|
| 22 | W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
|
|---|
| 23 | W !
|
|---|
| 24 | W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD stop codes."
|
|---|
| 25 | W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE stop codes."
|
|---|
| 26 | W !
|
|---|
| 27 | W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
|
|---|
| 28 | W !
|
|---|
| 29 | W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active stop codes."
|
|---|
| 30 | Q
|
|---|
| 31 | A ;;4
|
|---|
| 32 | W !,"To ",IOINHI,"ADD",IOINLOW," a STOP CODE Enter one of the following:"
|
|---|
| 33 | W !," STOP CODE (eg. 305)"
|
|---|
| 34 | W !," NAME or PARTIAL NAME of the STOP CODE (eg. AL or ALCOHOL)"
|
|---|
| 35 | W !," Multiple STOP CODES seperated by a comma (eg. 305,121,314,555,654)"
|
|---|
| 36 | Q
|
|---|
| 37 | E ;;0
|
|---|
| 38 | D ;;3
|
|---|
| 39 | W !,"To ",IOINHI,"DELETE",IOINLOW," a STOP CODE Enter one of the following:"
|
|---|
| 40 | W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
|
|---|
| 41 | W !," Multiple ITEM NUMBERS (eg. @1,3,5 or @1-3,6,9)"
|
|---|
| 42 | Q
|
|---|
| 43 | PROMPT ;---Prompt for the help prompt
|
|---|
| 44 | N DIR,OK,POSS
|
|---|
| 45 | D WIN17^PXBCC(PXBCNT)
|
|---|
| 46 | W !!,"Enter '^' to leave HELP CENTER"
|
|---|
| 47 | W !,"Enter a letter or number for additional help: "
|
|---|
| 48 | R Y:DTIME
|
|---|
| 49 | S POSS="aAdD12^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
|
|---|
| 50 | S TAG=$TR(TAG,"ade","ADE")
|
|---|
| 51 | I POSS'[Y!($L(Y)>1) S TAG="BODY"
|
|---|
| 52 | ;
|
|---|
| 53 | Q
|
|---|
| 54 | ROUTINE ;---routine excuted when SELECTION LISTS are selected
|
|---|
| 55 | ;W !,"ROUTINES FOR SELECTION LISTS"
|
|---|
| 56 | 1 ;;10
|
|---|
| 57 | S (Y,DATA,EDATA)=$P($$DOUBLE^PXBGSTP2(WHAT),"^2")
|
|---|
| 58 | Q
|
|---|
