Routine: PSOCPTRI

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

Package

Total

Call Graph

Outpatient Pharmacy

DEVBAR^PSOBMST EN^PSOHLSN1 DQ^PSOLBL ^PSOLSET

VA Fileman

NOW^%DTC ^DIC DT^DICRW ^DIE

Kernel

^%ZIS ^%ZISC $$DT^XLFDT

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOBBC PSOCP CHAMPUS EXEMPTION PSORXL

Package

Total

Caller Graph

Outpatient Pharmacy

PSOBBC PSOCP CHAMPUS EXEMPTION PSORXL

Entry Points

Name	Comments	DBIA/ICR reference
RESDIR	;Reset DIR just in case
TRANSQ
DEVA
EXM	;Edit Champus Billing Exemption field
CHKQ
DEV	;Get devices
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
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
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
EXMQ

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

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	DIE Line Location: LABEL+17 EXM+3
Routine Call	DIC Line Location: EXM+2
Routine Call	%ZIS Line Location: IO DEVA

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!
^VA(200 - [#200]	TRANS+48

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

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
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
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+48
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+48*
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

Routine: PSOCPTRI

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: