source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXBUTL0.m@ 1783

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

initial load of FOIAVistA 6/30/08 version
File size: 5.0 KB
Line 
1PXBUTL0 ;ISL/JVS,ESW - UTILITIES-3 LINE HELP MESSAGES ;6/17/03 10:29
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**108,124,152**;Aug 12, 1996
3 ;
4HELP(CAT) ;Help messages written when ?'s are entered.
5 ;Each message must have 3 line although any of them can be blank.
6 N MES,I
7 D @CAT,WR
8 Q
9 ;
10WR ;--Write to the screen
11 S I=0 F I=1:1:3 W !,IOELEOL,?(IOM-$L(MES(I)))\2,MES(I)
12 Q
13 ;
14STP1 ;--STOP CODE 1 ?
15 S MES(1)="Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
16 S MES(2)=""
17 S MES(3)=""
18 Q
19STP3 ;--STOP CODE 3 ?
20 S MES(1)="Enter the STOP CODE associated with this ENCOUNTER."
21 S MES(2)="Enter '??' to get the entire list of possible STOP CODES"
22 S MES(3)="'*' indicates that STOP CODE has been visited in this session."
23 Q
24STP900 ;--STOP CODE 900
25 S MES(1)="The stop code 900 SPECIAL SERVICES is no longer in service."
26 S MES(2)="If you wish to enter procedures, you must use the"
27 S MES(3)="option provided to enter a PROCEDURE."
28 Q
29PRV1 ;--Provider 1 ?
30 S MES(1)="Answer with PROVIDER'S NAME, or INITIALS, or SSN, or NICK NAME,"
31 S MES(2)="or KEY DELEGATION LEVEL, OR USER CLASS, or LINE NUMBER"
32 S MES(3)="from the above list."
33 Q
34PRV3 ;--Provider 3 ?
35 S MES(1)="Enter the PROVIDER who performed or ordered the PROCEDURES"
36 S MES(2)="that were performed on the patient during this Encounter."
37 S MES(3)="'*' indicates that PROVIDER has been used in this session."
38 Q
39PRVM ;--CPT Add Multiple Provider(s)
40 S MES(1)=$E(EDATA,1,50)
41 S MES(2)="The above NAME is not a VALID PROVIDER."
42 S MES(3)="" ;--Enter each one separately to get more complete help."
43 Q
44PRVMD ;--CPT Delete Multiple Providers(s)
45 S MES(1)=$E(EDATA,1,50)
46 S MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
47 S MES(3)=""
48 Q
49 ;
50POV1 ;--Purpose of Visit 1 ?
51 S MES(1)=""
52 S MES(2)="Answer with ICD DIAGNOSIS CODE NUMBER or DESCRIPTION."
53 S MES(3)=""
54 Q
55POV3 ;--Purpose of Visit 3 ?
56 S MES(1)="Enter the DIAGNOSIS that is associated with this ENCOUNTER."
57 S MES(2)="It is possible that there is more than one DIAGNOSIS."
58 S MES(3)=""
59 Q
60PL1 ;--Problem list ?
61 S MES(1)="Select an Item Number, a '+' or '-', or 'ENTER' or '^' to EXIT this prompt."
62 S MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
63 S MES(3)="Diagnosis for this ENCOUNTER with "_NAME_"."
64 Q
65PL11 ;--Problem List ?
66 S MES(1)="Select an Item Number, or 'ENTER' or '^' to EXIT this prompt."
67 S MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
68 S MES(3)="Diagnosis for this ENCOUNTER with "_PNAME_"."
69 Q
70PLM ;--Problem List ?
71 S MES(1)="The above is not a valid or active problem."
72 S MES(2)=""
73 S MES(3)=""
74 Q
75 ;
76CPT1 ;--CPT Procedure 1 ?
77 S MES(1)="Answer with CPT CODE or CPT CATEGORY or DESCRIPTION."
78 S MES(2)="A '*' next to a procedure indicates that it was either"
79 S MES(3)=" ADDED or EDITED during this session."
80 Q
81CPT4 ;--USE MORE THAN 1 LETTER ?
82 S MES(1)="Please use more than 1 letter for your request."
83 S MES(2)=""
84 S MES(3)=""
85 Q
86CPT3 ;--CPT Procedure 3 ?
87 S MES(1)="Enter the PROCEDURE(S) that were performed during this ENCOUNTER."
88 S MES(2)="It may also be a procedure that occurred at another time but."
89 S MES(3)="occurred as a result of this ENCOUNTER with the Patient."
90 Q
91CPTM ;--CPT Add Multiple Procedure(s)
92 S MES(1)=$E(EDATA,1,50)
93 S MES(2)="The above entry is not a VALID or ACTIVE Code(s)."
94 S MES(3)=""
95 ;S MES(3)="Enter each one separately to get more complete help."
96 Q
97CPTMDP ;--CPT Adding Procedure with Multiple that already exist
98 S MES(1)=$E(EDATA,1,50)
99 S MES(2)="The above entry was already entered for this Encounter."
100 S MES(3)="Enter it separately if you still want to add/edit."
101 Q
102CPTMNO ;--CPT Add Multiple Procedure(s)
103 W !,$E(EDATA,1,50)
104 W !,"The above Item(s) are not VALID or ACTIVE Codes."
105 W !,"Enter each one separately to get more complete help."
106 Q
107CPTMD ;--CPT Delete Multiple Procedure(s)
108 S MES(1)=$E(EDATA,1,50)
109 S MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
110 S MES(3)=""
111 Q
112WH1 ;--WHICH when selecting different line options 1 ?
113 S MES(1)="Enter the line number of the entry that you are selecting."
114 S MES(2)=""
115 S MES(3)=""
116 Q
117 ;
118WH2 ;--WHICH when selecting different line options 2 ?
119 S MES(1)="You can select any line number that you wish."
120 S MES(2)=""
121 S MES(3)=""
122 Q
123 ;
124WH3 ;--WHICH when selecting different line options 3 ?
125 S MES(1)="Please select any line number that you wish or ""^"" to exit."
126 S MES(2)=""
127 S MES(3)=""
128 Q
129QU1 ;--QUANTITY when changing quantity of CPT's ?
130 S MES(1)="This is the number of times this CPT was done"
131 S MES(2)="to the patient during the encounter."
132 S MES(3)=""
133 Q
134QU2 ;--QUANTITY when changing quantity of CPT'S ??
135 S MES(1)="Enter a number between 0 and 999 indicating how many"
136 S MES(2)="times this procedure was performed on the patient"
137 S MES(3)="during this encounter."
138 Q
139OP1 ;--ORDERING PROVIDER for CPT's ?
140 S MES(1)="This is the ordering provider for the Procedure"
141 S MES(2)="during the encounter."
142 S MES(3)=""
143 Q
144OP2 ;--ORDERING PROVIDER for CPT'S ??
145 S MES(1)="Enter the ordering provider for this"
146 S MES(2)="procedure performed on the patient"
147 S MES(3)="during this encounter."
148 Q
Note: See TracBrowser for help on using the repository browser.