Routine: PSOBPSUT

Package	Total	Call Graph
Outpatient Pharmacy	7	($$LSTRFL,ECMESND,RELEASE,REVERSE)^PSOBPSU1 UPDFL^PSOBPSU2 ($$RXFLDT,$$RXRLDT,$$RXSITE,$$STATUS)^PSOBPSUT ($$CHGNDC,$$GETNDC,SAVNDC)^PSONDCUT $$TRIC^PSOREJP1 $$HDLG^PSOREJU1 $$FIND^PSOREJUT
Uncategorized	4	$$CLAIM^BPSBUTL IBSEND^BPSECMP2 $$STATUS^BPSOSRX $$ECMEON^BPSUTIL
Pharmacy Data Management	1	$$NDCFMT^PSSNDCUT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	48	PSOATRFC PSOBPSR1 PSOBPSU1 PSOBPSU2 PSOBPSUT PSOCAN2 PSOCMOPB PSOCSRL PSODAWUT PSODISP PSODISPS PSODRG PSOHLD PSOHLDIS PSOLLL3 PSON52 PSONDCUT PSONDCV PSOORAL2 PSOORED2 PSOORED7 PSOOREDT PSOORNE2 PSOORRL PSOORUT1 PSOP PSOP1 PSOPMP0 PSOPMP1 PSOR52 PSOREJP0 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJU1 PSOREJU2 PSOREJU3 PSOREJU4 PSOREJUT PSORN52 PSORXED PSORXL1 PSORXPA1 PSORXVW PSORXVW1 PSOSULBL PSOSUPOE PSOVER1
CMOP	5	PSXBPSMS PSXBPSRP PSXRPPL1 PSXRPPL2 PSXVND

Entry Points

