source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXBHLP2.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.5 KB
Line 
1PXBHLP2 ;ISL/JVS - FIRST HELP ROUITINE FOR PROVIDERS ;6/17/03 10:29
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**124**;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
12INTRO ;;6
13 W !,"Enter a PROVIDER associated with this patient ENCOUNTER."
14 W !,"You can enter partial names to receive a short list."
15 W !,"Above is a list of PROVIDERS already entered. If there are any"
16 W !,"additional ones, they should be entered at this time."
17 W !," * indicates that the entry has 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
21INTRO2 ;;6
22 W !,"Enter an ORDERING PROVIDER associated with this PROCEDURE."
23 W !,"You can enter partial names to receive a short list."
24 W !,"Above is a list of PROVIDERS already entered. If there are any"
25 W !,"additional ones, they should be entered at this time."
26 W !," * indicates that the entry has been visited during this session."
27 I $G(WHAT)="INTV" W !,"a '^^' (double up arrow) will take you out of the interview"
28 W !,"For more detailed ",IOINHI,"HELP",IOINLOW," and selection lists enter ",IOINHI,"??",IOINLOW,!
29 Q
30BODY ;;11
31 W !,"To receive detailed help for ",IOINHI,"ADD",IOINLOW," or ",IOINHI,"DELETE",IOINLOW," enter the following:"
32 W !
33 W !," ",IOINHI,"A",IOINLOW," to get help on how to ADD providers."
34 W !," ",IOINHI,"D",IOINLOW," to get help on how to DELETE providers."
35 W !," ",IOINHI,"E",IOINLOW," to get help on how to EDIT providers."
36 W !
37 W !,"To receive more ",IOINHI,"SELECTION LISTS",IOINLOW," enter the following:"
38 W !
39 W !," ",IOINHI,"1",IOINLOW," to get a list of ALL active providers."
40 W !," ",IOINHI,"2",IOINLOW," to get a list of CLINIC providers."
41 W !," ",IOINHI,"3",IOINLOW," to get a list of ENCOUNTER FORM providers."
42 Q
43A ;;3
44 W !,"To ",IOINHI,"ADD",IOINLOW," a PROVIDER enter one of the following:"
45 W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
46 W !," PARTIAL LAST NAME of the PROVIDER (eg. SM or SMITH)"
47 Q
48E ;;9
49 W !,"To ",IOINHI,"EDIT",IOINLOW," a PROVIDER enter one of the following:"
50 W !," PROVIDER NAME (eg. SMITH,VAUGHN)"
51 W !," ITEM NUMBER on the left side of the list of the PROVIDERS (eg. 7)"
52 W !
53 W !,"To move the PRIMARY designation from one provider to another do the following:"
54 W !," select the current primary provider"
55 W !," answer NO to the primary provider prompt"
56 W !," select the new primary provider"
57 W !," answer YES to the primary provider prompt"
58 Q
59D ;;3
60 W !,"To ",IOINHI,"DELETE",IOINLOW," a PROVIDER enter one of the following:"
61 W !," an '@' followed by the ITEM NUMBER (eg. @1 or @3)"
62 W !," Multiple ITEM NUMBERS can be selected (eg. @1,3,5 or @1-3,6,9)"
63 Q
64PROMPT ;---Prompt for the help prompt
65 N DIR,OK,POSS
66 D WIN17^PXBCC(PXBCNT)
67 W !!,"Enter '^' to leave HELP CENTER"
68 W !,"Enter a letter or number for additional help: "
69 R Y:DTIME
70 S POSS="aAdDeE123^" I POSS[Y,$L(Y)=1!(Y="") S TAG=Y
71 S TAG=$TR(TAG,"aed","AED")
72 I POSS'[Y!($L(Y)>1) S TAG="BODY"
73 ;
74 ;
75 Q
76ROUTINE ;---routine excuted when SELECTION LISTS are selected
77 ;W !,"ROUTINES FOR SELECTION LISTS"
781 ;;10
79 S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE^PXBGPRV2(WHAT),"^",2)
80 Q
812 ;;10
82 S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV3(WHAT),"^",2)
83 Q
843 ;;10
85 S (Y,DATA,EDATA,UDATA)=$P($$DOUBLE1^PXBGPRV4(WHAT),"^",2)
86 Q
Note: See TracBrowser for help on using the repository browser.