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

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1PXBUTL1 ;ISL/JVS - UTILITIES SINGLE LINE HELP MESSAGES ;7/24/96 08:26
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4 ;
5HELP1(CAT) ;Help messages written when data is not valid.
6 ;Each message must have omly 1 line.
7 N MES,I
8 D @CAT,WR1
9 Q
10 ;
11WR1 ;--Write to the screen
12 S I=0 F I=1:1:1 W !,IOELEOL,?(IOM-$L(MES(I)))\2,MES(I),IOEDEOP
13 Q
14LST ;--END OF LIST
15 S MES(1)="END OF LIST"
16 Q
17VST1 ;--FOR ENCOUNTERS
18 S MES(1)="Select an entry less than "_($G(PXBHIGH)+1)
19 Q
20VST2 ;--FOR ENCOUNTERS
21 S MES(1)=$G(Y)_" is not a valid response!"
22 Q
23VST3 ;--FOR ENCOUNTERS
24 S MES(1)="ZERO is not a valid response!"
25 Q
26VST4 ;--FOR ENCOUNTERS
27 S MES(1)="The selection must be a whole, positive number!"
28 Q
29PRV ;for providers
30 S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID PROVIDER."
31 Q
32STP ;for STOP CODES
33 S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
34 Q
35STPNO ;for STOP CODES
36 W !,$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
37 Q
38PRVDEL ;for providers
39 S MES(1)=" You CANNOT delete the last PROVIDER!"
40 Q
41PRVA ;for inactive providers
42 S MES(1)="--WARNING!-This provider was inactive at the time of the encounter."
43 Q
44POV ;for POV
45 S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID DIAGNOSIS."
46 Q
47CPT ;for CPT's
48 S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID PROCEDURE."
49 Q
50CPTI ;for CPT's that are inactive
51 S MES(1)=$E(EDATA,1,10)_" CPT CODE, became INACTIVE on: "_$P(OK,"^",3)
52 Q
53CPTMM ;for CPT's MULTIPLE
54 S MES(1)=" We assume that the QUANTITY for each of these is 1 and same PROVIDER."
55 Q
56CON ;for Continue
57 S MES(1)=" Press the ENTER key to continue."
58 Q
59STP1NO ;--STOP CODE 1 ?
60 W !,"Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
61 Q
62STP3NO ;--STOP CODE 3 ?
63 W !,"Enter the STOP CODE associated with this ENCOUNTER."
64 W !,"Enter '??' to get the entire list of possible STOP CODES"
65 W !,"'*' indicates that STOP CODE has been visited in this session."
66 Q
67STP4NO ;--STOP CODE-ADD EDIT 4 ?
68 W !!!,"Must have a STOP CODE or a PROCEDURE to complete this action."
69 W !,"I am deleting previously entered information"
70 W !,"Press the any key to continue."
71 Q
Note: See TracBrowser for help on using the repository browser.