Routine: PSORENW3

Package	Total	Call Graph
Outpatient Pharmacy	4	PROV^PSODIR (QTY,REFILL)^PSODIR1 (CLERK,CLINIC,FILLDT,ISSDT,MW,RMK)^PSODIR2 SIG^PSOHELP
IHS Changes To Pharmacy	3	($$TRPDCLS,AWP,BST,CASHDUE,COST,DSCMED,EXPDATE,INSURER,LOT,MANUF,NDC,SUBS,TRIP)^APSPDIR FFDTWARN^APSPFUNC $$AWP^APSQDAWP
VA Fileman	3	$$EXTERNAL^DILFD $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSODIR PSODIR1 PSODIR2 PSODIR3 PSOORRNW PSORENW0 PSORENW2 PSORENW4
IHS Changes To Pharmacy	1	APSQFUTI

Entry Points

Name	Comments	DBIA/ICR reference
601
451	;G:$G(PSOTRIP)'=1 501 ; Triplicate Switch
60
61
62
63
65
67
68
69
87
85
45
INIT	;
40
1
3
2	;S PSORENW("FLD")=2 D FILLDT^PSODIR2(.PSORENW) ; Get Fill date
5
4
7	;I $G(DUZ("AG"))="I" S PSORENW("FLD")=7 D EXP^PSODIR2(.PSORENW) ; Get Expiration Date - Indian Health Service ONLY
6
9
8
501
END	; ; IHS/CIA/PLS - 01/06/04 - Added next two lines
611
JUMP	;
START	;
DSPLYX
70
DSPLY	;called from PSORENW0
50
INITX

External References

