Routine: APSPELRX

Package	Total	Call Graph
IHS Changes To Pharmacy	4	($$SPI,NEWRX)^APSPES1 ($$DEA,$$DEACLS)^APSPES2 (ACCEPT,DENY)^APSPES3 UPTLOG^APSPFNC2
Kernel	3	(CLOSE,OPEN)^%ZISH ($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
VA Fileman	3	UPDATE^DIE $$GET1^DIQ ^DIWP
CIA Utilities	1	CAPTURE^CIAUHFS
Order Entry Results Reporting	1	$$VALUE^ORCSAVE2
Registration	1	(6,PID)^VADPT
Toolkit	1	$$GET^XPAR
VueCentric Framework	1	$$TMPGBL^CIAVMRPC

Package

Total

Call Graph

IHS Changes To Pharmacy

($$SPI,NEWRX)^APSPES1 ($$DEA,$$DEACLS)^APSPES2 (ACCEPT,DENY)^APSPES3 UPTLOG^APSPFNC2

Kernel

(CLOSE,OPEN)^%ZISH ($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR

VA Fileman

UPDATE^DIE $$GET1^DIQ ^DIWP

CIA Utilities

CAPTURE^CIAUHFS

Order Entry Results Reporting

$$VALUE^ORCSAVE2

Registration

(6,PID)^VADPT

Toolkit

$$GET^XPAR

VueCentric Framework

$$TMPGBL^CIAVMRPC

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSPFNC2 APSPFNC6
Order Entry Results Reporting	1	ORWDXA
Outpatient Pharmacy	1	PSOHLNEW

Package

Total

Caller Graph

IHS Changes To Pharmacy

APSPFNC2 APSPFNC6

Order Entry Results Reporting

ORWDXA

Outpatient Pharmacy

PSOHLNEW

Entry Points

Name	Comments	DBIA/ICR reference
BRDCAST(RX,PHARM)	;EP
SUBS(RX)	;EP -
SS(RXIEN,PIEN)	;EP
ACT(IEN)	;EP-
FX(PIEN,FLG)	;EP
PRC(RX)	;EP
DC(ORID)	; EP - ; Send denial HL7 message
PSCRIPT(DATA,ORIFN,RXNUM)	;EP
FAXRX	;EP
GETDTNM(DIEN)	;EP
EN(RX,PHARM)	;EP
FAX(RX,PHARM)	;EP
PEI(RX)	; EP
SIG(RX)	;EP
PTADD(DFN,ARY)	;EP

External References

Name	Field # of Occurrence
CLOSE^%ZISH	FAX+14
OPEN^%ZISH	FAX+10
$$SPI^APSPES1	SS+3
NEWRX^APSPES1	BRDCAST+13
$$DEA^APSPES2	BRDCAST+12, FAXRX+69
$$DEACLS^APSPES2	BRDCAST+12, FAXRX+69
ACCEPT^APSPES3	BRDCAST+10
DENY^APSPES3	DC+2
UPTLOG^APSPFNC2	FAX+19
CAPTURE^CIAUHFS	PSCRIPT+7
$$TMPGBL^CIAVMRPC	PSCRIPT+4
UPDATE^DIE	PEI+12
$$GET1^DIQ	ACT+1, FAX+5, FAX+7, FAXRX+11, FAXRX+13, FAXRX+20, FAXRX+24, FAXRX+28, FAXRX+29, FAXRX+30 , FAXRX+40, FAXRX+41, FAXRX+42, FAXRX+43, FAXRX+46, FAXRX+61, FAXRX+62, FAXRX+67, SS+3, FX+3 , SUBS+2
^DIWP	PRC+5
$$VALUE^ORCSAVE2	BRDCAST+3, FAXRX+70
6^VADPT	PTADD+2
PID^VADPT	FAXRX+21
$$FMTE^XLFDT	FAXRX+46, FAXRX+73
$$NOW^XLFDT	FAX+8, FAXRX+73, SS+4, PEI+6
$$UP^XLFSTR	FAXRX+46
$$GET^XPAR	FAX+2, FAX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$GET1^DIQ(4,INST,.01) Line Location: FAXRX+40
Function Call: WRITE	Prompt: !,$$GET1^DIQ(4,INST,1.01) Line Location: FAXRX+41
Function Call: WRITE	Prompt: !,$$GET1^DIQ(4,INST,1.03)_", "_$$GET1^DIQ(4,INST,.02)_" "_$$GET1^DIQ(4,INST,1.04) Line Location: FAXRX+42
Function Call: WRITE	Prompt: !,$$GET1^DIQ(9999999.06,INST,.13) Line Location: FAXRX+43
Function Call: WRITE	Prompt: !!,DASH,! Line Location: FAXRX+44
Function Call: WRITE	Prompt: !,"Rx for: "_PNM_" "_VA("PID")_" DOB:"_$$UP^XLFSTR($$FMTE^XLFDT($$GET1^DIQ(2,DFN,.03,"I"))) Line Location: FAXRX+46
Function Call: WRITE	Prompt: !,?8,ADDR(1) Line Location: FAXRX+47
Function Call: WRITE	Prompt: !,?8,ADDR(2) Line Location: FAXRX+48
Function Call: WRITE	Prompt: !,?8,ADDR(33) Line Location: FAXRX+50
Function Call: WRITE	Prompt: !,DASH,! Line Location: FAXRX+51
Function Call: WRITE	Prompt: !,DRUGNM Line Location: FAXRX+52
Function Call: WRITE	Prompt: !!,"Pharmacy may choose strength(s) of drug to meet requirements of directions." Line Location: FAXRX+54
Function Call: WRITE	Prompt: ! Line Location: FAXRX+55
Function Call: WRITE	Prompt: !!," Dispense: ",$P(RX0,U,7)_" "_$P($G(^PSDRUG(DRUG,660)),U,8) Line Location: FAXRX+57
Function Call: WRITE	Prompt: " Pharmacy to adjust qty for # of days." Line Location: FAXRX+58
Function Call: WRITE	Prompt: !,"Days Supply: ",$P(RX0,U,8) Line Location: FAXRX+59
Function Call: WRITE	Prompt: !," Refill(s): ",$P(RX0,U,9) Line Location: FAXRX+60
Function Call: WRITE	Prompt: !," Issue Date: ",$$GET1^DIQ(52,RX,1) Line Location: FAXRX+61
Function Call: WRITE	Prompt: !," Indicator: ",$$GET1^DIQ(52,RX,9999999.21)_$S($L(DXCODE):" ("_DXCODE_")",1:"") Line Location: FAXRX+62
Function Call: WRITE	Prompt: ! Line Location: FAXRX+64
Function Call: WRITE	Prompt: ! Line Location: FAXRX+66
Function Call: WRITE	Prompt: !,"Signed: /ES/"_$$GET1^DIQ(200,SIGNER,.01)_" "_VANUM_$S(+DEASCH&(DEASCH<6):" "_DEA,1:"") Line Location: FAXRX+67
Function Call: WRITE	Prompt: ?13,^(LP,0),! Line Location: PRC+8
Routine Call	DIE Line Location: PEI+12

RPC Name	Call Tags
APSPELRX PSCRIPT	PSCRIPT

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^APSPOPHM - [#9009033.9]	GET1^DIQ
^APSPRREQ - [#9009033.91]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPOPHM - [#9009033.9]	SS+5, SS+6
^OR(100 - [#100]	PSCRIPT+2, FAXRX+27
^PS(59 - [#59]	FAXRX+16
^PSDRUG - [#50]	FAXRX+57, GETDTNM+4, GETDTNM+5
^PSRX - [#52]	BRDCAST+2, BRDCAST+12, FAXRX+6, FAXRX+7, FAXRX+8, FAXRX+27, FAXRX+31, FAXRX+70, PRC+4, SIG+2 , SIG+3, PEI+5, PEI+7
^PSRX("B"	PSCRIPT+3
^UTILITY($J	PRC+1!, PRC+6, PRC+8, PRC+9!

Name	Line Occurrences
$$ACT	BRDCAST+9
$$FX	EN+4
$$GETDTNM	FAXRX+12
$$SS	EN+2
$$SUBS	FAXRX+68
BRDCAST	EN+3
FAX	EN+5
FAXRX	FAX+13
PEI	EN+6
PRC	FAXRX+65
PTADD	FAXRX+22
SIG	FAXRX+56

Name	Field # of Occurrence
^(	PRC+5, PRC+8
^(0	GETDTNM+5, PRC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDR	FAXRX+3~, FAXRX+22
ADDR(1	FAXRX+47
ADDR(2	FAXRX+48
ADDR(3	FAXRX+49
ADDR(33	FAXRX+50
ARY	FAX+1~, FAX+19, PTADD~
ARY("COM"	FAX+17*
ARY("REASON"	FAX+15*
ARY("RX REF"	FAX+18*
ARY("TYPE"	FAX+16*
ARY(1	PTADD+3*
ARY(2	PTADD+4, PTADD+5, PTADD+6*
ARY(3	PTADD+4, PTADD+5, PTADD+6*
ARY(33	PTADD+7*
ARY(4	PTADD+4, PTADD+5, PTADD+6*
DASH	FAXRX+2~, FAXRX+33*, FAXRX+44, FAXRX+51
DATA	PSCRIPT~, PSCRIPT+4*, PSCRIPT+7, FAX+1~, FAX+19
DEA	FAXRX+5~, FAXRX+28*, FAXRX+67
DEASCH	FAXRX+3~, FAXRX+13*, FAXRX+67
DFN	FAXRX+2~, FAXRX+19*, FAXRX+20, FAXRX+22, FAXRX+46, PTADD~
DIEN	GETDTNM~, GETDTNM+4, GETDTNM+5
DIWF	PRC+2~, PRC+3*
DIWL	PRC+2~, PRC+3*, PRC+8
DIWR	PRC+2~, PRC+3*
DRUG	FAXRX+4~, FAXRX+10*, FAXRX+11, FAXRX+12, FAXRX+13, FAXRX+57
DRUGNM	FAXRX+4~, FAXRX+11*, FAXRX+52
DUZ(2	FAXRX+25
DXCODE	FAXRX+5~, FAXRX+30*, FAXRX+62
EDT	SS+2~, SS+8*, SS+9
ERR	PEI+1~
FAXNUM	FAX+1~, FAX+7*, FAX+10, FAX+17
FCLNAM	FAX+1~, FAX+5, FAX+6, FAX+10, FAX+17
FDA	PEI+1~
FDA(	PEI+4, PEI+5, PEI+6, PEI+7, PEI+8, PEI+9, PEI+10, PEI+11
FDT	FAX+1~, FAX+8*, FAX+9
FFNUM	FAX+1~, FAX+4*, FAXRX+73
FJOBNM	FAX+1~, FAX+9*, FAX+10
FLG	FX~, FX+4, GETDTNM+1~, GETDTNM+3, GETDTNM+4, GETDTNM+5
FNUM	FX+2~, FX+3*, FX+4
FSRV	FAX+1~, FAX+2*, FAX+3, FAX+10
HLOC	FAXRX+3~, FAXRX+23*, FAXRX+24
IEN	ACT~, ACT+1
IENS	PEI+1~, PEI+3*, PEI+4, PEI+5, PEI+6, PEI+7, PEI+8, PEI+9, PEI+10, PEI+11
INST	FAXRX+3~, FAXRX+24, FAXRX+25, FAXRX+40, FAXRX+41, FAXRX+42, FAXRX+43
IO	FAX+12
LP	GETDTNM+1~, GETDTNM+2, GETDTNM+4, GETDTNM+5, PRC+2~, PRC+4, PRC+5, PRC+8, SIG+1~, SIG+2* , SIG+3
ND7	SS+2~, SS+5*, SS+7, SS+8
NOW	SS+2~, SS+4*, SS+9
ORID	DC~, DC+2
ORIFN	PSCRIPT~, PSCRIPT+2, BRDCAST+1~, BRDCAST+2, BRDCAST+3, BRDCAST+10, FAXRX+5~, FAXRX+31
PDIV	FAXRX+2~, FAXRX+15*, FAXRX+16
PDIV0	FAXRX+2~, FAXRX+16*, FAXRX+17
PDIVZIP	FAXRX+3~, FAXRX+17*
PHARM	EN~, EN+1, EN+2, EN+3, EN+4, EN+5, BRDCAST~, FAX~, FAX+5, FAX+7
PIEN	SS~, SS+1, SS+5, SS+6, FX~, FX+1, FX+3
PNM	FAXRX+3~, FAXRX+20*, FAXRX+46
POP	FAX+1~, FAX+11
PSZIP	FAXRX+2~
RET	GETDTNM+1~, GETDTNM+2, GETDTNM+5, GETDTNM+6
RRIEN	BRDCAST+1~, BRDCAST+3*, BRDCAST+9
RX	EN~, EN+1, EN+2, EN+3, EN+5, EN+6, PSCRIPT+1~, PSCRIPT+2*, BRDCAST~, BRDCAST+2 , BRDCAST+10, BRDCAST+12, BRDCAST+13, FAX~, FAX+9, FAX+19, FAXRX+6, FAXRX+7, FAXRX+8, FAXRX+27 , FAXRX+30, FAXRX+31, FAXRX+56, FAXRX+61, FAXRX+62, FAXRX+65, FAXRX+68, FAXRX+70, PRC~, PRC+4 , SIG~, SIG+2, SIG+3, SUBS~, SUBS+2, PEI~, PEI+2, PEI+4, PEI+5, PEI+7
RX0	FAXRX+2~, FAXRX+6*, FAXRX+10, FAXRX+19, FAXRX+23, FAXRX+57, FAXRX+59, FAXRX+60, FAXRX+69
RX1	PSCRIPT+1~, PSCRIPT+3*
RX2	FAXRX+2~, FAXRX+7*, FAXRX+15
RX3	FAXRX+2~, FAXRX+8*
RXIEN	SS~, SS+1, SS+3
RXNUM	PSCRIPT~, PSCRIPT+3
SDT	SS+2~, SS+7*, SS+9
SIGNER	FAXRX+4~, FAXRX+27*, FAXRX+28, FAXRX+29, FAXRX+67
SPI	SS+2~, SS+3*, SS+9
SVCL	SS+2~, SS+6*, SS+9
TRDNM	FAXRX+4~, FAXRX+12*, FAXRX+53
U	BRDCAST+2, BRDCAST+12, FAXRX+10, FAXRX+15, FAXRX+17, FAXRX+19, FAXRX+23, FAXRX+27, FAXRX+31, FAXRX+57 , FAXRX+59, FAXRX+60, FAXRX+69, FAXRX+70, SS+6, SS+7, SS+8, GETDTNM+5, PEI+5, PEI+7
VA	FAXRX+3~
VA("PID"	FAXRX+46
VADM	PTADD+1~
VAEL	PTADD+1~
VAERR	PTADD+1~
VAL	SUBS+1~, SUBS+2*, SUBS+3
VANUM	FAXRX+5~, FAXRX+29*, FAXRX+67
VAPA	PTADD+1~
VAPA(1	PTADD+3
VAPA(11	PTADD+7
VAPA(2	PTADD+4, PTADD+5, PTADD+6
VAPA(3	PTADD+4, PTADD+5, PTADD+6
VAPA(4	PTADD+6, PTADD+7
VAPA(5	PTADD+7
VAPA(6	PTADD+7
X	PRC+2~, PRC+5*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPELRX

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: