PXBUTL1 ;ISL/JVS - UTILITIES SINGLE LINE HELP MESSAGES ;7/24/96 08:26
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;
;
HELP1(CAT) ;Help messages written when data is not valid.
;Each message must have omly 1 line.
N MES,I
D @CAT,WR1
Q
;
WR1 ;--Write to the screen
S I=0 F I=1:1:1 W !,IOELEOL,?(IOM-$L(MES(I)))\2,MES(I),IOEDEOP
Q
LST ;--END OF LIST
S MES(1)="END OF LIST"
Q
VST1 ;--FOR ENCOUNTERS
S MES(1)="Select an entry less than "_($G(PXBHIGH)+1)
Q
VST2 ;--FOR ENCOUNTERS
S MES(1)=$G(Y)_" is not a valid response!"
Q
VST3 ;--FOR ENCOUNTERS
S MES(1)="ZERO is not a valid response!"
Q
VST4 ;--FOR ENCOUNTERS
S MES(1)="The selection must be a whole, positive number!"
Q
PRV ;for providers
S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID PROVIDER."
Q
STP ;for STOP CODES
S MES(1)=$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
Q
STPNO ;for STOP CODES
W !,$E(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
Q
PRVDEL ;for providers
S MES(1)=" You CANNOT delete the last PROVIDER!"
Q
PRVA ;for inactive providers
S MES(1)="--WARNING!-This provider was inactive at the time of the encounter."
Q
POV ;for POV
S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID DIAGNOSIS."
Q
CPT ;for CPT's
S MES(1)=$E(EDATA,1,10)_" does not appear to be an ACTIVE,VALID PROCEDURE."
Q
CPTI ;for CPT's that are inactive
S MES(1)=$E(EDATA,1,10)_" CPT CODE, became INACTIVE on: "_$P(OK,"^",3)
Q
CPTMM ;for CPT's MULTIPLE
S MES(1)=" We assume that the QUANTITY for each of these is 1 and same PROVIDER."
Q
CON ;for Continue
S MES(1)=" Press the ENTER key to continue."
Q
STP1NO ;--STOP CODE 1 ?
W !,"Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
Q
STP3NO ;--STOP CODE 3 ?
W !,"Enter the STOP CODE associated with this ENCOUNTER."
W !,"Enter '??' to get the entire list of possible STOP CODES"
W !,"'*' indicates that STOP CODE has been visited in this session."
Q
STP4NO ;--STOP CODE-ADD EDIT 4 ?
W !!!,"Must have a STOP CODE or a PROCEDURE to complete this action."
W !,"I am deleting previously entered information"
W !,"Press the any key to continue."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXBUTL1 2207 printed Apr 09, 2024@21:28:25 Page 2
PXBUTL1 ;ISL/JVS - UTILITIES SINGLE LINE HELP MESSAGES ;7/24/96 08:26
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;
+3 ;
HELP1(CAT) ;Help messages written when data is not valid.
+1 ;Each message must have omly 1 line.
+2 NEW MES,I
+3 DO @CAT
DO WR1
+4 QUIT
+5 ;
WR1 ;--Write to the screen
+1 SET I=0
FOR I=1:1:1
WRITE !,IOELEOL,?(IOM-$LENGTH(MES(I)))\2,MES(I),IOEDEOP
+2 QUIT
LST ;--END OF LIST
+1 SET MES(1)="END OF LIST"
+2 QUIT
VST1 ;--FOR ENCOUNTERS
+1 SET MES(1)="Select an entry less than "_($GET(PXBHIGH)+1)
+2 QUIT
VST2 ;--FOR ENCOUNTERS
+1 SET MES(1)=$GET(Y)_" is not a valid response!"
+2 QUIT
VST3 ;--FOR ENCOUNTERS
+1 SET MES(1)="ZERO is not a valid response!"
+2 QUIT
VST4 ;--FOR ENCOUNTERS
+1 SET MES(1)="The selection must be a whole, positive number!"
+2 QUIT
PRV ;for providers
+1 SET MES(1)=$EXTRACT(EDATA,1,15)_" does not appear to be a VALID PROVIDER."
+2 QUIT
STP ;for STOP CODES
+1 SET MES(1)=$EXTRACT(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
+2 QUIT
STPNO ;for STOP CODES
+1 WRITE !,$EXTRACT(EDATA,1,15)_" does not appear to be a VALID STOP CODE."
+2 QUIT
PRVDEL ;for providers
+1 SET MES(1)=" You CANNOT delete the last PROVIDER!"
+2 QUIT
PRVA ;for inactive providers
+1 SET MES(1)="--WARNING!-This provider was inactive at the time of the encounter."
+2 QUIT
POV ;for POV
+1 SET MES(1)=$EXTRACT(EDATA,1,10)_" does not appear to be an ACTIVE,VALID DIAGNOSIS."
+2 QUIT
CPT ;for CPT's
+1 SET MES(1)=$EXTRACT(EDATA,1,10)_" does not appear to be an ACTIVE,VALID PROCEDURE."
+2 QUIT
CPTI ;for CPT's that are inactive
+1 SET MES(1)=$EXTRACT(EDATA,1,10)_" CPT CODE, became INACTIVE on: "_$PIECE(OK,"^",3)
+2 QUIT
CPTMM ;for CPT's MULTIPLE
+1 SET MES(1)=" We assume that the QUANTITY for each of these is 1 and same PROVIDER."
+2 QUIT
CON ;for Continue
+1 SET MES(1)=" Press the ENTER key to continue."
+2 QUIT
STP1NO ;--STOP CODE 1 ?
+1 WRITE !,"Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
+2 QUIT
STP3NO ;--STOP CODE 3 ?
+1 WRITE !,"Enter the STOP CODE associated with this ENCOUNTER."
+2 WRITE !,"Enter '??' to get the entire list of possible STOP CODES"
+3 WRITE !,"'*' indicates that STOP CODE has been visited in this session."
+4 QUIT
STP4NO ;--STOP CODE-ADD EDIT 4 ?
+1 WRITE !!!,"Must have a STOP CODE or a PROCEDURE to complete this action."
+2 WRITE !,"I am deleting previously entered information"
+3 WRITE !,"Press the any key to continue."
+4 QUIT