Name	Comments	DBIA/ICR reference
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)
RXRLDT(RX,RFL)	; Returns the Rx Release Date ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent)	ICR #4701 Status: Active Usage: Controlled Subscription
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
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	ICR #4701 Status: Active Usage: Controlled Subscription
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
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
STATUS(RX,RFL)	; Returns the Rx's ECME Status (calls STATUS^BPSOSRX) ; Input: (r) RX - Rx IEN (#52) ; (o) RFL - Refill # (Default: most recent)	ICR #4701 Status: Active Usage: Controlled Subscription
MANREL(RX,RFL,PID)	; ePharmacy Manual Rx Release
TRIC	;
QCMOP
RXSUDT(RX,RFL)	; Returns the prescription/fill Suspense Date for the RX/Reject passed in
IBSEND(RX,RFL)	; Rx Release: Calls ECME, which will call IB to create a bill
ECME(RX)	; Returns "e" if Rx/Refill is Electronically Billable (3rd party)
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+15
IBSEND^BPSECMP2	IBSEND+16
$$STATUS^BPSOSRX	ECME+2, STATUS+5
$$ECMEON^BPSUTIL	SUBMIT+18, MANREL+13, IBSEND+7
$$GET1^DIQ	SUBMIT+13, SUBMIT+22, CMOP+10, CMOP+13, CMOP+15, CMOP+17, CMOP+19, CMOP+21, CMOP+25, RXRLDT+7 , RXRLDT+9, RXFLDT+6, RXFLDT+8, RXSUDT+8, RXSUDT+9, RXSUDT+10, RXSITE+8, RXSITE+9, RETRX+5, RETRX+6
$$LSTRFL^PSOBPSU1	ECME+2, STATUS+4, SUBMIT+9, SUBMIT+11, CMOP+7, RXRLDT+8, RXFLDT+7, RXSITE+7, MANREL+8, AUTOREL+12 , IBSEND+5, RETRX+4
ECMESND^PSOBPSU1	AUTOREL+32, AUTOREL+39, IBSEND+12
RELEASE^PSOBPSU1	MANREL+27, AUTOREL+23
REVERSE^PSOBPSU1	AUTOREL+21, AUTOREL+26, AUTOREL+29
UPDFL^PSOBPSU2	AUTOREL+32, AUTOREL+39
$$RXFLDT^PSOBPSUT	CMOP+27
$$RXRLDT^PSOBPSUT	CMOP+23, IBSEND+12
$$RXSITE^PSOBPSUT	MANREL+13, IBSEND+7
$$STATUS^PSOBPSUT	MANREL+15, MANREL+25, AUTOREL+18, AUTOREL+35, AUTOREL+43, IBSEND+9, IBSEND+11, IBSEND+14
$$CHGNDC^PSONDCUT	MANREL+18
$$GETNDC^PSONDCUT	AUTOREL+14
SAVNDC^PSONDCUT	AUTOREL+16, AUTOREL+35, AUTOREL+43
$$TRIC^PSOREJP1	MANREL+16
$$HDLG^PSOREJU1	MANREL+11, MANREL+24
$$FIND^PSOREJUT	MANREL+10, MANREL+23
$$NDCFMT^PSSNDCUT	AUTOREL+16, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+32, AUTOREL+35, AUTOREL+37, AUTOREL+39, AUTOREL+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MANREL+10
Function Call: WRITE	Prompt: ! Line Location: MANREL+23
Function Call: WRITE	Prompt: !!,$C(7),"TRICARE 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
^PS(52.5 - [#52.5]	GET1^DIQ
^PS(55 - [#55]	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+13
^PSRX - [#52]	RXSUDT+5

Label References

Name	Line Occurrences
$$CMOP	SUBMIT+16
$$RXFLDT	SUBMIT+22
$$RXRLDT	SUBMIT+20
$$RXSITE	SUBMIT+18, SUBMIT+22
IBSEND	AUTOREL+45
QCMOP	CMOP+11, CMOP+13, CMOP+15, CMOP+17, CMOP+19, CMOP+21, CMOP+23, CMOP+29
TRIC	MANREL+21, MANREL+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CMOP+5~
ACTION	MANREL+7~, MANREL+10, MANREL+11, MANREL+18, MANREL+19, MANREL+20, MANREL+21, MANREL+23, MANREL+24*
CMOP	CMOP+5~, CMOP+9, CMOP+30, QCMOP
DFN	CMOP+5~, CMOP+10*
DRUG	CMOP+5~, CMOP+13*, CMOP+15, CMOP+17
DT	SUBMIT+22, CMOP+11, CMOP+27
DUZ	MANREL+27, IBSEND+16
HNG	AUTOREL~, AUTOREL+13*, AUTOREL+33, AUTOREL+41
IGCMP	SUBMIT~, SUBMIT+16, SUBMIT+22
IGRL	SUBMIT~, SUBMIT+20
MAIL	CMOP+5~, CMOP+10*, CMOP+11
MAILEXP	CMOP+5~, CMOP+10*, CMOP+11
MW	CMOP+5~, CMOP+25, CMOP+27, CMOP+29
NDC	AUTOREL~, AUTOREL+16, AUTOREL+25, AUTOREL+26, AUTOREL+28, AUTOREL+29, AUTOREL+31, AUTOREL+32, AUTOREL+35, AUTOREL+37 , AUTOREL+39, AUTOREL+43
PID	MANREL~, MANREL+18
PSOCLAIM	IBSEND+15~*, IBSEND+16
PSOTRIC	MANREL+16~*, MANREL+21, MANREL+25
RFL	STATUS~, STATUS+4, STATUS+5, SUBMIT~, SUBMIT+9, SUBMIT+11, SUBMIT+16, SUBMIT+18, SUBMIT+20, SUBMIT+22 , CMOP~, CMOP+7, CMOP+23, CMOP+25, CMOP+27, RXRLDT~, RXRLDT+8, RXRLDT+9, RXFLDT~, RXFLDT+7* , RXFLDT+8, RXSUDT~, RXSUDT+9, RXSITE~, RXSITE+7, RXSITE+8, RXSITE+9, MANREL~, MANREL+8, MANREL+10 , MANREL+11, MANREL+13, MANREL+15, MANREL+16, MANREL+18, MANREL+23, MANREL+24, MANREL+25, MANREL+27, AUTOREL~ , AUTOREL+12, AUTOREL+14, AUTOREL+16, AUTOREL+18, AUTOREL+21, AUTOREL+23, AUTOREL+26, AUTOREL+29, AUTOREL+32, AUTOREL+35 , AUTOREL+39, AUTOREL+43, AUTOREL+45, IBSEND~, IBSEND+5, IBSEND+7, IBSEND+9, IBSEND+11, IBSEND+12, IBSEND+14 , IBSEND+15, RETRX~, RETRX+4*, RETRX+5
RLDT	AUTOREL~, AUTOREL+32, AUTOREL+39
RX	ECME~, ECME+2, STATUS~, STATUS+4, STATUS+5, SUBMIT~, SUBMIT+9, SUBMIT+11, SUBMIT+13, SUBMIT+16 , SUBMIT+18, SUBMIT+20, SUBMIT+22, CMOP~, CMOP+7, CMOP+10, CMOP+13, CMOP+19, CMOP+21, CMOP+23 , CMOP+25, CMOP+27, RXRLDT~, RXRLDT+6, RXRLDT+7, RXRLDT+8, RXRLDT+9, RXFLDT~, RXFLDT+5, RXFLDT+6 , RXFLDT+7, RXFLDT+8, RXSUDT~, RXSUDT+5, RXSUDT+7, RXSITE~, RXSITE+6, RXSITE+7, RXSITE+8, RXSITE+9 , MANREL~, MANREL+8, MANREL+10, MANREL+11, MANREL+13, MANREL+15, MANREL+16, MANREL+18, MANREL+23, MANREL+24 , MANREL+25, MANREL+27, AUTOREL~, AUTOREL+12, AUTOREL+14, AUTOREL+16, AUTOREL+18, AUTOREL+21, AUTOREL+23, AUTOREL+26 , AUTOREL+29, AUTOREL+32, AUTOREL+35, AUTOREL+39, AUTOREL+43, AUTOREL+45, IBSEND~, IBSEND+5, IBSEND+7, IBSEND+9 , IBSEND+11, IBSEND+12, IBSEND+14, IBSEND+15, RETRX~, RETRX+4, RETRX+5, RETRX+6
RXFLDT	RXFLDT+4~, RXFLDT+6, RXFLDT+8, RXFLDT+9
RXNDC	AUTOREL+11~, AUTOREL+14*, AUTOREL+31, AUTOREL+37
RXRLDT	RXRLDT+5~, RXRLDT+7, RXRLDT+9, RXRLDT+10
SITE	RXSITE+5~, RXSITE+8, RXSITE+9, RXSITE+10, AUTOREL+11~
SRC	AUTOREL~, AUTOREL+13*, AUTOREL+16, AUTOREL+21, AUTOREL+25, AUTOREL+28, AUTOREL+31, AUTOREL+37
STATUS	SUBMIT+8~, SUBMIT+13, SUBMIT+14, CMOP+5~, CMOP+21
STS	AUTOREL~, AUTOREL+13*, AUTOREL+20
SURFL	RXSUDT+6~, RXSUDT+9*
SURX	RXSUDT+6~, RXSUDT+7*, RXSUDT+8, RXSUDT+9, RXSUDT+10
WARNS	CMOP+5~, CMOP+17*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSUT

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 53

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: