Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXBHLP2

PXBHLP2.m

Go to the documentation of this file.
  1. PXBHLP2 ;ISL/JVS - FIRST HELP ROUITINE FOR PROVIDERS ;5/21/96 11:48
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
  1. ;
  1. ;
  1. ;
  1. ; If you edit the text besure to change the length nest to the TAG
  1. ; eg=== ;;4
  1. ; you can put a line feed '!' at the end of the last line if necess.
  1. ;
  1. ;
  1. W !,"THIS IS NOT AN ENTRY POINT " Q
  1. INTRO ;;6
  1. W !,"Enter a PROVIDER associated with this patient ENCOUNTER."
  1. W !,"You can enter partial names to receive a short list."
  1. W !,"Above is a list of PROVIDERS already entered. If there are any"
  1. W !,"additional ones, they should be entered at this time."
  1. W !," * indicates that the entry has been visited during this session."
  1. I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
  1. W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!
  1. Q
  1. BODY ;;11
  1. W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
  1. W !
  1. W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD providers."
  1. W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE providers."
  1. W !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT providers."
  1. W !
  1. W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
  1. W !
  1. W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active providers."
  1. W !," ",IOINHI,"2",IOINLOW," to get a list of CLINIC providers."
  1. W !," ",IOINHI,"3",IOINLOW," to get a list of ENCOUNTER FORM providers."
  1. Q
  1. A ;;3
  1. W !,"To ",IOINHI,"ADD",IOINLOW," a PROVIDER enter one of the following:"
  1. W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
  1. W !," PARTIAL LAST NAME of the PROVIDER (eg. SM or SMITH)"
  1. Q
  1. E ;;9
  1. W !,"To ",IOINHI,"EDIT",IOINLOW," a PROVIDER enter one of the following:"
  1. W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
  1. W !," ITEM NUMBER on the left side of the list of the PROVIDERS (eg. 7)"
  1. W !
  1. W !,"To move the PRIMARY designation from one provider to another do the following:"
  1. W !," select the current primary provider"
  1. W !," answer NO to the primary provider prompt"
  1. W !," select the new primary provider"
  1. W !," answer YES to the primary provider prompt"
  1. Q
  1. D ;;3
  1. W !,"To ",IOINHI,"DELETE",IOINLOW," a PROVIDER enter one of the following:"
  1. W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
  1. W !," Multiple ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"
  1. Q
  1. PROMPT ;---Prompt for the help prompt
  1. N DIR,OK,POSS
  1. D WIN17^PXBCC(PXBCNT)
  1. W !!,"Enter '^' to leave HELP CENTER"
  1. W !,"Enter a letter or number for additional help: "
  1. R Y:DTIME
  1. S POSS="aAdDeE123^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
  1. S TAG=$TR(TAG,"aed","AED")
  1. I POSS'[Y!($L(Y)>1) S TAG="BODY"
  1. ;
  1. ;
  1. Q
  1. ROUTINE ;---routine excuted when SELECTION LISTS are selected
  1. ;W !,"ROUTINES FOR SELECTION LISTS"
  1. 1 ;;10
  1. S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE^PXBGPRV2(WHAT),"^",2)
  1. Q
  1. 2 ;;10
  1. S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV3(WHAT),"^",2)
  1. Q
  1. 3 ;;10
  1. S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV4(WHAT),"^",2)
  1. Q