Routine: PSOCPTRI

Information

PSOCPTRI ;BHAM ISC/CPM,RTR - SUPPORT FOR CHAMPUS RX BILLING ;14-AUG-96

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC $$DT^XLFDT $$DEA^XUSER
Outpatient Pharmacy	4	DEVBAR^PSOBMST EN^PSOHLSN1 DQ^PSOLBL ^PSOLSET
VA FileMan	4	NOW^%DTC ^DIC DT^DICRW ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 7

Package	Total	Caller Graph
Integrated Billing	4	IBACUS IBACUS2 IBECUS2 IBECUS3
Outpatient Pharmacy	3	PSOBBC PSOCP CHAMPUS EXEMPTION PSORXL

Entry Points

Name	Comments	DBIA/ICR reference
TRANS(ORIG,REF,PSOV)	; Extract Rx information for transmission to FI ; Input: ORIG -- Pointer to the rx in file #52 ; REF -- Pointer to the refill in file #52.1 ; (This is 0 if we are billing the original fill) ; PSOV -- Passed by reference. This array will be used ; to return the output (described below). ; Output: PSOE -- This is normally 1, or -1 if the NDC cannot ; be determined.	ICR #2029 Status: Active Usage: Private
TRANSQ
LABEL(RX,PSOLAP,PSOSITE,DUZ,PSOTRAMT)	; Print the label. ; Input: RX -- Pointer to the prescription in file #52 ; PSOLAP -- Label printer ; PSOSITE -- Pointer to the Pharmacy in file #59 ; DUZ -- Pointer to the use in file #200 ; PSOTRAMT -- Amount to be paid	ICR #2029 Status: Active Usage: Private
IO
CHK(ORIG,REF)	; Should this rx be billed to the CHAMPUS Fiscal Intermediary? ; Input: ORIG -- Pointer to the rx in file #52 ; REF -- Pointer to the refill in file #52.1, or ; 0 for the original fill ; Output: PSOB -- 0 => The rx should not be billed ; 1 => The rx may be billed.	ICR #2029 Status: Active Usage: Private
CHKQ
DEV	;Get devices
DEVA
EXM	;Edit Champus Billing Exemption field
EXMQ
RESDIR	;Reset DIR just in case
GDEA(IEN)	; Get DEA number

External References

