PXBUTL1.m

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

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