PXBUTL0 ;ISL/JVS,ESW - UTILITIES-3 LINE HELP MESSAGES ;6/17/03 10:29
;;1.0;PCE PATIENT CARE ENCOUNTER;**108,124,152**;Aug 12, 1996
;
HELP(CAT) ;Help messages written when ?'s are entered.
;Each message must have 3 line although any of them can be blank.
N MES,I
D @CAT,WR
Q
;
WR ;--Write to the screen
S I=0 F I=1:1:3 W !,IOELEOL,?(IOM-$L(MES(I)))\2,MES(I)
Q
;
STP1 ;--STOP CODE 1 ?
S MES(1)="Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
S MES(2)=""
S MES(3)=""
Q
STP3 ;--STOP CODE 3 ?
S MES(1)="Enter the STOP CODE associated with this ENCOUNTER."
S MES(2)="Enter '??' to get the entire list of possible STOP CODES"
S MES(3)="'*' indicates that STOP CODE has been visited in this session."
Q
STP900 ;--STOP CODE 900
S MES(1)="The stop code 900 SPECIAL SERVICES is no longer in service."
S MES(2)="If you wish to enter procedures, you must use the"
S MES(3)="option provided to enter a PROCEDURE."
Q
PRV1 ;--Provider 1 ?
S MES(1)="Answer with PROVIDER'S NAME, or INITIALS, or SSN, or NICK NAME,"
S MES(2)="or KEY DELEGATION LEVEL, OR USER CLASS, or LINE NUMBER"
S MES(3)="from the above list."
Q
PRV3 ;--Provider 3 ?
S MES(1)="Enter the PROVIDER who performed or ordered the PROCEDURES"
S MES(2)="that were performed on the patient during this Encounter."
S MES(3)="'*' indicates that PROVIDER has been used in this session."
Q
PRVM ;--CPT Add Multiple Provider(s)
S MES(1)=$E(EDATA,1,50)
S MES(2)="The above NAME is not a VALID PROVIDER."
S MES(3)="" ;--Enter each one separately to get more complete help."
Q
PRVMD ;--CPT Delete Multiple Providers(s)
S MES(1)=$E(EDATA,1,50)
S MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
S MES(3)=""
Q
;
POV1 ;--Purpose of Visit 1 ?
S MES(1)=""
S MES(2)="Answer with ICD DIAGNOSIS CODE NUMBER or DESCRIPTION."
S MES(3)=""
Q
POV3 ;--Purpose of Visit 3 ?
S MES(1)="Enter the DIAGNOSIS that is associated with this ENCOUNTER."
S MES(2)="It is possible that there is more than one DIAGNOSIS."
S MES(3)=""
Q
PL1 ;--Problem list ?
S MES(1)="Select an Item Number, a '+' or '-', or 'ENTER' or '^' to EXIT this prompt."
S MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
S MES(3)="Diagnosis for this ENCOUNTER with "_NAME_"."
Q
PL11 ;--Problem List ?
S MES(1)="Select an Item Number, or 'ENTER' or '^' to EXIT this prompt."
S MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
S MES(3)="Diagnosis for this ENCOUNTER with "_PNAME_"."
Q
PLM ;--Problem List ?
S MES(1)="The above is not a valid or active problem."
S MES(2)=""
S MES(3)=""
Q
;
CPT1 ;--CPT Procedure 1 ?
S MES(1)="Answer with CPT CODE or CPT CATEGORY or DESCRIPTION."
S MES(2)="A '*' next to a procedure indicates that it was either"
S MES(3)=" ADDED or EDITED during this session."
Q
CPT4 ;--USE MORE THAN 1 LETTER ?
S MES(1)="Please use more than 1 letter for your request."
S MES(2)=""
S MES(3)=""
Q
CPT3 ;--CPT Procedure 3 ?
S MES(1)="Enter the PROCEDURE(S) that were performed during this ENCOUNTER."
S MES(2)="It may also be a procedure that occurred at another time but."
S MES(3)="occurred as a result of this ENCOUNTER with the Patient."
Q
CPTM ;--CPT Add Multiple Procedure(s)
S MES(1)=$E(EDATA,1,50)
S MES(2)="The above entry is not a VALID or ACTIVE Code(s)."
S MES(3)=""
;S MES(3)="Enter each one separately to get more complete help."
Q
CPTMDP ;--CPT Adding Procedure with Multiple that already exist
S MES(1)=$E(EDATA,1,50)
S MES(2)="The above entry was already entered for this Encounter."
S MES(3)="Enter it separately if you still want to add/edit."
Q
CPTMNO ;--CPT Add Multiple Procedure(s)
W !,$E(EDATA,1,50)
W !,"The above Item(s) are not VALID or ACTIVE Codes."
W !,"Enter each one separately to get more complete help."
Q
CPTMD ;--CPT Delete Multiple Procedure(s)
S MES(1)=$E(EDATA,1,50)
S MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
S MES(3)=""
Q
WH1 ;--WHICH when selecting different line options 1 ?
S MES(1)="Enter the line number of the entry that you are selecting."
S MES(2)=""
S MES(3)=""
Q
;
WH2 ;--WHICH when selecting different line options 2 ?
S MES(1)="You can select any line number that you wish."
S MES(2)=""
S MES(3)=""
Q
;
WH3 ;--WHICH when selecting different line options 3 ?
S MES(1)="Please select any line number that you wish or ""^"" to exit."
S MES(2)=""
S MES(3)=""
Q
QU1 ;--QUANTITY when changing quantity of CPT's ?
S MES(1)="This is the number of times this CPT was done"
S MES(2)="to the patient during the encounter."
S MES(3)=""
Q
QU2 ;--QUANTITY when changing quantity of CPT'S ??
S MES(1)="Enter a number between 0 and 999 indicating how many"
S MES(2)="times this procedure was performed on the patient"
S MES(3)="during this encounter."
Q
OP1 ;--ORDERING PROVIDER for CPT's ?
S MES(1)="This is the ordering provider for the Procedure"
S MES(2)="during the encounter."
S MES(3)=""
Q
OP2 ;--ORDERING PROVIDER for CPT'S ??
S MES(1)="Enter the ordering provider for this"
S MES(2)="procedure performed on the patient"
S MES(3)="during this encounter."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXBUTL0 5276 printed Apr 09, 2024@21:33:58 Page 2
PXBUTL0 ;ISL/JVS,ESW - UTILITIES-3 LINE HELP MESSAGES ;6/17/03 10:29
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**108,124,152**;Aug 12, 1996
+2 ;
HELP(CAT) ;Help messages written when ?'s are entered.
+1 ;Each message must have 3 line although any of them can be blank.
+2 NEW MES,I
+3 DO @CAT
DO WR
+4 QUIT
+5 ;
WR ;--Write to the screen
+1 SET I=0
FOR I=1:1:3
WRITE !,IOELEOL,?(IOM-$LENGTH(MES(I)))\2,MES(I)
+2 QUIT
+3 ;
STP1 ;--STOP CODE 1 ?
+1 SET MES(1)="Answer with CLINIC STOP NAME, or AMIS RPORTING STOP CODE."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
STP3 ;--STOP CODE 3 ?
+1 SET MES(1)="Enter the STOP CODE associated with this ENCOUNTER."
+2 SET MES(2)="Enter '??' to get the entire list of possible STOP CODES"
+3 SET MES(3)="'*' indicates that STOP CODE has been visited in this session."
+4 QUIT
STP900 ;--STOP CODE 900
+1 SET MES(1)="The stop code 900 SPECIAL SERVICES is no longer in service."
+2 SET MES(2)="If you wish to enter procedures, you must use the"
+3 SET MES(3)="option provided to enter a PROCEDURE."
+4 QUIT
PRV1 ;--Provider 1 ?
+1 SET MES(1)="Answer with PROVIDER'S NAME, or INITIALS, or SSN, or NICK NAME,"
+2 SET MES(2)="or KEY DELEGATION LEVEL, OR USER CLASS, or LINE NUMBER"
+3 SET MES(3)="from the above list."
+4 QUIT
PRV3 ;--Provider 3 ?
+1 SET MES(1)="Enter the PROVIDER who performed or ordered the PROCEDURES"
+2 SET MES(2)="that were performed on the patient during this Encounter."
+3 SET MES(3)="'*' indicates that PROVIDER has been used in this session."
+4 QUIT
PRVM ;--CPT Add Multiple Provider(s)
+1 SET MES(1)=$EXTRACT(EDATA,1,50)
+2 SET MES(2)="The above NAME is not a VALID PROVIDER."
+3 ;--Enter each one separately to get more complete help."
SET MES(3)=""
+4 QUIT
PRVMD ;--CPT Delete Multiple Providers(s)
+1 SET MES(1)=$EXTRACT(EDATA,1,50)
+2 SET MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
+3 SET MES(3)=""
+4 QUIT
+5 ;
POV1 ;--Purpose of Visit 1 ?
+1 SET MES(1)=""
+2 SET MES(2)="Answer with ICD DIAGNOSIS CODE NUMBER or DESCRIPTION."
+3 SET MES(3)=""
+4 QUIT
POV3 ;--Purpose of Visit 3 ?
+1 SET MES(1)="Enter the DIAGNOSIS that is associated with this ENCOUNTER."
+2 SET MES(2)="It is possible that there is more than one DIAGNOSIS."
+3 SET MES(3)=""
+4 QUIT
PL1 ;--Problem list ?
+1 SET MES(1)="Select an Item Number, a '+' or '-', or 'ENTER' or '^' to EXIT this prompt."
+2 SET MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
+3 SET MES(3)="Diagnosis for this ENCOUNTER with "_NAME_"."
+4 QUIT
PL11 ;--Problem List ?
+1 SET MES(1)="Select an Item Number, or 'ENTER' or '^' to EXIT this prompt."
+2 SET MES(2)="By selecting one of the PROBLEMS, it can then be entered as a"
+3 SET MES(3)="Diagnosis for this ENCOUNTER with "_PNAME_"."
+4 QUIT
PLM ;--Problem List ?
+1 SET MES(1)="The above is not a valid or active problem."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
+5 ;
CPT1 ;--CPT Procedure 1 ?
+1 SET MES(1)="Answer with CPT CODE or CPT CATEGORY or DESCRIPTION."
+2 SET MES(2)="A '*' next to a procedure indicates that it was either"
+3 SET MES(3)=" ADDED or EDITED during this session."
+4 QUIT
CPT4 ;--USE MORE THAN 1 LETTER ?
+1 SET MES(1)="Please use more than 1 letter for your request."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
CPT3 ;--CPT Procedure 3 ?
+1 SET MES(1)="Enter the PROCEDURE(S) that were performed during this ENCOUNTER."
+2 SET MES(2)="It may also be a procedure that occurred at another time but."
+3 SET MES(3)="occurred as a result of this ENCOUNTER with the Patient."
+4 QUIT
CPTM ;--CPT Add Multiple Procedure(s)
+1 SET MES(1)=$EXTRACT(EDATA,1,50)
+2 SET MES(2)="The above entry is not a VALID or ACTIVE Code(s)."
+3 SET MES(3)=""
+4 ;S MES(3)="Enter each one separately to get more complete help."
+5 QUIT
CPTMDP ;--CPT Adding Procedure with Multiple that already exist
+1 SET MES(1)=$EXTRACT(EDATA,1,50)
+2 SET MES(2)="The above entry was already entered for this Encounter."
+3 SET MES(3)="Enter it separately if you still want to add/edit."
+4 QUIT
CPTMNO ;--CPT Add Multiple Procedure(s)
+1 WRITE !,$EXTRACT(EDATA,1,50)
+2 WRITE !,"The above Item(s) are not VALID or ACTIVE Codes."
+3 WRITE !,"Enter each one separately to get more complete help."
+4 QUIT
CPTMD ;--CPT Delete Multiple Procedure(s)
+1 SET MES(1)=$EXTRACT(EDATA,1,50)
+2 SET MES(2)="The above Item(s) are not VALID line numbers or Item numbers."
+3 SET MES(3)=""
+4 QUIT
WH1 ;--WHICH when selecting different line options 1 ?
+1 SET MES(1)="Enter the line number of the entry that you are selecting."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
+5 ;
WH2 ;--WHICH when selecting different line options 2 ?
+1 SET MES(1)="You can select any line number that you wish."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
+5 ;
WH3 ;--WHICH when selecting different line options 3 ?
+1 SET MES(1)="Please select any line number that you wish or ""^"" to exit."
+2 SET MES(2)=""
+3 SET MES(3)=""
+4 QUIT
QU1 ;--QUANTITY when changing quantity of CPT's ?
+1 SET MES(1)="This is the number of times this CPT was done"
+2 SET MES(2)="to the patient during the encounter."
+3 SET MES(3)=""
+4 QUIT
QU2 ;--QUANTITY when changing quantity of CPT'S ??
+1 SET MES(1)="Enter a number between 0 and 999 indicating how many"
+2 SET MES(2)="times this procedure was performed on the patient"
+3 SET MES(3)="during this encounter."
+4 QUIT
OP1 ;--ORDERING PROVIDER for CPT's ?
+1 SET MES(1)="This is the ordering provider for the Procedure"
+2 SET MES(2)="during the encounter."
+3 SET MES(3)=""
+4 QUIT
OP2 ;--ORDERING PROVIDER for CPT'S ??
+1 SET MES(1)="Enter the ordering provider for this"
+2 SET MES(2)="procedure performed on the patient"
+3 SET MES(3)="during this encounter."
+4 QUIT