Name	Field # of Occurrence
NOW^%DTC	LABEL+20
^%ZIS	IO, DEVA
^%ZISC	IO+8, DEVA+4
^DIC	EXM+2
DT^DICRW	LABEL+12
^DIE	LABEL+17, EXM+3
DEVBAR^PSOBMST	IO+1, DEVA+2
EN^PSOHLSN1	LABEL+18
DQ^PSOLBL	IO+7
^PSOLSET	EXM+1
$$DT^XLFDT	LABEL+13
$$DEA^XUSER	GDEA+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Label Printer device must be selected!",! Line Location: DEVA+0
Function Call: WRITE	Prompt: ! Line Location: EXM+2
Function Call: WRITE	Prompt: ! Line Location: EXM+3
Routine Call	DIC Line Location: EXM+2
Routine Call	DIE Line Location: LABEL+17 EXM+3
Routine Call	%ZIS Line Location: IO DEVA

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^PS(53 - [#53]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	CHK+10
^PS(59 - [#59]	LABEL+10, IO+2, IO+3
^PSDRUG - [#50]	TRANS+33, TRANS+46
^PSRX - [#52]	TRANS+27, TRANS+28, LABEL+9, LABEL+14, LABEL+15, LABEL+16, LABEL+17, LABEL+19, LABEL+21, LABEL+22 , LABEL+23*, CHK+10
^PSRX("AH"	LABEL+19!

Label References

Name	Line Occurrences
$$GDEA	TRANS+49
CHKQ	CHK+10
DEVA	DEVA
EXM	EXM+1
EXMQ	EXM+2
IO	IO
TRANSQ	TRANS+29, TRANS+34

Naked Globals

Name	Field # of Occurrence
^(2	TRANS+27
^(3	TRANS+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LABEL+20
>> %ZIS	IO, DEVA
>> %ZIS("A"	DEVA*
>> %ZIS("B"	DEVA*
CT	LABEL+11~, LABEL+21*
>> DA	LABEL+17, LABEL+19, EXM+3
DEA	GDEA+1~, GDEA+2*, GDEA+3
DIC	EXM+2!*, EXMQ!
DIC(0	EXM+2*
DIE	LABEL+17!, EXM+3!, EXMQ!
DIQUIET	LABEL+11~, LABEL+12*
>> DIR("?"	RESDIR+2, RESDIR+3, RESDIR+4*
>> DIR("A"	RESDIR+1*
>> DR	LABEL+17, EXM+3
DT	LABEL+13*, LABEL+17
>> DTOUT	EXM+2
>> DUOUT	EXM+2
DUZ	LABEL~, LABEL+23, IO+3
IEN	GDEA~, GDEA+2
II	LABEL+11~, LABEL+16*
III	LABEL+11~, LABEL+21, LABEL+22, LABEL+23
ION	DEV+2, DEV+3, DEVA+1, DEVA+4*
>> IOP	IO*
>> IOS	IO+1, DEVA+2
IOST	DEVA
NOW	LABEL+11~, LABEL+20*, LABEL+23
ORIG	TRANS~, TRANS+27, TRANS+28, CHK~, CHK+10
PDUZ	LABEL+11~, IO+3*
>> POP	IO, DEVA
>> PPL	IO+4*
PSHRX	LABEL+11~, LABEL+18*
PSOB	CHK+7~, CHK+12*, CHKQ
PSOBAR0	LABEL+11~, IO+6, DEVA+3
PSOBAR1	LABEL+11~, IO+6, DEVA+3
PSOBARS	LABEL+11~, IO+6, DEVA+3
PSOCHAMP	LABEL+11~, IO+5*
PSOE	TRANS+25~, TRANS+29, TRANS+34*, TRANSQ
PSOIOS	IO+1~, DEVA+2~
PSOLAP	LABEL~, LABEL+8, IO, DEV+3, DEVA+1*
PSOPAR	LABEL+11~, IO+3*, IO+6, DEVA+3, EXM+1, RESDIR+1, RESDIR+4
PSORX	TRANS+25~
PSORX("REF"	TRANS+28*, TRANS+37, TRANS+38, TRANS+41, TRANS+42
PSORX(0	TRANS+27*, TRANS+29, TRANS+31, TRANS+33, TRANS+41, TRANS+42, TRANS+43, TRANS+44, TRANS+46, TRANS+49
PSORX(2	TRANS+27*, TRANS+37, TRANS+38, TRANS+39
PSORX(3	TRANS+27*, TRANS+39
PSOSITE	LABEL~, LABEL+10, IO+2, IO+3
PSOSYS	LABEL+11~, IO+2*
PSOTRAMT	LABEL~
PSOTRION	DEV+1~, DEV+2*, DEVA+4
PSOV	TRANS~
PSOV("#REF"	TRANS+44*
PSOV("COMP"	TRANS+46*
PSOV("DEA"	TRANS+49*
PSOV("DIV"	TRANS+37*
PSOV("FDT"	TRANS+38, TRANS+39
PSOV("ISS"	TRANS+43*
PSOV("NDC"	TRANS+33*, TRANS+34
PSOV("QTY"	TRANS+41*
PSOV("RX#"	TRANS+31*
PSOV("SUP"	TRANS+42*
PSOX	TRANS+46~*
REF	TRANS~, TRANS+28, TRANS+38, CHK~
REPRINT	LABEL+11~, LABEL+14*
RX	LABEL~, LABEL+9, LABEL+14, LABEL+15, LABEL+16, LABEL+17, LABEL+18*, LABEL+19, LABEL+21, LABEL+22 , LABEL+23, IO+4
RXFF	LABEL+11~, LABEL+16*, LABEL+17, LABEL+23
X	LABEL+11~
Y	LABEL+11~, EXM+2, EXM+3, EXMQ!

Customize PDF page

Package: Outpatient Pharmacy