Routine: PSOBPSU1

Package	Total	Call Graph
Outpatient Pharmacy	8	$$LSTRFL^PSOBPSU1 (ELIG,ELOG,RXACT)^PSOBPSU2 ($$CMOP,$$RXFLDT,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT ($$GETNDC,$$GPPDU,SAVNDC)^PSONDCUT $$TRIC^PSOREJP1 RETRXF^PSOREJU2 TRICCHK^PSOREJU3 CLSALL^PSOREJUT
Uncategorized	2	$$EN^BPSNCPDP ($$CMOPON,$$ECMEON)^BPSUTIL
Integrated Billing	1	STORESP^IBNCPDP
Pharmacy Data Management	1	($$GETNDC,$$NDCFMT)^PSSNDCUT
VA Fileman	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	47	PSOATRF PSOATRF1 PSOATRFC PSOAUTOC PSOBPSU1 PSOBPSU2 PSOBPSUT PSOCAN3 PSOCMOP PSODAWUT PSOHLD PSOHLDA PSOHLDC PSOHLEXP PSOHLNEW PSOLLLH PSOMAUEX PSON52 PSONDCUT PSONDCV PSOORED1 PSOORED2 PSOORED6 PSOORED7 PSOORUT1 PSOORUTL PSOPKIV1 PSOPMP1 PSOR52 PSOREJP1 PSOREJP3 PSOREJU1 PSOREJU2 PSOREJU3 PSOREJU4 PSOREJUT PSORESK PSORN52 PSORXDL PSORXED1 PSORXL1 PSOSULB1 PSOSULBL PSOSUPOE PSOSUPRX PSOVER1 PSOVERC
CMOP	2	PSXRPPL1 PSXRPPL2
IHS Changes To Pharmacy	1	APSPCSM

Name	Comments	DBIA/ICR reference
ECMESND(RX,RFL,DATE,FROM,NDC,CMOP,RVTX,OVRC,CNDC,RESP,IGSW,ALTX,CLA,PA)	; - Sends Rx Release	ICR #4702 Status: Active Usage: Controlled Subscription
LSTRFL(RX)	; - Returns the latest fill for the Prescription ; Input: (r) RX - Rx IEN (#52)	ICR #4702 Status: Active Usage: Controlled Subscription
ECMEACT(RX,RFL,COMM,USR)	; - Add an Activity to the ECME Activity Log (PRESCRIPTION file)	ICR #4702 Status: Active Usage: Controlled Subscription
STS(RX,RFL,RSP)	; Adds the Status to the ECME Activity Log according to Rx/fill claim status Response
DOS(RX,RFL,DATE)	; Return the Date Of Service for ECME
REVERSE(RX,RFL,FROM,RSN,RTXT,IGRL,NDC)	; - Reverse a claim and close all OPEN/UNRESOLVED Rejects
RELEASE(RX,RFL,USR)	; - Notifies IB that the Rx was RELEASED

External References

Name	Field # of Occurrence
$$EN^BPSNCPDP	ECMESND+49, REVERSE+23
$$CMOPON^BPSUTIL	ECMESND+26
$$ECMEON^BPSUTIL	ECMESND+24
$$GET1^DIQ	ECMESND+32, ECMESND+58, REVERSE+18
GETS^DIQ	RELEASE+8, RELEASE+17
STORESP^IBNCPDP	RELEASE+20
$$LSTRFL^PSOBPSU1	ECMEACT+5
ELIG^PSOBPSU2	ECMESND+54
ELOG^PSOBPSU2	ECMESND+78
RXACT^PSOBPSU2	ECMESND+76, REVERSE+28, ECMEACT+6
$$CMOP^PSOBPSUT	REVERSE+22
$$RXFLDT^PSOBPSUT	DOS+9, RELEASE+13
$$RXRLDT^PSOBPSUT	REVERSE+16, DOS+7
$$RXSITE^PSOBPSUT	ECMESND+24, ECMESND+26, ECMESND+32
$$STATUS^PSOBPSUT	ECMESND+36, ECMESND+50, REVERSE+10, REVERSE+19, STS+2, STS+5
$$GETNDC^PSONDCUT	ECMESND+30, ECMESND+59, ECMESND+60, ECMESND+61, ECMESND+62, ECMESND+63, ECMESND+64, REVERSE+23, RELEASE+12
$$GPPDU^PSONDCUT	ECMESND+34
SAVNDC^PSONDCUT	ECMESND+33, ECMESND+50
$$TRIC^PSOREJP1	REVERSE+24
RETRXF^PSOREJU2	ECMESND+52, REVERSE+18
TRICCHK^PSOREJU3	ECMESND+80
CLSALL^PSOREJUT	ECMESND+44, REVERSE+15
$$GETNDC^PSSNDCUT	ECMESND+32
$$NDCFMT^PSSNDCUT	ECMESND+31

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

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	LSTRFL+4

Name	Line Occurrences
$$DOS	ECMESND+49, REVERSE+23
$$LSTRFL	ECMESND+22, REVERSE+9, DOS+5, RELEASE+6
$$STS	ECMESND+70, ECMESND+71, REVERSE+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	ECMESND+21~, ECMESND+36, ECMESND+37, ECMESND+69, ECMESND+70, ECMESND+71, ECMESND+72, ECMESND+73, ECMESND+74, ECMESND+75* , ECMESND+76, REVERSE+11~, REVERSE+27*, REVERSE+28
ALTX	ECMESND~, ECMESND+56, ECMESND+71
CLA	ECMESND~, ECMESND+42, ECMESND+44, ECMESND+48*, ECMESND+49
CLSCOM	ECMESND+39~, ECMESND+41, ECMESND+42, ECMESND+43*, ECMESND+44
CMOP	ECMESND~, ECMESND+26, ECMESND+32, ECMESND+33, ECMESND+50
CNDC	ECMESND~, ECMESND+28, ECMESND+69
COD1	ECMESND+39~, ECMESND+40*, ECMESND+41, ECMESND+44, ECMESND+68
COD2	ECMESND+39~, ECMESND+40*, ECMESND+41, ECMESND+44, ECMESND+68
COD3	ECMESND+39~, ECMESND+40*, ECMESND+41, ECMESND+44, ECMESND+68
COMM	ECMEACT~, ECMEACT+6
DA	ECMESND+21~, REVERSE+11~
DATE	ECMESND~, ECMESND+49, DOS~, DOS+7, DOS+9, DOS+11*, DOS+12
>> DFN	RELEASE+9*, RELEASE+20
DT	DOS+11, RELEASE+13
DUZ	ECMESND+44, ECMESND+76, REVERSE+15, REVERSE+28
FLDT	RELEASE+5~, RELEASE+13*, RELEASE+14
FROM	ECMESND~, ECMESND+34, ECMESND+47, ECMESND+49, ECMESND+50, ECMESND+58, ECMESND+59, ECMESND+60, ECMESND+61, ECMESND+62 , ECMESND+63, ECMESND+64, ECMESND+65, ECMESND+66, ECMESND+80, REVERSE~, REVERSE+22, REVERSE+23
I	LSTRFL+3~, LSTRFL+4*
IBAR	RELEASE+5~, RELEASE+20
IBAR("CLAIMID"	RELEASE+11*
IBAR("DAYS SU	PPLY" , RELEASE+15, RELEASE+19
IBAR("DRUG"	RELEASE+12*
IBAR("FILL DA	TE" , RELEASE+14*
IBAR("FILL NU	MBER" , RELEASE+14*
IBAR("NDC"	RELEASE+12*
IBAR("PRESCRIPTION"	RELEASE+10*
IBAR("QTY"	RELEASE+15, RELEASE+18
IBAR("RX NO"	RELEASE+10*
IBAR("STATUS"	RELEASE+20*
IBAR("USER"	RELEASE+11*
IGRL	REVERSE~, REVERSE+16
IGSW	ECMESND~, ECMESND+24, ECMESND+26
LSTRFL	LSTRFL+3~, LSTRFL+4*, LSTRFL+5
NDC	ECMESND~, ECMESND+29, ECMESND+31, ECMESND+32*, ECMESND+33, ECMESND+34, ECMESND+49, ECMESND+50, REVERSE~, REVERSE+27
NDCACT	ECMESND+21~, ECMESND+29, ECMESND+30, ECMESND+69
NOACT	REVERSE+11~, REVERSE+19, REVERSE+20, REVERSE+26
OVRC	ECMESND~, ECMESND+40, ECMESND+49, ECMESND+68
PA	ECMESND~, ECMESND+43, ECMESND+44, ECMESND+49
PPDU	ECMESND+34*!
PSOELIG	ECMESND+21~, ECMESND+54*, ECMESND+75, ECMESND+80, STS+5
PSOTRIC	REVERSE+24~*, REVERSE+27
RESP	ECMESND~, ECMESND+24, ECMESND+26, ECMESND+49, ECMESND+54, ECMESND+70, ECMESND+71, ECMESND+72, ECMESND+73, ECMESND+74 , ECMESND+78, ECMESND+80, REVERSE+11~, REVERSE+23, REVERSE+27, STS+4
REVECME	REVERSE+11~, REVERSE+22, REVERSE+23, REVERSE+26
RFAR	RELEASE+5~
RFAR(	RELEASE+18, RELEASE+19
RFL	ECMESND~, ECMESND+22, ECMESND+24, ECMESND+26, ECMESND+30, ECMESND+32, ECMESND+33, ECMESND+34, ECMESND+36, ECMESND+44 , ECMESND+49, ECMESND+50, ECMESND+52, ECMESND+54, ECMESND+58, ECMESND+59, ECMESND+60, ECMESND+61, ECMESND+62, ECMESND+63 , ECMESND+64, ECMESND+70, ECMESND+71, ECMESND+76, ECMESND+80, REVERSE~, REVERSE+9, REVERSE+10, REVERSE+15, REVERSE+16 , REVERSE+18, REVERSE+19, REVERSE+22, REVERSE+23, REVERSE+24, REVERSE+27, REVERSE+28, DOS~, DOS+5, DOS+7 , DOS+9, RELEASE~, RELEASE+6, RELEASE+12, RELEASE+13, RELEASE+14, RELEASE+16, RELEASE+17, RELEASE+18, RELEASE+19 , ECMEACT~, ECMEACT+5*, ECMEACT+6, STS~, STS+2, STS+5
ROUTE	ECMESND+57~, ECMESND+58, ECMESND+59, ECMESND+60
RSN	REVERSE~, REVERSE+11*, REVERSE+12, REVERSE+13, REVERSE+14, REVERSE+15, REVERSE+18
RSP	STS~, STS+3, STS+4, STS+5
RTXT	REVERSE~, REVERSE+11, REVERSE+12, REVERSE+13, REVERSE+14*, REVERSE+15, REVERSE+23, REVERSE+27
RVTX	ECMESND~, ECMESND+47*, ECMESND+49, ECMESND+67, ECMESND+80
RX	ECMESND~, ECMESND+22, ECMESND+24, ECMESND+26, ECMESND+30, ECMESND+32, ECMESND+33, ECMESND+34, ECMESND+36, ECMESND+44 , ECMESND+49, ECMESND+50, ECMESND+52, ECMESND+54, ECMESND+58, ECMESND+59, ECMESND+60, ECMESND+61, ECMESND+62, ECMESND+63 , ECMESND+64, ECMESND+70, ECMESND+71, ECMESND+76, ECMESND+80, REVERSE~, REVERSE+9, REVERSE+10, REVERSE+15, REVERSE+16 , REVERSE+18, REVERSE+19, REVERSE+22, REVERSE+23, REVERSE+24, REVERSE+27, REVERSE+28, DOS~, DOS+5, DOS+7 , DOS+9, RELEASE~, RELEASE+6, RELEASE+8, RELEASE+9, RELEASE+10, RELEASE+11, RELEASE+12, RELEASE+13, RELEASE+15 , RELEASE+17, RELEASE+18, RELEASE+19, LSTRFL~, LSTRFL+4, ECMEACT~, ECMEACT+5, ECMEACT+6, STS~, STS+2 , STS+5
RXAR	RELEASE+5~
RXAR(52	RELEASE+9, RELEASE+10, RELEASE+12, RELEASE+15
STAT	ECMESND+46~, REVERSE+11~
STATUS	REVERSE+11~, REVERSE+19*, REVERSE+20
STS	REVERSE+11~, STS+1~, STS+2, STS+3, STS+4, STS+5, STS+6
USR	RELEASE~, RELEASE+7*, RELEASE+11, ECMEACT~, ECMEACT+6
X	ECMESND+57~, ECMESND+59, ECMESND+60, ECMESND+61, ECMESND+62, ECMESND+63, ECMESND+64, ECMESND+65, ECMESND+66, ECMESND+67 , ECMESND+68, ECMESND+69

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSU1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 50

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: