Routine: PSORENW2

Information

PSORENW2 ;IHS/DSD/JCM - displays renew rx information for edit ; 12/09/92 10:14 am

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Rx # ",PSORENW("NRX #") Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?23,$E(PSORENW("FILL DATE"),4,5),"/",$E(PSORENW("FILL DATE"),6,7),"/",$E(PSORENW("FILL DATE"),2,3) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,$G(PSORX("NAME")),?30,"#",PSORENW("QTY") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,$E($G(INS1),2,250),!!,$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:PSODRUG("NAME")) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,PSORENW("PROVIDER NAME"),?25,PSORX("CLERK CODE") Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,"# of Refills: ",PSORENW("# OF REFILLS"),! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of " Line Location: ASK+9
Function Call: WRITE	Prompt: Y_".",! Line Location: ASK+10