Name	Field # of Occurrence
$$TRPDCLS^APSPDIR	451+1
AWP^APSPDIR	60
BST^APSPDIR	85
CASHDUE^APSPDIR	70
COST^APSPDIR	61
DSCMED^APSPDIR	69
EXPDATE^APSPDIR	67
INSURER^APSPDIR	87
LOT^APSPDIR	65
MANUF^APSPDIR	63
NDC^APSPDIR	50
SUBS^APSPDIR	68
TRIP^APSPDIR	45
FFDTWARN^APSPFUNC	2+2
$$AWP^APSQDAWP	END+2
$$EXTERNAL^DILFD	DSPLY+22, DSPLY+24, DSPLY+26
$$GET1^DIQ	70
^DIR	DSPLY+27
PROV^PSODIR	3
QTY^PSODIR1	40
REFILL^PSODIR1	4+1
CLERK^PSODIR2	8
CLINIC^PSODIR2	9
FILLDT^PSODIR2	2+1
ISSDT^PSODIR2	1
MW^PSODIR2	6
RMK^PSODIR2	5
SIG^PSOHELP	INIT+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,PSORENW("NRX #"),?12," ",$P(^PSDRUG(PSORENW("DRUG IEN"),0),"^"),?46," QTY: ",$P(PSORENW("RX0"),"^",7) Line Location: DSPLY+1
Function Call: WRITE	Prompt: !,"# OF REFILLS: "_$S($G(PSORENW("# OF REFILLS")):PSORENW("# OF REFILLS"),1:$P(PSORENW("RX0"),"^",9)) Line Location: DSPLY+2
Function Call: WRITE	Prompt: " ISSUED: "_$S(DT>PSORENW("FILL DATE"):$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3),1:$E(DT,4,5)_"-"_$E(DT,6,7)_"-"_$E(DT,2,3)) Line Location: DSPLY+3
Function Call: WRITE	Prompt: SIG(D),! Line Location: DSPLY+10
Function Call: WRITE	Prompt: " SIG: "_PSORENW("SIG")_" " Line Location: DSPLY+13
Function Call: WRITE	Prompt: "FILLED: "_$E(PSORENW("FILL DATE"),4,5)_"-"_$E(PSORENW("FILL DATE"),6,7)_"-"_$E(PSORENW("FILL DATE"),2,3) Line Location: DSPLY+14
Function Call: WRITE	Prompt: !,"ROUTING: "_$S($G(PSORENW("MAIL/WINDOW"))["W":"WINDOW",1:"MAIL") Line Location: DSPLY+15
Function Call: WRITE	Prompt: " PHYS: "_PSORX("PROVIDER NAME"),! Line Location: DSPLY+16
Function Call: WRITE	Prompt: "NDC: ",$S($G(PSORENW("NDC"))]"":PSORENW("NDC"),1:$G(PSODRUG("NDC"))) Line Location: DSPLY+18
Function Call: WRITE	Prompt: " ("_$S($G(PSORENW("AWP"))]"":PSORENW("AWP"),1:$G(PSODRUG("AWP")))_") " Line Location: DSPLY+19
Function Call: WRITE	Prompt: " ("_$S($G(PSORENW("COST"))]"":PSORENW("AWP"),1:$G(PSODRUG("COST")))_")" Line Location: DSPLY+20
Function Call: WRITE	Prompt: !,"SUBSTITUTION: "_$$EXTERNAL^DILFD(52,9999999.25,,$G(PSONEW("DAW"))) Line Location: DSPLY+22
Function Call: WRITE	Prompt: !,"DISCHARGE MEDICATION: "_$$EXTERNAL^DILFD(52,9999999.28,,$G(PSONEW("DSCMED"))) Line Location: DSPLY+24
Function Call: WRITE	Prompt: !,"CASH DUE: "_$$EXTERNAL^DILFD(52,9999999.26,,$G(PSONEW("CASH DUE"))) Line Location: DSPLY+26
Routine Call	DIR Line Location: DSPLY+27

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	EXTERNAL^DILFD
^APSPCTRL - [#9009033]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INIT+9
^PS(52.41 - [#52.41]	INIT+28
^PS(53 - [#53]	INIT+12
^PSDRUG - [#50]	DSPLY+1
^PSRX - [#52]	INIT+17, INIT+18, INIT+19, INIT+24, INIT+26, INIT+27, INIT+30, INIT+31, DSPLY+8, DSPLY+11
^SC - [#44]	INIT+8
^VA(200 - [#200]	INIT+11, INIT+16

Label References

Name	Line Occurrences
4	62
5	4+5
501	451+1
601	501
611	601
62	611
67	62
@(	1+1, 2+3, 3+1, 40+1, 45+1, 50+1, 60+1, 61+1, 63+1, 65+1 , 67+1, 68+1, 69+1, 70+1, 4+2, 85+1, 87+1, 5+1, 6+1, 8+1 , 9+1
END	1+1, 2+3, 3+1, 40+1, 45+1, 50+1, 60+1, 61+1, 63+1, 65+1 , 67+1, 68+1, 69+1, 70+1, 4+2, 85+1, 87+1, 5+1, 6+1, 8+1 , 9+1
INIT	START+1
INITX	INIT+4

Naked Globals

Name	Field # of Occurrence
^("SIG"	INIT+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPMAN	62
>> APSRNEW	2+1*
>> D	INIT+18, DSPLY+8, DSPLY+10*
DIR	DSPLY+27!
DIR("A"	DSPLY+27*
DIR(0	DSPLY+27*
DIRUT	DSPLY+27!
DOSE	INIT+19*, INIT+20, INIT+21, INIT+22, INIT+23, INIT+25!
DR	DSPLY+5*, DSPLY+6, DSPLY+7, DSPLY+9!
DT	INIT+5, DSPLY+3
DTOUT	DSPLY+27!
DUOUT	DSPLY+27!
DUR1	DSPLY+6*, DSPLY+7, DSPLY+9!
DUZ	INIT+16
DUZ("AG"	8
>> I	INIT+19, INIT+24, INIT+27, INIT+28, DSPLY+11
>> INS1	INIT+31
>> OR0	INIT+7
>> ORD	INIT+28
>> PSOAWP	601
>> PSOBILRX	4+5
>> PSOBILST	4+5
>> PSOCOST	611
>> PSODRUG("AWP"	INIT+34, DSPLY+19
>> PSODRUG("COST"	INIT+35, DSPLY+20
>> PSODRUG("DEA"	451+1
>> PSODRUG("IEN"	END+2
>> PSODRUG("NDC"	END+2, INIT+33, DSPLY+18
>> PSOFDR	INIT+7
>> PSONDC	501
>> PSONEW("CASH	DUE" , DSPLY+26
>> PSONEW("DAW"	DSPLY+22
>> PSONEW("DSCMED"	DSPLY+24
>> PSONEW("FIELD"	JUMP+6*
>> PSOORRNW	INIT+28
>> PSORENW	1, 2+1, 3, 40, 45, 50, 60, 61, 63, 65 , 67, 68, 69, 70, 4+1, 85, 87, 5, 6, 8 , 9
>> PSORENW("# OF	REFILLS" , 4+1!, INIT+13*, DSPLY+2
>> PSORENW("AWP"	50+2!, END+2, INIT+34, DSPLY+19, DSPLY+20
>> PSORENW("BST"	4+5*
>> PSORENW("CLINIC"	INIT+6, INIT+7, INIT+8
>> PSORENW("CONJUNCTION"	INIT+22*
>> PSORENW("COST"	50+3!, INIT+35*, DSPLY+20
>> PSORENW("DAYS	SUPPLY" , 4, INIT+2
>> PSORENW("DFLG"	1+1, 2+3, 3+1, 40+1, 45+1, 50+1, 60+1, 61+1, 63+1, 65+1 , 67+1, 68+1, 69+1, 70+1, 4+2, 85+1, 87+1, 5+1, 6+1, 8+1 , 9+1, INIT+3, DSPLY+12, DSPLY+27
>> PSORENW("DOSE	ORDERED" , INIT+21*
>> PSORENW("DOSE"	INIT+19, INIT+20*
>> PSORENW("DRUG	IEN" , DSPLY+1
>> PSORENW("DURATION"	INIT+22, DSPLY+5, DSPLY+6, DSPLY+7
>> PSORENW("EDIT"	END+4*, INIT+4
>> PSORENW("ENT"	INIT+20*, INIT+21, INIT+22, INIT+23, INIT+24, DSPLY+5
>> PSORENW("FIELD"	1+1, 2+3, 3+1, 40+1, 45+1, 50+1, 60+1, 61+1, 63+1, 65+1 , 67+1, 68+1, 69+1, 70+1, 4+2, 85+1, 87+1, 5+1, 6+1, 8+1 , 9+1, INIT+3, JUMP+1
>> PSORENW("FILL	DATE" , 2+2, INIT+5, INIT+9, DSPLY+3, DSPLY+14
>> PSORENW("FLD"	1, 2+1, 3, 40, 45, 50, 60, 61, 63, 65 , 67, 68, 69, 70, 4, 85, 87, 5, 6, 8 , 9*, JUMP+1
>> PSORENW("INS"	INIT+17*
>> PSORENW("ISSU	E DATE" , INIT+5*
>> PSORENW("MAIL/WINDOW"	DSPLY+15
>> PSORENW("NDC"	END+2, INIT+33*, DSPLY+18
>> PSORENW("NOUN"	INIT+23*
>> PSORENW("NRX	#" , DSPLY+1
>> PSORENW("ODOSE"	INIT+24*
>> PSORENW("OIRXN"	INIT+17, INIT+18, INIT+19, INIT+24, INIT+26, INIT+27, INIT+30, INIT+31, DSPLY+8, DSPLY+11
>> PSORENW("PATI	ENT STATUS" , END+3*
>> PSORENW("PROV	IDER NAME" , INIT+11*
>> PSORENW("PROVIDER"	INIT+10*, INIT+11
>> PSORENW("PTST	NODE" , INIT+12*
>> PSORENW("QTY"	INIT+1*
>> PSORENW("REMARKS"	INIT+14*
>> PSORENW("ROUTE"	INIT+21*
>> PSORENW("RX0"	4, INIT+1, INIT+2, INIT+6, INIT+10, INIT+12, INIT+13, INIT+14, INIT+15, DSPLY+1 , DSPLY+2
>> PSORENW("SCHEDULE"	INIT+22*
>> PSORENW("SIG"	INIT+18, INIT+32, DSPLY+8*, DSPLY+13
>> PSORENW("UNITS"	INIT+21*
>> PSORENW("VERB"	INIT+23*
PSORENW3	END+4!, INIT+3*
>> PSORX("CLERK	CODE" , INIT+16*
>> PSORX("CLINIC"	INIT+8*
>> PSORX("FILL D	ATE" , INIT+9*
>> PSORX("MAIL/WINDOW"	INIT+15*
>> PSORX("PATIEN	T STATUS" , END+3
>> PSORX("PROVID	ER NAME" , DSPLY+16
>> PSOSITE	70
>> PSOTRIP	451+1
>> SIG(	INIT+27, INIT+28, DSPLY+10, DSPLY+11*
>> SIG(0	INIT+26, INIT+28, INIT+29, INIT+30, INIT+32, DSPLY+10, DSPLY+12
>> SIG(1	INIT+29, INIT+31, INIT+32, DSPLY+12
>> SIG(2	DSPLY+12*
>> SIGOK	INIT+26, INIT+30, DSPLY+10
>> SPEED	DSPLY+27
>> TALK	END+2
>> X	INIT+31*
Y	INIT+9*!, JUMP+1, JUMP+6

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORENW3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: