| 1 | PXBUTL1 ;ISL/JVS - UTILITIES SINGLE LINE HELP MESSAGES ;7/24/96 08:26
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | HELP1(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 | ;
|
|---|
| 11 | WR1 ;--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
|
|---|
| 14 | LST ;--END OF LIST
|
|---|
| 15 | S MES(1)="END OF LIST"
|
|---|
| 16 | Q
|
|---|
| 17 | VST1 ;--FOR ENCOUNTERS
|
|---|
| 18 | S MES(1)="Select an entry less than "_($G(PXBHIGH)+1)
|
|---|
| 19 | Q
|
|---|
| 20 | VST2 ;--FOR ENCOUNTERS
|
|---|
| 21 | S MES(1)=$G(Y)_" is not a valid response!"
|
|---|
| 22 | Q
|
|---|
| 23 | VST3 ;--FOR ENCOUNTERS
|
|---|
| 24 | S MES(1)="ZERO is not a valid response!"
|
|---|
| 25 | Q
|
|---|
| 26 | VST4 ;--FOR ENCOUNTERS
|
|---|
| 27 | S MES(1)="The selection must be a whole, positive number!"
|
|---|
| 28 | Q
|
|---|
| 29 | PRV ;for providers
|
|---|
| 30 | S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID PROVIDER."
|
|---|
| 31 | Q
|
|---|
| 32 | STP ;for STOP CODES
|
|---|
| 33 | S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
|
|---|
| 34 | Q
|
|---|
| 35 | STPNO ;for STOP CODES
|
|---|
| 36 | W !,$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
|
|---|
| 37 | Q
|
|---|
| 38 | PRVDEL ;for providers
|
|---|
| 39 | S MES(1)=" You CANNOT delete the last PROVIDER!"
|
|---|
| 40 | Q
|
|---|
| 41 | PRVA ;for inactive providers
|
|---|
| 42 | S MES(1)="--WARNING!-This provider was inactive at the time of the encounter."
|
|---|
| 43 | Q
|
|---|
| 44 | POV ;for POV
|
|---|
| 45 | S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID DIAGNOSIS."
|
|---|
| 46 | Q
|
|---|
| 47 | CPT ;for CPT's
|
|---|
| 48 | S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID PROCEDURE."
|
|---|
| 49 | Q
|
|---|
| 50 | CPTI ;for CPT's that are inactive
|
|---|
| 51 | S MES(1)=$E(EDATA,1,10)_" CPT CODE, became INACTIVE on: "_$P(OK,"^",3)
|
|---|
| 52 | Q
|
|---|
| 53 | CPTMM ;for CPT's MULTIPLE
|
|---|
| 54 | S MES(1)=" We assume that the QUANTITY for each of these is 1 and same PROVIDER."
|
|---|
| 55 | Q
|
|---|
| 56 | CON ;for Continue
|
|---|
| 57 | S MES(1)=" Press the ENTER key to continue."
|
|---|
| 58 | Q
|
|---|
| 59 | STP1NO ;--STOP CODE 1 ?
|
|---|
| 60 | W !,"Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
|
|---|
| 61 | Q
|
|---|
| 62 | STP3NO ;--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
|
|---|
| 67 | STP4NO ;--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
|
|---|
