Routine: PSOERXU5

Information

PSOERXU5 ;ALB/BWF - eRx utilities ; 4/9/2018 10:55am

Name	Comments	DBIA/ICR reference
CANREQ(ERXIEN,LINE,PMODE)	;
CANRES(ERXIEN,LINE,PMODE)	;
GETPAT(ERXIEN)	;
GETPROV(ERXIEN)	;
GETDRUG(ERXIEN)	;
CANACK(ERXIEN)	;
LASTSTAT(ERXIEN)	;
CSCOMM(ERXIEN)	;
COMMVAL(IEN,FILE,SUB,TYPE,EXTFLG)	; IEN, file number, communication subscript, type of communication, ; extension flag (optional)
EFFDATE(IEN,MIEN)	; if it exists in "other medication date" subfile, return the effective date
DIAG2017(PSOIEN,LINE,GL,MIEN)	;
SETLOC(LINE,TEXT)	;
SETGL(IEN,TEXT)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,">>> You do not have privilege to use this option." Line Location: CANACK+3
Function Call: WRITE	Prompt: !!,"Record already acknowledged!",!,$C(7) Line Location: CANACK+7
Function Call: WRITE	Prompt: !,"For RxChange Response Approved and Approved with changes types (G/T/S/OS/D)",!,"hidden action ACK is not available." Line Location: CANACK+9
Function Call: WRITE	Prompt: !,"ACK is not available for RxChange Response - 'Validated' response messages." Line Location: CANACK+10
Function Call: WRITE	Prompt: !,"Acknowledge cannot be used on this record status." Line Location: CANACK+21
Function Call: WRITE	Prompt: !,"Would you like to send an 'Approved' or 'Denied' response?" Line Location: CANACK+35
Function Call: WRITE	Prompt: !,"Would you like to acknowledge this record?" Line Location: CANACK+47
Function Call: WRITE	Prompt: !!,PSSRET("errorMessage") Line Location: CANACK+50
Function Call: WRITE	Prompt: !,$S(MTYPE="CA":"Cancel request",MTYPE="RE":"RxRenewal response",1:"Inbound error")," acknowledged." Line Location: CANACK+54