Routine: PSOREF0

Information

PSOREF0 ;IHS/JCM - REFILL CON'T ;21-Nov-2010 19:44;SM

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Outpatient Pharmacy	7	^PSOPTPST EN^PSOR52 (IHSSET,PROFILE)^PSOREF1 LOOK^PSOREF2 (NEXT,STATUS,SUSDATE,SUSDATEK)^PSOUTIL FSIG^PSOUTLA ($$DEACHK,EN2)^PSOUTLA1
IHS Changes To Pharmacy	3	$$SCREEN^APSPMULT EN^APSPPCC1 PRINT^APSQLAB
VA Fileman	3	DD^%DT $$GET1^DIQ ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$FMTE^XLFDT
Registration	1	PAUSE^VALM1

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOBBC PSOORFI2 PSOREF

Entry Points

Name	Comments	DBIA/ICR reference
DATES
NEWPT
DSPLYX
CHKDIV
PROCESS	;
EDATE
DATESX
NUMBER
PROCESSX
DSPLY	;W !!,$P(PSOREF("RX0"),"^"),?12," ",$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^"),?45," SIG: "_PSOREF("SIG"),?60," QTY: ",$P(PSOREF("RX0"),"^",7)
CKQ	;
CHECKX
EN(PSOREF)
NEWPTX
CHKDIVX
CHECK	;
DIR

External References

Name	Field # of Occurrence
DD^%DT	EDATE+11
$$SCREEN^APSPMULT	CHECK+3
EN^APSPPCC1	PROCESS+17
PRINT^APSQLAB	PROCESS+8
$$HRN^AUPNPAT	PROCESS+7
$$GET1^DIQ	PROCESS+7
^DIR	DIR+1
^PSOPTPST	NEWPT
EN^PSOR52	PROCESS+13
IHSSET^PSOREF1	PROCESS+12
PROFILE^PSOREF1	NEWPT+1
LOOK^PSOREF2	CHECK+11
NEXT^PSOUTIL	DATES
STATUS^PSOUTIL	CHECK+8
SUSDATE^PSOUTIL	DATES+3
SUSDATEK^PSOUTIL	PROCESSX
FSIG^PSOUTLA	DSPLY+1
$$DEACHK^PSOUTLA1	CHECK+27
EN2^PSOUTLA1	DSPLY+2
PAUSE^VALM1	CKQ+1
$$FMTE^XLFDT	PROCESS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Now refilling Rx# ",$P(PSOREF("RX0"),"^")_" Drug: "_$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^") Line Location: PROCESS+4
Function Call: WRITE	Prompt: !,"Patient: "_$$GET1^DIQ(2,PSODFN,.01)_" HRN: "_$$HRN^AUPNPAT(PSODFN,DUZ(2))_" LFDT: "_$$FMTE^XLFDT(+PSOREF("RX3"),"5Z") Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"Qty: ",$P(PSOREF("RX0"),"^",7),?19,"Sig: ",$G(BSIG(1)) Line Location: DSPLY+3
Function Call: WRITE	Prompt: !?24,$G(BSIG(PSREV)) Line Location: DSPLY+4
Function Call: WRITE	Prompt: $C(7),!!," Drug is not selectable for Rx # "_$P(PSOREF("RX0"),"^")_" cannot be refilled *",! Line Location: CHECK+3
Function Call: WRITE	Prompt: !!,?5,$C(7),"Can't refill Rx # "_$P(PSOREF("RX0"),"^")_", it is not for this patient." Line Location: CHECK+4
Function Call: WRITE	Prompt: !,$C(7),"Cannot refill, Rx is discontinued or expired. Later Rx may exist.",! Line Location: CHECK+10
Function Call: WRITE	Prompt: !,$C(7),"Rx is in suspense and cannot be refilled" Line Location: CHECK+14
Function Call: WRITE	Prompt: !,$C(7),"Rx is in "_PSOY_" status, cannot be refilled" Line Location: CHECK+19
Function Call: WRITE	Prompt: !?5,"Can't refill, no refills remaining." Line Location: CHECK+21
Function Call: WRITE	Prompt: $C(7),!!,"This drug has been changed, No refills allowed",! Line Location: CHECK+28
Function Call: WRITE	Prompt: !?5,$C(7),"RX # ",$P(PSOREF("RX0"),"^")," is for (",$P(^PS(59,$P(PSOREF("RX2"),"^",9),0),"^"),") division." Line Location: CHKDIV+1
Function Call: WRITE	Prompt: !,"******* Not Refilled *******" Line Location: CHKDIV+2
Function Call: WRITE	Prompt: !!?5,$C(7),"Can't refill, Refill Date ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/" Line Location: DATES+6
Function Call: WRITE	Prompt: $E(PSOREF("FILL DATE"),2,3)," is past Expiration Date ",$E(PSOREF("STOP DATE"),4,5),"/",$E(PSOREF("STOP DATE"),6,7),"/" Line Location: DATES+7
Function Call: WRITE	Prompt: $E(PSOREF("STOP DATE"),2,3) Line Location: DATES+8
Function Call: WRITE	Prompt: !?5,"Can't refill, Fill Date already exists for ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/",$E(PSOREF("FILL DATE"),2,3) Line Location: EDATE+2
Function Call: WRITE	Prompt: !?5,"Can't refill, later Refill Date already exists for ",$E(PSOREF("LAST REFILL DATE"),4,5),"/",$E(PSOREF("LAST REFILL DATE"),6,7),"/",$E(PSOREF("LAST REFILL DATE"),2,3) Line Location: EDATE+5
Function Call: WRITE	Prompt: !?5,$C(7),"LESS THAN ",PSOX1," DAYS FOR ",PSOREF("NUMBER")+1," FILLS",! Line Location: EDATE+9
Function Call: WRITE	Prompt: !!,$C(7),"Cannot be refilled until "_Y_"." Line Location: EDATE+11
Routine Call	DIR Line Location: DIR+1

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(52	CHECK+18
^PS(52.5 - [#52.5]	CHECK+14
^PS(59 - [#59]	CHKDIV+1
^PSDRUG - [#50]	PROCESS+4, CHECK+1, CHECK+25
^PSRX - [#52]	PROCESS+1, DSPLY+1, DSPLY+2, NUMBER+1

Label References

Name	Line Occurrences
CHECK	PROCESS+13
CHECKX	CHECK+13, CHECK+14, CHECK+17, CHECK+20, CHECK+21, CHECK+27, CKQ+1
CHKDIV	CHECK+20
CHKDIVX	CHKDIV, CHKDIV+2
CKQ	CHECK+1, CHECK+3, CHECK+4
DATES	CHECK+31
DATESX	EDATE+1, EDATE+4
DIR	CHKDIV+3, EDATE+9
DSPLY	PROCESS+9
EDATE	DATES+1
NEWPT	PROCESS+3
NEWPTX	NEWPT
NUMBER	CHECK+21
PROCESS	PROCESS+13, EN+1
PROCESSX	PROCESS+9, PROCESS+13

Naked Globals

Name	Field # of Occurrence
^("I"	CHECK+1
^("SIG"	PROCESS+1
^("STA"	PROCESS+1
^(2	PROCESS+1
^(3	PROCESS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BINGCRT	PROCESS+18*
>> BINGRTE	PROCESS+18*
BSIG	DSPLY+1!, DSPLY+5!
BSIG(	DSPLY+1*, DSPLY+4
BSIG(1	DSPLY+3, DSPLY+4
>> DFN	NEWPT*
DIR	DIR!, DIR+1!
DIR("?"	DIR*
DIR("A"	DIR*
DIR("B"	DIR*
DIR(0	DIR*
DIRUT	DIR+1!
DRUG	EN+1!
DT	CHECK+1, DATES+2
DTOUT	DIR+1!
DUOUT	DIR+1!
DUZ(2	PROCESS+7
FSIG	DSPLY+1!, DSPLY+2!
FSIG(	DSPLY+1
>> PSOBBC("QFLG"	DATES+1
PSODAY	CHECK+24~, CHECK+26*, CHECK+27
PSODEA	CHECK+24~, CHECK+25*, CHECK+27
PSODF	PROCESS+1!, PROCESS+13, CHECK+10, CHECK+11, EN+1!
>> PSODFN	PROCESS+3, PROCESS+7, CHECK+4, NEWPT*
PSODRG	CHECK+24~, CHECK+25*
>> PSOERR	CHECK+7
>> PSOMHV	CHKDIV+2, EDATE+11, DIR+1*
>> PSOPAR	CHECK+1, DATES+1, DATES+3, EDATE+7, EDATE+10
>> PSOQFLG	NEWPT*
PSOREA	CHECK+7*, CHECK+8!
PSOREF	PROCESS+13, PROCESSX, DATES, DATES+3, EN~
PSOREF("# OF	REFILLS" , NUMBER, NUMBER+1, NUMBER+2
PSOREF("AWP"	PROCESS+12
PSOREF("DAYS	SUPPLY" , PROCESS+2*, EDATE+8
PSOREF("DFLG"	PROCESS+9, PROCESS+13, CHECK+6, CHECK+7, CHECK+12, CHECK+13, CHECK+14, CHECK+19, CHECK+20, CHECK+21 , CHECK+29, CKQ+1, CHKDIV+2, DATES+1, DATES+8, EDATE+3, EDATE+6, EDATE+11, DIR+1, NEWPT*
PSOREF("EAOK"	EDATE+7, EDATE+10
PSOREF("FILL	DATE" , DATES+2*, DATES+3, DATES+5, DATES+6, DATES+7, EDATE+1, EDATE+2, EDATE+4, EDATE+7 , EDATE+10
PSOREF("IRXN"	PROCESS+1, PROCESS+5, PROCESS+17, DSPLY+1, DSPLY+2, CHECK+6, CHECK+14, CHECK+27, NUMBER+1
PSOREF("LAST	REFILL DATE" , EDATE*, EDATE+1, EDATE+4, EDATE+5
PSOREF("MAIL/WINDOW"	PROCESS+18
PSOREF("NUMBER"	CHECK+21, NUMBER+2*, EDATE+8, EDATE+9
PSOREF("OLD F	ILL DATE" , PROCESSX
PSOREF("PSODFN"	PROCESS+1*, PROCESS+3, PROCESS+17, CHECK+4, NEWPT
PSOREF("RX0"	PROCESS+1*, PROCESS+2, PROCESS+4, DSPLY+3, CHECK+1, CHECK+2, CHECK+3, CHECK+4, CHECK+7, CHECK+21 , CHECK+25, CHECK+26, CHKDIV+1
PSOREF("RX2"	PROCESS+1*, CHKDIV, CHKDIV+1, DATES
PSOREF("RX3"	PROCESS+1*, PROCESS+7, DATES+3, EDATE, EDATE+7, EDATE+10, EDATE+11
PSOREF("RXSTATUS"	CHECK+16*, CHECK+17, CHECK+18
PSOREF("SIG"	PROCESS+1*
PSOREF("STA"	PROCESS+1*, CHECK+7, CHECK+16
PSOREF("STOP	DATE" , DATES*, DATES+5, DATES+7, DATES+8
>> PSORX("BAR CO	DE" , PROCESS+3, CHECK+4
>> PSOSD	CHECK+6
>> PSOSD(	CHECK+6
>> PSOSITE	CHKDIV
PSOSTAT	CHECK+7*, CHECK+8!
>> PSOSYS	CHKDIV+2, CHKDIV+3
PSOX	CHECK+5, CHECK+6, CHECK+13!, CHECK+18, NUMBER!, NUMBER+1
PSOX1	EDATE+8*, EDATE+9!
PSOY	CHECK+5, CHECK+6, CHECK+7, CHECK+10, CHECK+13!, CHECK+18*, CHECK+19, NUMBER!
PSREV	DSPLY+1, DSPLY+2!, DSPLY+4, DSPLY+5!
>> STA	CHECK+5, CHECK+6
U	CHECK+25, CHECK+26
X	DIR!, DIR+1!
>> XFROM	PROCESS+12
Y	EDATE+11*!, DIR!, DIR+1!
>> ZD(	PROCESS+5!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREF0

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: