Routine: PSOBPSUT

Package	Total	Call Graph
Outpatient Pharmacy	8	($$LSTRFL,ECMESND,RELEASE,REVERSE)^PSOBPSU1 UPDFL^PSOBPSU2 ($$RXFLDT,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT ($$CHGNDC,$$GETNDC,SAVNDC)^PSONDCUT $$TRIC^PSOREJP1 $$PSOET^PSOREJP3 $$HDLG^PSOREJU1 $$FIND^PSOREJUT
E Claims Management Engine	4	$$CLAIM^BPSBUTL IBSEND^BPSECMP2 $$STATUS^BPSOSRX $$ECMEON^BPSUTIL
Pharmacy Data Management	1	$$NDCFMT^PSSNDCUT
Registration	1	ADD^VADPT
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	84	PSOASAP PSOASAP0 PSOATRFC PSOATRFV PSOBING1 PSOBORP3 PSOBPSR1 PSOBPSU1 PSOBPSU2 PSOBPSU3 PSOBPSUT PSOCAN2 PSOCMOPB PSOCSRL PSODAWUT PSODISP PSODISP3 PSODISPS PSODRG PSOERUT PSOERUT5 PSOERUT6 PSOERXO1 PSOERXU6 PSOEXDT PSOHLD PSOHLDIS PSOHLDS4 PSOHLSG1 PSOLBLN PSOLLL2 PSOLLL3 PSON52 PSONDCUT PSONDCV PSOORAL2 PSOORED2 PSOORED7 PSOOREDT PSOORNE2 PSOORRL PSOORUT1 PSOOTMRX PSOP PSOP1 PSOPMP0 PSOPMP1 PSOPRK PSOPRKA PSOR52 PSOREJP0 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJU1 PSOREJU2 PSOREJU3 PSOREJU4 PSOREJUT PSORLST2 PSORN52 PSORRPA1 PSORTSUT PSORXED PSORXEDT PSORXL1 PSORXPA1 PSORXVW PSORXVW1 PSOSPML0 PSOSPML4 PSOSPML6 PSOSPML7 PSOSPML8 PSOSPMU1 PSOSPMU2 PSOSPMU3 PSOSPMUT PSOSPMV PSOSULBL PSOSUPOE PSOTRI PSOUTLA2 PSOVER1
E Claims Management Engine	7	BPSNCPD1 BPSPRRX6 BPSRES BPSSCRRJ BPSSCRRS BPSUTIL BPSVRX3
CMOP	6	PSXBPSMS PSXBPSRP PSXMSGS PSXRPPL1 PSXRPPL2 PSXVND
Integrated Billing	4	IBNCPDP2 IBNCPDP4 IBNCPDPU IBNCPEV3
Accounts Receivable	2	RCDPEX2 RCDPEX32
Controlled Substances	2	PSDDSOR2 PSDOPT2
VA FileMan	1	ITEM

Entry Points

Name	Comments	DBIA/ICR reference
ECME(RX)	; Returns "e" if Rx/Refill is Electronically Billable (3rd party)	ICR #7084 Status: Active Usage: Private
STATUS(RX,RFL,COB)	; Returns the Rx's ECME Status (calls STATUS^BPSOSRX) ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; (o) COB - Coordination of Benefits (1=primary, etc.)	ICR #4701 Status: Active Usage: Controlled Subscription
SUBMIT(RX,RFL,IGRL,IGCMP)	; Returns whether the Rx should be submitted to ECME at the moment or not ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Def.: most recent) ; (o) IGRL - Ignore Release Date? (1-YES/0-NO) (Def.: 0 - NO) ; (o) IGCMP- Ignore CMOP/Suspense check? (1-YES/0-NO) (Def.: 0 - NO)
CMOP(RX,RFL)	; Returns if the Rx will be a CMOP Rx or not ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; Output: 1 - CMOP / 0 - NON-CMOP
QCMOP
RXRLDT(RX,RFL)	; Returns the Rx Release Date ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; ; Output: RXRLDT - Rx Release Date	ICR #4701 Status: Active Usage: Controlled Subscription
RXFLDT(RX,RFL)	; Returns the Rx Fill Date ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent) ; Output: RXFLDT - Rx Fill Date (FM format)	ICR #4701 Status: Active Usage: Controlled Subscription
RXSUDT(RX,RFL)	; Returns the prescription/fill Suspense Date for the RX/Reject passed in
RXSITE(RX,RFL)	; Returns the Rx DIVISION ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; Output: SITE - Rx Fill Date ;	ICR #4701 Status: Active Usage: Controlled Subscription
RXSTATE(RX,RFL)	; Returns the Rx Division STATE ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; Output: SITE - Rx Fill Date
RXSTATEP(RX,RFL,STATE)	; Returns the Rx Export States ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; STATE - Selected State ; Output: RSLT - Export States
RXSTATEZ(RX,RFL,STATE)	; Returns the Rx Export States ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # ; STATE - Selected State ; Output: RSLT - Export to State
RXQTY(RXIEN,FILL)	; Returns the Quantity Dispense for the Fill ; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXQTY - Quantity Dispensed
RXDAYSUP(RXIEN,FILL)	; Returns the Days Supply for the Fill ; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXDAYSUP - Days Supply
RXPRV(RXIEN,FILL)	; Returns the Rx Fill Provider IEN ; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent - except Partial) ; Note: "P1", "P2"... represent partial fills ; Output: RXPRV - Rx Fill Provider IEN
RXRPH(RXIEN,FILL)	; Returns the Pharmacist IEN for the Fill ; Input: (r) RXIEN - Rx IEN (#52) ; (o) FILL - Refill # (Default: most recent) ; Output: RXRPH - Pharmacist IEN (Pointer to File #200)
VALUE(RX,FILL,ORFLD,RFFLD,PRFLD,OROK)	; Retrieve corresponding Internal value for the specific prescription fill ; Input: (r) RX - Rx IEN (#52) ; (r) FILL - Refill # ; (r) ORFLD - Original Fill Field # ; (r) RFFLD - Refill Field # ; (r) PRFLD - Partial Field # ; (o) OROK - OK to retrieve from Original Fill (1: YES/0:NO) ; Output: VALUE - Fill Field Value
MANREL(RX,RFL,PID)	; ePharmacy Manual Rx Release
TRIC	;
AUTOREL(RX,RFL,RLDT,NDC,SRC,STS,HNG)	; Sends Rx Release information to ECME/IB and updates NDC ; in the DRUG/PRESCRIPTION files	ICR #4701 Status: Active Usage: Controlled Subscription
IBSEND(RX,RFL,AUTO,PSONDC)	; Rx Release ; Create Release Event ; Calls ECME, if needed ; If Payable or Duplicate, calls IB to create a bill
RETRX(RX,RFL)	; - Re-transmit a claim for the prescription/fill?	ICR #4701 Status: Active Usage: Controlled Subscription

External References

Name	Field # of Occurrence
$$CLAIM^BPSBUTL	IBSEND+29
IBSEND^BPSECMP2	IBSEND+30
$$STATUS^BPSOSRX	ECME+1, STATUS+7
$$ECMEON^BPSUTIL	SUBMIT+17, MANREL+14, IBSEND+13
$$GET1^DIQ	SUBMIT+12, SUBMIT+21, CMOP+10, CMOP+11, CMOP+14, CMOP+16, CMOP+18, CMOP+20, CMOP+22, CMOP+26 , RXRLDT+7, RXRLDT+9, RXRLDT+10, RXFLDT+6, RXFLDT+8, RXFLDT+9, RXSUDT+8, RXSUDT+9, RXSUDT+10, RXSITE+8 , RXSITE+9, RXSITE+10, RXSTATE+6, RXSTATEP+6, RXSTATEP+10, RXSTATEP+12, RXSTATEZ+6, RXSTATEZ+7, RXSTATEZ+8, RXQTY+6 , RXQTY+8, RXQTY+9, RXDAYSUP+6, RXDAYSUP+8, RXDAYSUP+9, RXPRV+8, RXPRV+9, RXPRV+10, RXRPH+7, RXRPH+8 , RXRPH+9, VALUE+11, VALUE+12, VALUE+13, RETRX+5, RETRX+6
$$LSTRFL^PSOBPSU1	ECME+1, STATUS+5, SUBMIT+8, SUBMIT+10, CMOP+7, RXRLDT+8, RXFLDT+7, RXSITE+7, RXQTY+7, RXDAYSUP+7 , RXPRV+7, RXRPH+6, MANREL+7, AUTOREL+11, IBSEND+11, RETRX+4
ECMESND^PSOBPSU1	AUTOREL+31, AUTOREL+38, IBSEND+26
RELEASE^PSOBPSU1	AUTOREL+22, IBSEND+21
REVERSE^PSOBPSU1	AUTOREL+20, AUTOREL+25, AUTOREL+28
UPDFL^PSOBPSU2	AUTOREL+31, AUTOREL+38
$$RXFLDT^PSOBPSUT	CMOP+28
$$RXRLDT^PSOBPSUT	CMOP+24, IBSEND+24
$$RXSITE^PSOBPSUT	MANREL+14, IBSEND+13
$$STATUS^PSOBPSUT	MANREL+16, MANREL+26, AUTOREL+17, AUTOREL+34, AUTOREL+42
$$CHGNDC^PSONDCUT	MANREL+19
$$GETNDC^PSONDCUT	AUTOREL+13
SAVNDC^PSONDCUT	AUTOREL+15, AUTOREL+34, AUTOREL+42
$$TRIC^PSOREJP1	MANREL+17
$$PSOET^PSOREJP3	MANREL+9
$$HDLG^PSOREJU1	MANREL+12, MANREL+25
$$FIND^PSOREJUT	MANREL+11, MANREL+24
$$NDCFMT^PSSNDCUT	AUTOREL+15, AUTOREL+24, AUTOREL+27, AUTOREL+30, AUTOREL+31, AUTOREL+34, AUTOREL+36, AUTOREL+38, AUTOREL+42, IBSEND+25
ADD^VADPT	RXSTATEP+12, RXSTATEZ+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MANREL+9
Function Call: WRITE	Prompt: ! Line Location: MANREL+11
Function Call: WRITE	Prompt: ! Line Location: MANREL+24
Function Call: WRITE	Prompt: !!,$C(7),$S(PSOTRIC=1:"TRICARE",1:"CHAMPVA")_" Rx remains in 'IN PROGRESS' status for ECME, and cannot be released.",! Line Location: TRIC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
52.2	GET1^DIQ
^PS(52.5 - [#52.5]	GET1^DIQ
^PS(55 - [#55]	GET1^DIQ
^PS(58.41 - [#58.41]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	RXSUDT+7
^PSDRUG("AQ"	CMOP+14
^PSRX - [#52]	RXSUDT+5

Label References

Name	Line Occurrences
$$CMOP	SUBMIT+15
$$RXFLDT	SUBMIT+21
$$RXRLDT	SUBMIT+19
$$RXSITE	SUBMIT+17, SUBMIT+21, RXSTATE+5, RXSTATEP+9, RXSTATEZ+7
$$STATUS	IBSEND+15
IBSEND	AUTOREL+44
QCMOP	CMOP+12, CMOP+14, CMOP+16, CMOP+18, CMOP+20, CMOP+22, CMOP+24, CMOP+30
TRIC	MANREL+22, MANREL+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CMOP+5~
ACTION	MANREL+6~, MANREL+11, MANREL+12, MANREL+19, MANREL+20, MANREL+21, MANREL+22, MANREL+24, MANREL+25*
AUTO	IBSEND~, IBSEND+20*, IBSEND+21, IBSEND+26
CMOP	CMOP+5~, CMOP+9, CMOP+31, QCMOP
COB	STATUS~, STATUS+6*, STATUS+7
DFN	CMOP+5~, CMOP+10, RXSTATEP+5~, RXSTATEP+12, RXSTATEZ+5~, RXSTATEZ+8*
DRUG	CMOP+5~, CMOP+14*, CMOP+16, CMOP+18
DT	SUBMIT+21, CMOP+12, CMOP+28
DUZ	IBSEND+21, IBSEND+30
FILL	RXQTY~, RXQTY+7, RXQTY+8, RXQTY+9, RXDAYSUP~, RXDAYSUP+7, RXDAYSUP+8, RXDAYSUP+9, RXPRV~, RXPRV+7 , RXPRV+8, RXPRV+9, RXRPH~, RXRPH+6*, RXRPH+7, RXRPH+8, VALUE~, VALUE+10, VALUE+11, VALUE+12 , VALUE+13
HNG	AUTOREL~, AUTOREL+12*, AUTOREL+32, AUTOREL+40
IGCMP	SUBMIT~, SUBMIT+15, SUBMIT+21
IGRL	SUBMIT~, SUBMIT+19
MAIL	CMOP+5~, CMOP+10, CMOP+11, CMOP+12
MAILEXP	CMOP+5~, CMOP+10, CMOP+11, CMOP+12
MBMST	RXSTATEP+5~, RXSTATEP+6, RXSTATEP+8, RXSTATEP+11, RXSTATEZ+5~, RXSTATEZ+6, RXSTATEZ+7, RXSTATEZ+8
MW	CMOP+5~, CMOP+26, CMOP+28, CMOP+30
NDC	AUTOREL~, AUTOREL+15, AUTOREL+24, AUTOREL+25, AUTOREL+27, AUTOREL+28, AUTOREL+30, AUTOREL+31, AUTOREL+34, AUTOREL+36 , AUTOREL+38, AUTOREL+42, AUTOREL+44
ORFLD	VALUE~, VALUE+13
OROK	VALUE~, VALUE+13
PID	MANREL~, MANREL+19
PRFLD	VALUE~, VALUE+12
PSOCLAIM	IBSEND+29~*, IBSEND+30
PSONDC	IBSEND~, IBSEND+25*, IBSEND+26
PSORELDT	IBSEND+10~, IBSEND+24*, IBSEND+26
PSOTRIC	MANREL+17~*, MANREL+22, MANREL+26, TRIC+1
RFFLD	VALUE~, VALUE+11
RFL	STATUS~, STATUS+5, STATUS+7, SUBMIT~, SUBMIT+8, SUBMIT+10, SUBMIT+15, SUBMIT+17, SUBMIT+19, SUBMIT+21 , CMOP~, CMOP+7, CMOP+24, CMOP+26, CMOP+28, RXRLDT~, RXRLDT+8, RXRLDT+9, RXRLDT+10, RXFLDT~ , RXFLDT+7, RXFLDT+8, RXFLDT+9, RXSUDT~, RXSUDT+9, RXSITE~, RXSITE+7, RXSITE+8, RXSITE+9, RXSITE+10 , RXSTATE~, RXSTATE+5, RXSTATEP~, RXSTATEP+9, RXSTATEZ~, RXSTATEZ+7, RXPRV+7, MANREL~, MANREL+7, MANREL+9 , MANREL+11, MANREL+12, MANREL+14, MANREL+16, MANREL+17, MANREL+19, MANREL+24, MANREL+25, MANREL+26, AUTOREL~ , AUTOREL+11, AUTOREL+13, AUTOREL+15, AUTOREL+17, AUTOREL+20, AUTOREL+22, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+34 , AUTOREL+38, AUTOREL+42, AUTOREL+44, IBSEND~, IBSEND+11, IBSEND+13, IBSEND+15, IBSEND+21, IBSEND+24, IBSEND+26 , IBSEND+29, RETRX~, RETRX+4*, RETRX+5
RLDT	AUTOREL~, AUTOREL+31, AUTOREL+38
RSLT	RXSTATEP+5~, RXSTATEP+7, RXSTATEP+10, RXSTATEP+12*, RXSTATEP+13, RXSTATEZ+5~
RX	ECME~, ECME+1, STATUS~, STATUS+5, STATUS+7, SUBMIT~, SUBMIT+8, SUBMIT+10, SUBMIT+12, SUBMIT+15 , SUBMIT+17, SUBMIT+19, SUBMIT+21, CMOP~, CMOP+7, CMOP+10, CMOP+11, CMOP+14, CMOP+20, CMOP+22 , CMOP+24, CMOP+26, CMOP+28, RXRLDT~, RXRLDT+6, RXRLDT+7, RXRLDT+8, RXRLDT+9, RXRLDT+10, RXFLDT~ , RXFLDT+5, RXFLDT+6, RXFLDT+7, RXFLDT+8, RXFLDT+9, RXSUDT~, RXSUDT+5, RXSUDT+7, RXSITE~, RXSITE+6 , RXSITE+7, RXSITE+8, RXSITE+9, RXSITE+10, RXSTATE~, RXSTATE+5, RXSTATEP~, RXSTATEP+9, RXSTATEP+12, RXSTATEZ~ , RXSTATEZ+7, RXSTATEZ+8, VALUE~, VALUE+10, VALUE+11, VALUE+12, VALUE+13, MANREL~, MANREL+7, MANREL+9 , MANREL+11, MANREL+12, MANREL+14, MANREL+16, MANREL+17, MANREL+19, MANREL+24, MANREL+25, MANREL+26, AUTOREL~ , AUTOREL+11, AUTOREL+13, AUTOREL+15, AUTOREL+17, AUTOREL+20, AUTOREL+22, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+34 , AUTOREL+38, AUTOREL+42, AUTOREL+44, IBSEND~, IBSEND+11, IBSEND+13, IBSEND+15, IBSEND+21, IBSEND+24, IBSEND+26 , IBSEND+29, RETRX~, RETRX+4, RETRX+5, RETRX+6
RXDAYSUP	RXDAYSUP+4~, RXDAYSUP+6, RXDAYSUP+8, RXDAYSUP+9*, RXDAYSUP+10
RXFLDT	RXFLDT+4~, RXFLDT+6, RXFLDT+8, RXFLDT+9*, RXFLDT+10
RXIEN	RXQTY~, RXQTY+5, RXQTY+6, RXQTY+7, RXQTY+8, RXQTY+9, RXDAYSUP~, RXDAYSUP+5, RXDAYSUP+6, RXDAYSUP+7 , RXDAYSUP+8, RXDAYSUP+9, RXPRV~, RXPRV+6, RXPRV+7, RXPRV+8, RXPRV+9, RXPRV+10, RXRPH~, RXRPH+5 , RXRPH+6, RXRPH+7, RXRPH+8, RXRPH+9
RXNDC	AUTOREL+10~, AUTOREL+13*, AUTOREL+30, AUTOREL+36
RXPRV	RXPRV+5~, RXPRV+8, RXPRV+9, RXPRV+10*, RXPRV+11
RXQTY	RXQTY+4~, RXQTY+6, RXQTY+8, RXQTY+9*, RXQTY+10
RXRLDT	RXRLDT+5~, RXRLDT+7, RXRLDT+9, RXRLDT+10*, RXRLDT+11
RXRPH	RXRPH+4~, RXRPH+7, RXRPH+8, RXRPH+9*, RXRPH+10
SITE	RXSITE+5~, RXSITE+8, RXSITE+9, RXSITE+10, RXSITE+11, RXSTATE+4~, RXSTATE+5, RXSTATE+6, RXSTATEP+5~, RXSTATEP+9* , RXSTATEP+10, RXSTATEZ+5~, RXSTATEZ+7*, AUTOREL+10~
SRC	AUTOREL~, AUTOREL+12*, AUTOREL+15, AUTOREL+20, AUTOREL+24, AUTOREL+27, AUTOREL+30, AUTOREL+36, AUTOREL+44
STATE	RXSTATEP~, RXSTATEP+6, RXSTATEZ~, RXSTATEZ+6
STATUS	SUBMIT+7~, SUBMIT+12, SUBMIT+13, CMOP+5~, CMOP+22, IBSEND+14~, IBSEND+15*, IBSEND+17, IBSEND+23, IBSEND+28
STS	AUTOREL~, AUTOREL+12*, AUTOREL+19
SURFL	RXSUDT+6~, RXSUDT+9*
SURX	RXSUDT+6~, RXSUDT+7*, RXSUDT+8, RXSUDT+9, RXSUDT+10
VALUE	VALUE+9~, VALUE+11, VALUE+12, VALUE+13*, VALUE+14
>> VAPA(5	RXSTATEP+12, RXSTATEZ+8
WARNS	CMOP+5~, CMOP+18*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSUT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 106

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: