Routine: PSOERXU1

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Name	Comments	DBIA/ICR reference
CHKERX(OR0)	;
PROVPMT(ERXIEN)	;
DERX1(GL,PSOIEN,DFLG,IEN,CALLER)	;
DIAG(PSOIEN,LINE,GL)	;
SETLOC(LINE,TEXT)	;
SETGL(IEN,TEXT)	;
OPACCESS(OPTION,DUZ,ERXIEN)	;
UPDSTAT(PSOIEN,STAT,SCOMM,UNACC,ALTDUZ,HFFDT)	;
ERRSEQ(EIEN)	;
FILERR(IENS,SEQ,TYPE,SRC,TXT)	;
MSGDIR(MSG)	;
CHPRCHG(ERXIEN)	;
ALG(LINE)	;

Name

Comments

DBIA/ICR reference

;

;

;

;

;

;

;

;

;

;

;

;

;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,LINE Line Location: PROVPMT+3
Function Call: WRITE	Prompt: !!,"This prescription is an inbound electronic prescription (eRx)." Line Location: PROVPMT+5
Function Call: WRITE	Prompt: !,"Please contact the original provider for approval to renew.",$C(7) Line Location: PROVPMT+6
Function Call: WRITE	Prompt: !,ERXPHNM Line Location: PROVPMT+9
Function Call: WRITE	Prompt: !!,"No telephone information on file for this provider." Line Location: PROVPMT+11
Function Call: WRITE	Prompt: ! Line Location: PROVPMT+18
Function Call: WRITE	Prompt: !!,"Answering 'Yes' indicates you have contacted the prescribing physician" Line Location: PROVPMT+21
Function Call: WRITE	Prompt: !!,"Errors encountered during processing:",! Line Location: MSGDIR+4
Function Call: WRITE	Prompt: !,MLOOP_".) ",MTXT Line Location: MSGDIR+6
Function Call: WRITE	Prompt: !!,"Cannot process eRx.",! Line Location: MSGDIR+7

FileNo	Call Tags
^PS(52.45 - [#52.45]	GET1^DIQ
^PS(52.46 - [#52.46]	GET1^DIQ
^PS(52.48 - [#52.48]	GET1^DIQ, GETS^DIQ
52.483	GET1^DIQ
^PS(52.49 - [#52.49]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ
52.4919	GET1^DIQ
52.49311	GET1^DIQ
52.499	GETS^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

FileNo

Call Tags

GET1^DIQ

GET1^DIQ

GET1^DIQ, GETS^DIQ

GET1^DIQ

Classic Fileman Calls, GET1^DIQ, GETS^DIQ