Routine: PSOERXON

Information

PSOERXON ;ALB/BWF - eRx parsing Utilities ; 11/14/2019 3:46pm

Name	Comments	DBIA/ICR reference
MEDCODES(GL,CNT,DATA)	;
MEDREQ(GL,CNT,DATA)	;
GETCODES(ERXIEN,MCODES)	;
CRALLOW(ERXIEN)	;
CHREQ(GL,ERXIEN,CNT,MEDREQ,MRC)	;
MRC(ERXIEN)	;
MRSC()	;
SDRG(ERXIEN)	;
GSUBS()	;
GNOTE()	;
PATSTATS(ERXIEN)	;
GQTY()	;
GDAYS()	;
GREF()	;
GCLQ()	;
GCLQA
GQUOM()	;
GQUOMA
CODES(IEN)	;
GSIG	;
CONFIRM(TEXT)	;
BL(GBL,CNT,TAG,VAR)	;
C	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Missing NDC. Please select a different drug.",! Line Location: CHREQ+23
Function Call: WRITE	Prompt: !,"NDC: "_NDC Line Location: CHREQ+47
Function Call: WRITE	Prompt: !,"RxChangeRequest Cancelled." Line Location: CHREQ+79
Function Call: WRITE	Prompt: !!,"eRx Drug: "_ERXDRUG Line Location: SDRG+5
Function Call: WRITE	Prompt: !!,"Patient has not been validated, cannot edit patient status",! Line Location: PATSTATS+3
Function Call: WRITE	Prompt: !,"This is a required response. Enter '^' to exit" Line Location: PATSTATS+10
Function Call: WRITE	Prompt: !,"Response is required. Enter a value or '^' to quit." Line Location: GCLQA+6
Function Call: WRITE	Prompt: !,"Response is required. Enter a value or '^' to quit." Line Location: GQUOMA+6
Function Call: WRITE	Prompt: !,"Sig must be 1000 characters or less.",! Line Location: GSIG+10

FileNo	Call Tags
^PS(52.45 - [#52.45]	Classic Fileman Calls, GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ
52.49311	GET1^DIQ
^PS(55 - [#55]	GET1^DIQ