Routine: PSOREJP3

Package	Total	Call Graph
Outpatient Pharmacy	15	ECMESND^PSOBPSU1 $$ECMENUM^PSOBPSU2 ($$RXSITE,$$STATUS)^PSOBPSUT DQ^PSOLBL LBL^PSOLSET $$GETNDC^PSONDCUT ADDPC^PSOPTC0 ($$CLOSED,$$ELIGDISP,$$TRIC,INIT,SETLN)^PSOREJP1 $$PTLBL^PSOREJP2 $$PSOCOB^PSOREJP3 $$PSOETEC^PSOREJP5 ($$DC,$$SIG)^PSOREJU1 GET^PSOREJU2 ($$FIND,CLOSE)^PSOREJUT AUDIT^PSOTRI
VA FileMan	6	NOW^%DTC (FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ ^DIR ^DIWP ^DIWW
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT BMES^XPDUTL
E Claims Management Engine	4	GETDAT^BPSBUTL $$IEN59^BPSOSRX ($$GETPL59,$$GETRTP59)^BPSPRRX5 COM^BPSSCRU3
List Manager	1	(FULL,WAIT)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	29	PSO REJECT DISCONTINUE PSO REJECT DISPLAY ADD COMMENT PSO REJECT FILL RX PSOBPSU1 PSOBPSU3 PSOBPSUT PSOHLD PSON52 PSOORED2 PSOORED7 PSOPRK PSOPTC0 PSOR52 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJP5 PSOREJP7 PSOREJU1 PSOREJU3 PSOREJUT PSORN52 PSORREF PSORXED PSOSUPAT PSOSUPOE PSOSUPRX PSOTRI PSOVER1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
COM	; Builds the Comments section in the Reject Information Screen. ; The following variables are assumed to exist: ; RX - Pointer to file# 52, Prescription. ; FILL - Pointer to the Refill sub-file of the Prescription. ; REJ - Pointer to the Reject Info sub-file of the Prescription.
PTC	; Patient Comments
ADDCOM	; - Add comment worklist action
COMMENT(PSOTR,PSMLEN)	;*/
YESNO(PSQSTR,PSDFL)	; Default - YES
SAVECOM(PSRXIEN,PSREJIEN,PSCOMNT,DATETIME,USER)	;
INSITEM(PSSFILE,PSIEN0,PSIEN1,PSVAL01)	;*/
PRINT(RX,RFL)	; Print Label for specific Rx/Fill
RXINFO(RX,FILL,LINE,REJ)	; Returns header displayable Rx Information
FILL	;Fill payable TRICARE or CHAMPVA Rx
PSOCOB(RX,FILL,REJ)	; Returns RXCOB indicator for Worklist
DC	;Discontinue TRICARE Rx
FILLTR	;TRICARE/CHAMPVA specific logic
FILLTR2	;Use for looping if user enters ^ in required comment field
TCOM(RX,RFL)	; - Ask for TRICARE or CHAMPVA Justification
PSOET(RX,FILL)	; Returns flag for TRICARE or CHAMPVA non-billable and no claim submitted ; Return 1 if rejection code is eT or eC (pseudo-reject code) ; 0 otherwise
TRIREJCD	;TRICARE or CHAMPVA Reject Code, non-billable Rx
SEND(OVRCOD,CLA,PA,PSOET,DIAG,PREG)	; - Sends Claim to ECME and closes Reject ; Input: OVRCOD - Up to three ~-pieces, and each populated would be ; Reason for Service Code ^ Prof Srvc Cd ^ Result of Srvc Cd ; CLA - Submission Clarification Code #1 ~ SCC #2 ~ SCC #3 ; PA - Prior Auth Type ^ Prior Auth Number ; PSOET - 1 if eT/eC pseudo-reject on claim ; DIAG - Diagnosis Code ; PREG - Pregnancy Indicator

External References

Name	Field # of Occurrence
NOW^%DTC	SAVECOM+2
^%ZIS	PRINT+32, PRINT+45
^%ZISC	PRINT+40, PRINT+46, PRINT+48
^%ZTLOAD	PRINT+40
GETDAT^BPSBUTL	RXINFO+3
$$IEN59^BPSOSRX	SEND+31
$$GETPL59^BPSPRRX5	SEND+32
$$GETRTP59^BPSPRRX5	SEND+33
COM^BPSSCRU3	COM+14
FILE^DIE	SAVECOM+9
UPDATE^DIE	INSITEM+4
$$GET1^DIQ	COM+28, COM+42, COM+43, COM+44, COM+46, PTC+5, ADDCOM+24, PRINT+17, PRINT+21, RXINFO+4 , RXINFO+9, RXINFO+10, FILL+5, FILL+6, FILL+12, FILL+25, FILL+27, FILL+28, SEND+56, SEND+62
GETS^DIQ	PTC+16
^DIR	ADDCOM+8, COMMENT+9, YESNO+5, PRINT+26, PRINT+41, PRINT+46, TCOM+2, SEND+15
^DIWP	COM+74, PTC+45, SEND+47
^DIWW	SEND+48
ECMESND^PSOBPSU1	SEND+38
$$ECMENUM^PSOBPSU2	RXINFO+6
$$RXSITE^PSOBPSUT	PRINT+20, SEND+54
$$STATUS^PSOBPSUT	FILL+19, FILL+20, SEND+63
DQ^PSOLBL	PRINT+48
LBL^PSOLSET	PRINT+25
$$GETNDC^PSONDCUT	RXINFO+11, SEND+38
ADDPC^PSOPTC0	ADDCOM+25
$$CLOSED^PSOREJP1	FILL+15
$$ELIGDISP^PSOREJP1	TCOM+2
$$TRIC^PSOREJP1	FILL+2, SEND+61
INIT^PSOREJP1	ADDCOM+21, ADDCOM+26
SETLN^PSOREJP1	COM+58, COM+59, COM+91, PTC+31, PTC+60
$$PTLBL^PSOREJP2	FILL+30, SEND+60
$$PSOCOB^PSOREJP3	SEND+30
$$PSOETEC^PSOREJP5	FILLTR2+17
$$DC^PSOREJU1	DC+3
$$SIG^PSOREJU1	FILLTR2+11
GET^PSOREJU2	PSOCOB+2
$$FIND^PSOREJUT	PSOET+8
CLOSE^PSOREJUT	FILL+29
AUDIT^PSOTRI	FILLTR2+18
FULL^VALM1	ADDCOM+2, FILL+14, DC+2
WAIT^VALM1	ADDCOM+14
$$FMTE^XLFDT	COM+29, RXINFO+7
BMES^XPDUTL	INSITEM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient Billing Comments require Pharmacy Key (PSO EPHARMACY SITE MANAGER)" Line Location: ADDCOM+13
Function Call: WRITE	Prompt: ! Line Location: COMMENT+9
Function Call: WRITE	Prompt: !!,"Enter a free text comment up to 150 characters long.",! Line Location: COMMENT+12
Function Call: WRITE	Prompt: ! Line Location: YESNO+5
Function Call: WRITE	Prompt: ! Line Location: PRINT+25
Function Call: WRITE	Prompt: $C(7),!!,"No printer defined" Line Location: PRINT+26
Function Call: WRITE	Prompt: !!,"Label ",$S('$D(ZTSK):"NOT ",1:""),"queued to print",! I '$D(ZTSK) Line Location: PRINT+41
Function Call: WRITE	Prompt: $C(7) Line Location: PRINT+41
Function Call: WRITE	Prompt: $C(7),!!,"Printer is busy - NO label printed" Line Location: PRINT+46
Function Call: WRITE	Prompt: !?20,"[Closing all rejections for prescription "_$$GET1^DIQ(52,RX,".01")_":" Line Location: FILL+25
Function Call: WRITE	Prompt: !?25,OPNREJ3_" - "_$$GET1^DIQ(9002313.93,OPNREJ3,".02")_"..." Line Location: FILL+28
Function Call: WRITE	Prompt: "OK]",!,$C(7) Line Location: FILL+29
Function Call: WRITE	Prompt: ! Line Location: TCOM+2
Function Call: WRITE	Prompt: ! Line Location: SEND+15
Function Call: WRITE	Prompt: !!?10,"Claim could not be submitted. Please try again later!" Line Location: SEND+41
Function Call: WRITE	Prompt: $C(7) Line Location: SEND+49
Function Call: WRITE	Prompt: !,"This prescription can be pulled early from suspense or the label will print" Line Location: SEND+65
Function Call: WRITE	Prompt: !,"when PRINT FROM SUSPENSE occurs.",! Line Location: SEND+66
Routine Call	DIE Line Location: SAVECOM+9
Routine Call	DIE Line Location: INSITEM+4
Routine Call	DIR Line Location: ADDCOM+8 COMMENT+9 YESNO+5 PRINT+26 PRINT+41 PRINT+46 TCOM+2 SEND+15
Routine Call	%ZIS Line Location: PRINT+32 PRINT+45

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.032	GET1^DIQ
52.1	GET1^DIQ
52.25	GET1^DIQ
52.2551	GET1^DIQ
^PS(52.86 - [#52.86]	GET1^DIQ
55.17	GETS^DIQ
^BPSF(9002313.93 - [#9002313.93]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.86 - [#52.86]	SEND+55
^PS(55 - [#55]	PTC+6, PTC+12, PTC+14
^PS(59 - [#59]	PRINT+20
^PS(59.7 - [#59.7]	PRINT+21
^PSDRUG("AQ"	RXINFO+9
^PSRX - [#52]	COM+41, SAVECOM+5, PRINT+17, FILL+23, SEND+36
^UTILITY($J	COM+70!, COM+80, COM+81, COM+87, PTC+41!, PTC+48, PTC+49, PTC+56, PTC+62!
^XUSEC("PSO EPHARMACY SITE MANAGER"	ADDCOM+12
^XUSEC("PSO TRICARE/CHAMPVA"	FILLTR2+3

Label References

Name	Line Occurrences
$$COMMENT	ADDCOM+16
$$PSOET	RXINFO+5
$$TCOM	FILLTR2+14
$$YESNO	COMMENT+16, FILLTR2+7
FILLTR	FILL+20
FILLTR2	FILLTR2+14
INSITEM	SAVECOM+4
PRINT	FILL+30, SEND+60
PTC	COM+57
SAVECOM	ADDCOM+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	COM+69~, PTC+40~, SAVECOM+2
%ZIS	PRINT+8~, PRINT+32*, PRINT+45!
ACTION	DC+1~, DC+3, DC+4
ALTXT	SEND+8~, SEND+17, SEND+19, SEND+20, SEND+21, SEND+22, SEND+24, SEND+25, SEND+27, SEND+28* , SEND+38
>> CHANGE	FILL+31, DC+5, SEND+68*
CLA	SEND~, SEND+16, SEND+21, SEND+38
CMOP	RXINFO+1~, RXINFO+9*, RXINFO+10
COM	FILL+1~, FILL+18, FILL+21, FILL+29, FILLTR2+14, FILLTR2+18, TCOM+1~, TCOM+3, TCOM+4, SEND+8~
CONT	FILLTR+2~, FILLTR2+7*, FILLTR2+8
DATA1	PSOCOB+1~, PSOCOB+2
DATA1(	PSOCOB+3, PSOCOB+4
DATETIME	SAVECOM~, SAVECOM+2*, SAVECOM+4, SAVECOM+5
DCSTAT	FILL+1~, FILL+12*, FILL+13
DFN	PRINT+7~, PRINT+21*
DIAG	SEND~, SEND+23, SEND+24, SEND+25, SEND+38
DIR	ADDCOM+1~, COMMENT+1~, YESNO+1~, PRINT+7~, PRINT+26!, PRINT+41!, PRINT+46!, TCOM+1~, SEND+8~, SEND+15!
DIR("?"	ADDCOM+6, ADDCOM+7, COMMENT+6*
DIR("A"	ADDCOM+5, COMMENT+5, YESNO+3, PRINT+26, PRINT+41, PRINT+46, TCOM+2, SEND+10, SEND+11, SEND+12 , SEND+13, SEND+14
DIR("B"	COMMENT+13, YESNO+4, SEND+10*
DIR(0	ADDCOM+4, COMMENT+4, YESNO+2, PRINT+26, PRINT+41, PRINT+46, TCOM+2, SEND+10
DIROUT	PRINT+7~
DIRUT	ADDCOM+9, PRINT+7~, TCOM+1~, TCOM+3, SEND+15
DIW	COM+69~, PTC+40~
DIWF	COM+69~, PTC+40~, SEND+9~, SEND+44*
DIWI	COM+69~, PTC+40~
DIWL	COM+69~, COM+72, PTC+40~, PTC+43, SEND+9~, SEND+45*
DIWR	COM+69~, COM+73, PTC+40~, PTC+44, SEND+9~, SEND+46*
DIWT	COM+69~, PTC+40~
DIWTC	COM+69~, PTC+40~
DIWX	COM+69~, PTC+40~
DN	COM+69~, PTC+40~
DRG	RXINFO+1~, RXINFO+9*
DTOUT	COMMENT+1~, COMMENT+10, PRINT+7~
DUOUT	COMMENT+1~, COMMENT+10, YESNO+1~, YESNO+6, PRINT+7~
DUZ	ADDCOM+12, SAVECOM+3, PRINT+21, FILL+29, FILLTR2+3
FILL	COM+14, RXINFO~, RXINFO+3, RXINFO+4, RXINFO+5, RXINFO+6, RXINFO+11, FILL+2, FILL+5, FILL+6 , FILL+19, FILL+20, FILL+29, FILL+30, PSOCOB~, PSOCOB+2, FILLTR2+14, FILLTR2+17, FILLTR2+18, PSOET~ , PSOET+8, SEND+30, SEND+31, SEND+38, SEND+54, SEND+60, SEND+61, SEND+63
I	COM+69~, PTC+40~, FILL+1~, FILL+26*
IEN5286	SEND+53~, SEND+55*, SEND+56
IO("Q"	PRINT+35
IOP	PRINT+8~, PRINT+32, PRINT+45
LBL	RXINFO+1~
LINE	RXINFO~, RXINFO+2, RXINFO+8
OPNREJ	FILL+1~, FILL+22, FILL+23, FILL+24*, FILL+26
OPNREJ2	FILL+1~, FILL+22, FILL+23, FILL+24, FILL+26, FILL+27, FILL+29
OPNREJ3	FILL+1~, FILL+22, FILL+27, FILL+28
OVRCOD	SEND~, SEND+16, SEND+20, SEND+38
PA	SEND~, SEND+16, SEND+22, SEND+38
PAUSE	SEND+53~, SEND+56, SEND+57, SEND+58
PDUZ	PRINT+7~, PRINT+21*
POP	PRINT+8~, PRINT+46
PPL	PRINT+5~, PRINT+22*
PREG	SEND~, SEND+26, SEND+28, SEND+38
PSCOM	ADDCOM+1~, ADDCOM+16*, ADDCOM+19, ADDCOM+20, ADDCOM+23, ADDCOM+25
PSCOMNT	SAVECOM~, SAVECOM+8
PSDA	SAVECOM+1~
PSDA(	SAVECOM+7, SAVECOM+8
PSDFL	YESNO~, YESNO+4
PSER	INSITEM+1~, INSITEM+5
PSER("DIERR"	INSITEM+5
PSERR	SAVECOM+1~
PSFDA	INSITEM+1~
PSFDA(	INSITEM+3*
PSIEN0	INSITEM~, INSITEM+2
PSIEN1	INSITEM~, INSITEM+2
PSIENS	INSITEM+1~, INSITEM+2*, INSITEM+3
PSMLEN	COMMENT~, COMMENT+3*, COMMENT+11, COMMENT+13
PSO55	ADDCOM+1~, ADDCOM+24*, ADDCOM+25
PSO59	SEND+8~, SEND+31*, SEND+32, SEND+33
PSOAR	PTC+11!
PSOARRAY	COM+6~, PTC+2!, PTC+30
PSOARRAY(	COM+31, COM+32, COM+33, COM+47, COM+48, COM+49, COM+62, COM+64, COM+71, COM+87 , PTC+27*, PTC+36, PTC+42
PSOARRAY(""	COM+57
PSOBAR0	PRINT+5~
PSOBAR1	PRINT+5~
PSOBARS	PRINT+5~
PSOBFLAG	PRINT+5~, PRINT+25*
PSOCLBL	PRINT+6~, PRINT+13, PRINT+14
PSOCNT	COM+6~, PTC+10, PTC+26, PTC+27, PTC+35, PTC+36, PTC+42, PTC+56
PSOCOB	SEND+8~, SEND+30*, SEND+31, SEND+38
PSOCOM	COM+6~, COM+26, COM+30, COM+33, COM+44, COM+45, COM+49, COM+81, COM+91, PTC+24 , PTC+25, PTC+49*, PTC+60
PSOCOMTYPE	ADDCOM+1~, ADDCOM+10*, ADDCOM+12, ADDCOM+19, ADDCOM+23
PSODATA	COM+6~, PTC+15!
PSODATA(	PTC+19, PTC+22, PTC+23, PTC+24
PSODATE	COM+6~, COM+16, COM+17, COM+19, COM+24, COM+26, COM+27, COM+29, COM+31, COM+32 , COM+33, COM+42, COM+45, COM+46, COM+47, COM+48, COM+49, COM+61, COM+62, COM+64 , COM+71, COM+87, PTC+9, PTC+12, PTC+14
PSODATE1	COM+6~, PTC+22*, PTC+25
PSODFN	COM+6~, PTC+5*, PTC+6, PTC+12, PTC+14, PTC+16, PTC+19, PTC+22, PTC+23, PTC+24
PSOET	RXINFO+1~, RXINFO+5*, RXINFO+6, RXINFO+7, SEND~, SEND+38
PSOETEC	FILLTR+2~, FILLTR2+17, FILLTR2+18, SEND+8~, SEND+35, SEND+36*, SEND+40
PSOIOS	PRINT+5~
PSOLAP	PRINT+13~*, PRINT+14~, PRINT+26, PRINT+32, PRINT+36, PRINT+45
PSOLAST	COM+6~, COM+79, COM+87, COM+91, PTC+47, PTC+56, PTC+60
PSOLTEST	PRINT+6~
PSOPAR	PRINT+5~, PRINT+20*
PSOPC	COM+6~, PTC+13, PTC+14, PTC+16, PTC+19, PTC+22, PTC+23, PTC+24
PSOPFLAG	COM+7~, COM+24*, COM+25
PSOPIOST	PRINT+6~
PSOPLAN	SEND+8~, SEND+32*, SEND+38
PSOQUIT	PRINT+6~, PRINT+25
PSOREL	FILL+1~, FILL+4, FILL+5, FILL+6*, FILL+7
PSORTYPE	SEND+8~, SEND+33*, SEND+38
PSORX	PRINT+47, PRINT+49!*
PSORXT	PRINT+6~, PRINT+47!*, PRINT+49
PSOSITE	PRINT+5~, PRINT+20, SEND+54~, SEND+55
PSOSTATUS	COM+7~, PTC+19*, PTC+20
>> PSOSTFLT	SEND+68
PSOSTR	COM+7~, PTC+25*, PTC+27
PSOSYS	PRINT+5~, PRINT+21*
PSOTEMP	COM+7~, COM+14
PSOTEMP(	COM+17, COM+19, COM+24, COM+26, COM+27
PSOTLBL	PRINT+6~, PRINT+13*
PSOTR	COMMENT~, COMMENT+2*, COMMENT+5
PSOTRIC	FILL+2, FILL+4, FILL+19, FILL+20, FILLTR2+18, SEND+61~, SEND+62
PSOUSER	COM+7~, COM+27, COM+28, COM+30, COM+43, COM+45, PTC+23, PTC+25
PSOX	COM+7~, COM+18, COM+19, COM+24, COM+26, COM+27, COM+40, COM+41, COM+42, COM+43 , COM+44, COM+46, COM+63, COM+64, COM+71, COM+87
PSOY	COM+7~, COM+29, COM+30, COM+31, COM+32, COM+33, COM+47, COM+48, COM+49, COM+80 , COM+81, COM+87, COM+91, PTC+48*, PTC+49, PTC+56, PTC+60
PSQ	COMMENT+1~, COMMENT+7, COMMENT+8, COMMENT+10, COMMENT+11, COMMENT+14, COMMENT+16, COMMENT+17, COMMENT+18
PSQSTR	YESNO~, YESNO+3, FILLTR+2~, FILLTR2+6*, FILLTR2+7
PSREC	SAVECOM+1~, SAVECOM+5*, SAVECOM+6, SAVECOM+7, SAVECOM+8
PSREJIEN	SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8
PSRXIEN	SAVECOM~, SAVECOM+4, SAVECOM+5, SAVECOM+7, SAVECOM+8
PSSFILE	INSITEM~, INSITEM+3
PSSSI	INSITEM+1~
PSVAL01	INSITEM~, INSITEM+3
REJ	COM+41, COM+42, COM+43, COM+44, COM+46, ADDCOM+20, RXINFO~, FILL+15, PSOCOB~, PSOCOB+2 , PSOCOB+3, PSOCOB+4, SEND+30
REJLBL	PRINT+7~, PRINT+17*
REPRINT	PRINT+7~, PRINT+17*
RESP	SEND+8~, SEND+38, SEND+40, SEND+42, SEND+43
RFL	PRINT~, PRINT+2, PRINT+17, PRINT+20, PRINT+22, TCOM~, TCOM+2
RX	COM+14, COM+41, COM+42, COM+43, COM+44, COM+46, PTC+5, ADDCOM+20, ADDCOM+24, PRINT~ , PRINT+1, PRINT+17, PRINT+20, PRINT+21, PRINT+22, RXINFO~, RXINFO+3, RXINFO+4, RXINFO+5, RXINFO+6 , RXINFO+9, RXINFO+10, RXINFO+11, FILL+2, FILL+5, FILL+6, FILL+12, FILL+15, FILL+19, FILL+20 , FILL+23, FILL+25, FILL+27, FILL+29, FILL+30, PSOCOB~, PSOCOB+2, DC+3, FILLTR2+14, FILLTR2+17 , FILLTR2+18, TCOM~, TCOM+2, PSOET~, PSOET+4, PSOET+8, SEND+30, SEND+31, SEND+36, SEND+38 , SEND+54, SEND+60, SEND+61, SEND+62, SEND+63
RXDOS	RXINFO+3~, RXINFO+7
RXFL	PRINT+7~
RXFL(	PRINT+22*
RXINFO	RXINFO+1~, RXINFO+4, RXINFO+6, RXINFO+7, RXINFO+10, RXINFO+11*, RXINFO+12
SMA	SEND+8~, SEND+16*, SEND+18
TRIREJCD	PSOET+5~, PSOET+7*, PSOET+8
TXT	RXINFO+1~
U	COM+24, COM+26, COM+27
USER	SAVECOM~, SAVECOM+3*, SAVECOM+7
>> VALMBCK	ADDCOM+9, ADDCOM+12, ADDCOM+27, FILL+7, FILL+13, FILL+16, FILL+19, FILL+20, DC+4, FILLTR2+3* , FILLTR2+8, FILLTR2+11, SEND+15*
>> VALMSG	FILL+7, FILL+13, FILL+16, FILL+19, FILL+20, DC+4, FILLTR2+3, FILLTR2+8*
VAR	PRINT+8~, PRINT+37*
X	COM+7~, COM+71, PTC+42, PRINT+7~, TCOM+1~, TCOM+3, PSOET+5~, PSOET+6, PSOET+8, PSOET+9 , SEND+9~, SEND+42, SEND+43
XXX	SEND+64~, SEND+67
Y	ADDCOM+10, COMMENT+11, COMMENT+13, COMMENT+15, COMMENT+19, YESNO+1~, YESNO+6, PRINT+7~, SEND+15
Z	COM+69~, PTC+40~
ZTDESC	PRINT+8~, PRINT+39*
ZTDTH	PRINT+8~, PRINT+36*
ZTIO	PRINT+8~, PRINT+36*
ZTRTN	PRINT+8~, PRINT+36*
ZTSAVE	PRINT+8~
ZTSAVE(	PRINT+37*
ZTSAVE("PCOMH("	PRINT+38*
ZTSAVE("PSORX("	PRINT+38*
ZTSAVE("RXFL("	PRINT+38*
ZTSAVE("RXPR("	PRINT+38*
ZTSAVE("RXRP("	PRINT+38*
ZTSAVE("RXRS("	PRINT+38*
ZTSK	PRINT+8~, PRINT+41

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJP3

Information

Source Information

Call Graph

Call Graph Total: 31

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 30

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items