Routine: PSORENW2

Package	Total	Call Graph
Outpatient Pharmacy	4	SIGONE^PSOHELP EN^PSOORNE4 STOP^PSORENW1 INIT^PSORENW3
VA Fileman	1	^DIR

Package

Total

Call Graph

SIGONE^PSOHELP EN^PSOORNE4 STOP^PSORENW1 INIT^PSORENW3

^DIR

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: ?45,"NDC ",PSORENW("NDC") Line Location: DISPLAY+5
Function Call: WRITE	Prompt: " ("_PSORENW("AWP")_")" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: " ("_PSORENW("COST")_")" Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,$E($G(INS1),2,250),!!,$S($G(PSODRUG("TRADE NAME"))]"":PSODRUG("TRADE NAME"),1:PSODRUG("NAME")) Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,PSORENW("PROVIDER NAME"),?25,PSORX("CLERK CODE") Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !,"# of Refills: ",PSORENW("# OF REFILLS"),! Line Location: DISPLAY+10
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
Routine Call	DIR Line Location: ASK+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK+6, ASK+7, ASK+9, ASK+10

Name	Field # of Occurrence
DIR	ASK+1!, ASK+2!
DIR("A"	ASK+2*
DIR("B"	ASK+2*
DIR(0	ASK+2*
DIRUT	ASK+3, ASKX!
DTOUT	ASKX!
DUOUT	ASKX!
>> INS1	DISPLAY+8
>> POERR	ASK+5
>> PSEXDT	ASK+2, ASK+4, ASK+7, ASK+10
>> PSODRUG("NAME"	DISPLAY+8
>> PSODRUG("TRAD	E NAME" , DISPLAY+8
PSOELSE	ASK+4!, ASK+5!*, ASK+8
PSOQUIT	EOJ+1!
>> PSORENW	EDIT+2
>> PSORENW("# OF	REFILLS" , DISPLAY+10
>> PSORENW("AWP"	DISPLAY+6
>> PSORENW("COST"	DISPLAY+7
>> PSORENW("DFLG"	START+1, START+3, ASK+3, EDIT+4*
>> PSORENW("EDIT"	EOJ+1!
>> PSORENW("FILL	DATE" , DISPLAY+2, ASK+6, ASK+9
>> PSORENW("NDC"	DISPLAY+5
>> PSORENW("NRX	#" , DISPLAY+1
>> PSORENW("PROV	IDER NAME" , DISPLAY+9
>> PSORENW("QTY"	DISPLAY+3
>> PSORENW("SIG"	DISPLAY+8
PSORENW2	EOJ+1!
PSORENW2("QFLG"	START+1, START+3, ASK+11
>> PSORX("CLERK	CODE" , DISPLAY+9
>> PSORX("EDIT"	EDIT+1*, EOJ+1!
>> PSORX("FN"	EN+1
>> PSORX("NAME"	DISPLAY+3
SIG	ASKX!
>> VALMSG	ASK+6, ASK+7
X	DISPLAY+8*, ASK+1!, ASKX!
Y	ASK+1!, ASK+4, ASK+6, ASK+7, ASK+9, ASK+10, ASK+11, ASKX!

Information