- PXBHLP2 ;ISL/JVS - FIRST HELP ROUITINE FOR PROVIDERS ;5/21/96 11:48
- ;;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 PROVIDER associated with this patient ENCOUNTER."
- W !,"You can enter partial names to receive a short list."
- W !,"Above is a list of PROVIDERS already entered. If there are any"
- W !,"additional ones, they should be entered at this time."
- W !," * indicates that the entry has 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 ;;11
- 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 providers."
- W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE providers."
- W !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT providers."
- W !
- W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
- W !
- W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active providers."
- W !," ",IOINHI,"2",IOINLOW," to get a list of CLINIC providers."
- W !," ",IOINHI,"3",IOINLOW," to get a list of ENCOUNTER FORM providers."
- Q
- A ;;3
- W !,"To ",IOINHI,"ADD",IOINLOW," a PROVIDER enter one of the following:"
- W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
- W !," PARTIAL LAST NAME of the PROVIDER (eg. SM or SMITH)"
- Q
- E ;;9
- W !,"To ",IOINHI,"EDIT",IOINLOW," a PROVIDER enter one of the following:"
- W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
- W !," ITEM NUMBER on the left side of the list of the PROVIDERS (eg. 7)"
- W !
- W !,"To move the PRIMARY designation from one provider to another do the following:"
- W !," select the current primary provider"
- W !," answer NO to the primary provider prompt"
- W !," select the new primary provider"
- W !," answer YES to the primary provider prompt"
- Q
- D ;;3
- W !,"To ",IOINHI,"DELETE",IOINLOW," a PROVIDER enter one of the following:"
- W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
- W !," Multiple ITEM NUMBERS can be selected (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="aAdDeE123^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
- S TAG=$TR(TAG,"aed","AED")
- 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,UDATA)=$P($$DOUBLE^PXBGPRV2(WHAT),"^",2)
- Q
- 2 ;;10
- S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV3(WHAT),"^",2)
- Q
- 3 ;;10
- S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV4(WHAT),"^",2)
- Q
- PXBHLP2 ;ISL/JVS - FIRST HELP ROUITINE FOR PROVIDERS ;5/21/96 11:48
- +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 PROVIDER associated with this patient ENCOUNTER."
- +2 WRITE !,"You can enter partial names to receive a short list."
- +3 WRITE !,"Above is a list of PROVIDERS already entered. If there are any"
- +4 WRITE !,"additional ones, they should be entered at this time."
- +5 WRITE !," * indicates that the entry has 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 ;;11
- +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 providers."
- +4 WRITE !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE providers."
- +5 WRITE !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT providers."
- +6 WRITE !
- +7 WRITE !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
- +8 WRITE !
- +9 WRITE !," ",IOINHI,"1",IOINLOW," to get a list of ALL active providers."
- +10 WRITE !," ",IOINHI,"2",IOINLOW," to get a list of CLINIC providers."
- +11 WRITE !," ",IOINHI,"3",IOINLOW," to get a list of ENCOUNTER FORM providers."
- +12 QUIT
- A ;;3
- +1 WRITE !,"To ",IOINHI,"ADD",IOINLOW," a PROVIDER enter one of the following:"
- +2 WRITE !," PROVIDER NAME (eg. SMITH,VAUGHN)"
- +3 WRITE !," PARTIAL LAST NAME of the PROVIDER (eg. SM or SMITH)"
- +4 QUIT
- E ;;9
- +1 WRITE !,"To ",IOINHI,"EDIT",IOINLOW," a PROVIDER enter one of the following:"
- +2 WRITE !," PROVIDER NAME (eg. SMITH,VAUGHN)"
- +3 WRITE !," ITEM NUMBER on the left side of the list of the PROVIDERS (eg. 7)"
- +4 WRITE !
- +5 WRITE !,"To move the PRIMARY designation from one provider to another do the following:"
- +6 WRITE !," select the current primary provider"
- +7 WRITE !," answer NO to the primary provider prompt"
- +8 WRITE !," select the new primary provider"
- +9 WRITE !," answer YES to the primary provider prompt"
- +10 QUIT
- D ;;3
- +1 WRITE !,"To ",IOINHI,"DELETE",IOINLOW," a PROVIDER enter one of the following:"
- +2 WRITE !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
- +3 WRITE !," Multiple ITEM NUMBERS can be selected (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="aAdDeE123^"
- IF POSS[Y
- IF $LENGTH(Y)=1!(Y="")
- SET TAG=Y
- +7 SET TAG=$TRANSLATE(TAG,"aed","AED")
- +8 IF POSS'[Y!($LENGTH(Y)>1)
- SET TAG="BODY"
- +9 ;
- +10 ;
- +11 QUIT
- ROUTINE ;---routine excuted when SELECTION LISTS are selected
- +1 ;W !,"ROUTINES FOR SELECTION LISTS"
- 1 ;;10
- +1 SET (Y,DATA,EDATA,UDATA)=$PIECE($$DOUBLE^PXBGPRV2(WHAT),"^",2)
- +2 QUIT
- 2 ;;10
- +1 SET (Y,DATA,EDATA,UDATA)=$PIECE($$DOUBLE1^PXBGPRV3(WHAT),"^",2)
- +2 QUIT
- 3 ;;10
- +1 SET (Y,DATA,EDATA,UDATA)=$PIECE($$DOUBLE1^PXBGPRV4(WHAT),"^",2)
- +2 QUIT