Routine: PSOERXU6

Information

PSOERXU6 ;ALB/BWF - eRx utilities ;Feb 10, 2022@11:04

Name	Comments	DBIA/ICR reference
CANDC(ERXIEN,INST,PSSRET)	;
CANRELHQ(NERXIEN)	;
CANACT(ERXIEN,RXIEN,INST,PSSRET)	;
CANPEND(ERXIEN,PENDIEN,INST,PSSRET)	;
BLDRESP(RXIEN)	;
FINDNRX(ERXIEN)	;
JTQ(ERXIEN)	;
PN(ERXIEN)	; Enter VistA Patient Progress Notes
VARENEW(OPIEN)	;
SH(ERXIEN)	;
LSIG(SIG)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: JTQ+5
Function Call: WRITE	Prompt: !!,"Jumping can only be done on 'NewRx', 'Renewal Response - Replace' and fillable 'RxChange Response' messages.",! Line Location: JTQ+9
Function Call: WRITE	Prompt: !!,"Vista patient has not been matched. Cannot jump to outpatient.",! Line Location: JTQ+13
Function Call: WRITE	Prompt: !!,"Vista patient has not been validated. Cannot jump to outpatient.",! Line Location: JTQ+14
Function Call: WRITE	Prompt: !,"Patient has no pending prescriptions." Line Location: JTQ+20
Function Call: WRITE	Prompt: !,"Patient: "_PTNM,! Line Location: JTQ+21
Function Call: WRITE	Prompt: !,LINE Line Location: SH+3
Function Call: WRITE	Prompt: !,"No Status History Available." Line Location: SH+5