Routine: PSORENW4

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Outpatient Pharmacy	17	^PSOBUILD PROV^PSODIR (DAYS,PTSTAT,QTY,REFILL)^PSODIR1 (CLINIC,FILLDT,ISSDT,MW)^PSODIR2 EN^PSOHLSN1 NOORE^PSONEW DCORD^PSONEW2 LOCK^PSOORCPY VER1^PSOORNE4 BLD^PSOORUT1 $$LMREJ^PSOREJU1 (CAN,CHECK,DRUG,FILDATE,RXN)^PSORENW0 (KLIB,SETIB,STOP)^PSORENW1 DSPLY^PSORENW3 EN^PSORN52 (RNPSOSD,SUSDATEK)^PSOUTIL CLEAN^PSOVER1
IHS Changes To Pharmacy	3	REMMSG^APSPFUNC $$SCREEN^APSPMULT $$AWP^APSQDAWP
VA Fileman	2	$$GET1^DIQ ^DIR
Order Entry Results Reporting	1	(LK,ULK)^ORX2
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK
Registration	1	(FULL,PAUSE)^VALM1

Name	Comments	DBIA/ICR reference
POZ	;
DSPL
PROCESS	; Process one order at a time
PROCESSX
INIT	;
ASK	;upfront questions
SEL
SELQ

External References

Name	Field # of Occurrence
REMMSG^APSPFUNC	PROCESS+10
$$SCREEN^APSPMULT	PROCESS+49
$$AWP^APSQDAWP	PROCESS+30
$$GET1^DIQ	PROCESS+2, PROCESS+3, PROCESS+4
^DIR	SEL+5, ASK+8, POZ+1
LK^ORX2	SEL+4
ULK^ORX2	SELQ
^PSOBUILD	SEL+11
PROV^PSODIR	ASK+11
DAYS^PSODIR1	ASK+6
PTSTAT^PSODIR1	ASK+5
QTY^PSODIR1	DSPL+7
REFILL^PSODIR1	ASK+7
CLINIC^PSODIR2	ASK+10
FILLDT^PSODIR2	ASK+2
ISSDT^PSODIR2	ASK+1
MW^PSODIR2	ASK+4
EN^PSOHLSN1	PROCESSX+12, PROCESSX+13
NOORE^PSONEW	INIT+2
DCORD^PSONEW2	DSPL+10
LOCK^PSOORCPY	SEL+3
VER1^PSOORNE4	DSPL+6
BLD^PSOORUT1	SEL+11
$$LMREJ^PSOREJU1	PROCESS+4
CAN^PSORENW0	DSPL+10
CHECK^PSORENW0	PROCESS+62
DRUG^PSORENW0	PROCESS+64
FILDATE^PSORENW0	PROCESS+63
RXN^PSORENW0	PROCESS+65
KLIB^PSORENW1	PROCESS+43, PROCESS+49, PROCESSX+9
SETIB^PSORENW1	PROCESS+13
STOP^PSORENW1	PROCESS+66
DSPLY^PSORENW3	DSPL+5
EN^PSORN52	DSPL+8
RNPSOSD^PSOUTIL	DSPL+9
SUSDATEK^PSOUTIL	PROCESSX+5
CLEAN^PSOVER1	SELQ, PROCESSX
$$L^PSSLOCK	SEL+3
PSOL^PSSLOCK	PROCESS+5
PSOUL^PSSLOCK	PROCESS+43, PROCESS+49, PROCESSX+8
UL^PSSLOCK	SEL+4, SELQ
FULL^VALM1	SEL+6
PAUSE^VALM1	PROCESS+2, PROCESS+4, PROCESS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Rx "_$$GET1^DIQ(52,$P(PSOLST(ORN),"^",2),.01)_" has OPEN/UNRESOLVED 3rd Party Payer Rejects!" Line Location: PROCESS+4
Function Call: WRITE	Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",! Line Location: PROCESS+45
Function Call: WRITE	Prompt: $C(7),!!,"Provider must hold YSCL AUTHORIZED key to write prescriptions for clozapine.",! Line Location: PROCESS+47
Function Call: WRITE	Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),! Line Location: PROCESS+58
Function Call: WRITE	Prompt: !! Line Location: ASK+1
Routine Call	DIR Line Location: SEL+5 ASK+8 POZ+1

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	PROCESS+60
^PSDRUG - [#50]	PROCESS+43, PROCESS+58, PROCESS+59
^PSRX - [#52]	PROCESS+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+20, PROCESS+29, PROCESS+31, PROCESS+32, PROCESS+34, PROCESS+36 , PROCESS+41, PROCESS+52, PROCESS+53, PROCESS+54, PROCESS+60, DSPL+12, PROCESSX+13
^PSRX("B"	DSPL+12
^TMP("PSORXN"	PROCESSX+11, PROCESSX+12, PROCESSX+14!
^VA(200 - [#200]	PROCESS+17, PROCESS+44
^XUSEC("PSORPH"	DSPL+6
^XUSEC("YSCL AUTHORIZED"	PROCESS+46

Name	Line Occurrences
ASK	INIT+1
INIT	SEL+7
POZ	PROCESS+43, PROCESSX+3
PROCESS	SEL+8
PROCESSX	PROCESS+59, PROCESS+62, PROCESS+64, PROCESS+65, DSPL+5, DSPL+6, DSPL+7
SELQ	SEL+5, SEL+9

Name	Field # of Occurrence
^("OR1"	PROCESS+60
^("STA"	PROCESS+11
^("TN"	PROCESS+11
^(2	PROCESS+11
^(3	PROCESS+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSPDRG	PROCESS+6~, PROCESS+9*, PROCESS+10
>> BBFLG	DSPL+12*
BBRN	DSPL+12*, PROCESSX+6!
BBRN1	DSPL+12*, PROCESSX+6!
>> BBRX(1	DSPL+12*
>> BINGCRT	DSPL+12*
>> BINGRTE	DSPL+12*
DEA	DSPL+1*, DSPL+11!
DIR	SEL+5!, SEL+6!, SEL+11!, PROCESS+2!, PROCESS+4!, PROCESS+5!, ASK+8!, ASK+9!, POZ+1!
DIR("A"	SEL+5, ASK+8, POZ+1*
DIR("B"	ASK+8*
DIR(0	SEL+5, ASK+8, POZ+1*
DIRUT	SEL+5!, SEL+6!, SEL+11!, ASK+8!, ASK+9!, POZ+1!
DOSE	PROCESS+36*, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42!
DRET	SELQ!, PROCESS+7!
DSMSG	SEL+11!
DTOUT	SEL+5!, SEL+6!, SEL+11!, POZ+1!
DUOUT	SEL+5!, SEL+11!
DUZ	DSPL+6
>> I	PROCESS+12, PROCESS+36, PROCESS+41
IEN	SEL+11!
LST	SEL+6*, SEL+8, SEL+11!
ORD	SEL+8*, SEL+11!
ORN	SEL+8*, SEL+11!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+43, PROCESS+49, PROCESSX+8
ORSV	SEL+11!
PHI	SEL+5!, SELQ!, PROCESS+7!, PROCESS+53*, PROCESSX+1!
PHI(	PROCESS+54*
>> POERR	PROCESSX
>> POERR("DFLG"	PROCESSX*
PRC	SEL+5!, SELQ!, PROCESS+7!, PROCESSX+1!
PSDY	DSPL*, DSPL+3, DSPL+11!
PSOACT	SEL+11!
>> PSOCNT	SEL+2, SEL+5
PSOCO	SEL+11!
PSOCU	SEL+11!
>> PSODFN	SEL+3, SEL+4, SELQ
PSODIR	SEL+11!
PSODIR("CS"	DSPL+1*, DSPL+2, DSPL+11!
PSODIR("DFLG"	SEL+7*
PSODIR("FIELD"	SEL+7*
PSODRUG	SEL!, PROCESSX+1!, PROCESSX+6!
PSODRUG("DEA"	DSPL+1, ASK+7*!
PSODRUG("OI"	PROCESS+60*
PSODRUG("OIN"	PROCESS+60*
PSOEDT	DSPL!, PROCESSX+7!
PSOFDR	SEL+5!
>> PSOFROM	PROCESS+7*
>> PSOIBOLD	PROCESS+13*
PSOID	SEL+11!, ASK+1
PSOLM	DSPL!, PROCESSX+7!
>> PSOLST(	SEL+8, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+43, PROCESS+49, PROCESSX+8
PSOMSG	SEL+11!, PROCESS+2!, PROCESS+4!, PROCESS+5!
PSON	PROCESS+43~!, PROCESS+45, PROCESS+47*
>> PSONEW("# OF	REFILLS" , ASK+2!
>> PSONEW("DAYS	SUPPLY" , ASK+2!
PSONO	SEL+11!
PSOOELSE	SEL+6!*, SEL+9, SEL+11!
PSOOPT	SEL+7*, SEL+11!
>> PSOPAR	SEL+1, DSPL+6
PSOPLCK	SEL+3*!, SEL+4!
PSOQTY	SEL+11!, DSPL+7, ASK+9*
PSORDLOK	PROCESSX+4!*, PROCESSX+8, PROCESSX+10!
PSORENW	SEL+11!, DSPL+6, DSPL+7, DSPL+8, PROCESSX+5, INIT+2, ASK+1, ASK+2, ASK+4, ASK+5 , ASK+6, ASK+7, ASK+10, ASK+11
PSORENW("# OF	REFILLS" , DSPL, DSPL+3, DSPL+4, DSPL+11*
PSORENW("AWP"	PROCESS+30*
PSORENW("BST"	PROCESS+31*
PSORENW("CLINIC"	PROCESS+18*
PSORENW("CM"	PROCESS+32*
PSORENW("CONJUNCTION"	PROCESS+39*
PSORENW("COSI	GNING PROVIDER" , PROCESS+16*
PSORENW("DAYS	SUPPLY" , DSPL
PSORENW("DFLG"	SEL+7, SEL+8, PROCESS+59, PROCESS+62, PROCESS+64, PROCESS+65, DSPL+5, DSPL+6, DSPL+7, PROCESSX , PROCESSX+4, PROCESSX+7, INIT+1, INIT+2, ASK+1, ASK+2, ASK+4, ASK+5, ASK+6, ASK+7 , ASK+8, ASK+10, ASK+11*
PSORENW("DOSE	ORDERED" , PROCESS+38*
PSORENW("DOSE"	PROCESS+37*, PROCESSX+2!
PSORENW("DRUG	IEN" , PROCESS+23*, PROCESS+30, PROCESS+43, PROCESS+49, PROCESS+58, PROCESSX+2!
PSORENW("DURATION"	PROCESS+39*, PROCESSX+2!
PSORENW("ENT"	PROCESS+34, PROCESS+35, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+41, DSPL+11!, PROCESSX+2!
PSORENW("FILL	DATE" , ASK+3
PSORENW("FROM"	PROCESSX+7
PSORENW("INS"	PROCESS+34*, PROCESSX+2!
PSORENW("ISSU	E DATE" , ASK+1*
PSORENW("MAIL/WINDOW"	PROCESS+51*
PSORENW("NDC"	PROCESS+33!
PSORENW("NOUN"	PROCESS+40*, PROCESSX+2!
PSORENW("NRX	#" , DSPL+12
PSORENW("ODOSE"	PROCESS+41*
PSORENW("OIRXN"	PROCESS+7*, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+20, PROCESS+29, PROCESS+31, PROCESS+32, PROCESS+34 , PROCESS+36, PROCESS+41, PROCESS+52, PROCESS+53, PROCESS+54, PROCESS+60
PSORENW("OLD	FILL DATE" , PROCESSX+5
PSORENW("ORX	#" , PROCESS+22*, PROCESS+58
PSORENW("PROVIDER"	PROCESS+14, PROCESS+15*, PROCESS+17, PROCESS+44, PROCESS+46
PSORENW("PSODFN"	PROCESS+21*
PSORENW("QFLG"	SEL+7, PROCESSX+7
PSORENW("QTY"	PROCESS+24*
PSORENW("REMARKS"	PROCESS+19*
PSORENW("ROUTE"	PROCESS+38*, PROCESSX+2!
PSORENW("RX0"	PROCESS+11*, PROCESS+15, PROCESS+18, PROCESS+19, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+59
PSORENW("RX2"	PROCESS+11*, PROCESS+30
PSORENW("RX3"	PROCESS+11*, PROCESS+16
PSORENW("SCHEDULE"	PROCESS+39*, PROCESSX+2!
PSORENW("SIG"	PROCESS+20*, PROCESSX+2!
PSORENW("STA"	PROCESS+11*
PSORENW("TN"	PROCESS+11*
PSORENW("UNITS"	PROCESS+38*, PROCESSX+2!
PSORENW("VERB"	PROCESS+40*, PROCESSX+2!
PSORNSPD	SEL+5!, SEL+6*, SELQ!
PSORNW	SEL+11!
PSORNW("FILL	DATE" , ASK+3*
PSORNW("MAIL/WINDOW"	PROCESS+51
>> PSORX("CLINIC"	PROCESSX+6!
>> PSORX("DFLG"	SEL+7, SEL+11!, PROCESS+61
>> PSORX("EDIT"	SEL+5!
>> PSORX("FILL D	ATE" , SEL+11!
>> PSORX("ISSUE	DATE" , SEL+11!
>> PSORX("PROVID	ER NAME" , PROCESS+17*, PROCESSX+6!
PSORXED	PROCESSX+1!
PSRF	DSPL*, DSPL+4, DSPL+11!
REF	SEL+11!
REFL	SEL+11!
RET	PROCESS+7!
RPH	SEL+11!
RTE	SELQ!
RXN	PROCESSX+11*, PROCESSX+12, PROCESSX+13, PROCESSX+14!
RXN1	PROCESSX+12*, PROCESSX+13, PROCESSX+14!
SIG	PROCESSX+1!
SIG(	PROCESS+12*
SIGOK	PROCESS+11*, PROCESS+12, PROCESSX+1!
SPEED	SEL+6*, SEL+11!
ST	SEL+11!
T	PROCESS+52!, PROCESS+53, PROCESS+54
TALK	PROCESS+28~, PROCESS+30
U	PROCESS+2, PROCESS+30, PROCESS+31, PROCESS+32
>> VALMBCK	SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, SEL+9, SEL+10*
VALMCNT	SEL+2~
>> VALMSG	SEL+1, SEL+2, SEL+3, SEL+4, PROCESS+61*
>> X	SEL+4, SELQ
>> Y	SEL+4, SEL+6, ASK+9

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORENW4

Information

Source Information

Call Graph

Call Graph Total: 25

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: