Routine: PSORXED1

Package	Total	Call Graph
Outpatient Pharmacy	6	$$LSTRFL^PSOBPSU1 SUS^PSOCMOPB EN1^PSONEW2 $$TRIC^PSOREJP1 $$FIND^PSOREJUT (ASKL,FILL,SETRP)^PSORXED
VA Fileman	5	NOW^%DTC FILE^DICN ^DIE ^DIK $$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSORXED

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	SUP+6
FILE^DICN	SUP+3
^DIE	DIE+19
^DIK	SUP+1
$$GET1^DIQ	APCOM+18
$$LSTRFL^PSOBPSU1	PSORXED1+19
SUS^PSOCMOPB	SUP
EN1^PSONEW2	APCOM+21
$$TRIC^PSOREJP1	PSORXED1+20
$$FIND^PSOREJUT	PSORXED1+19
ASKL^PSORXED	SKPTRIC+5
FILL^PSORXED	SKPTRIC+3
SETRP^PSORXED	SKPTRIC+6, SKPTRIC+9, SKPTRIC+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"RX# "_$P(RX0,"^")_" has been Suspended until "_$E(SD,4,5)_"-"_$E(SD,6,7)_"-"_$E(SD,2,3)_".",! Line Location: SUP+7
Function Call: WRITE	Prompt: !,"Now Editing Rx # ",$P(PSORXED("RX0"),"^") Line Location: DIE+0
Routine Call	DIE Line Location: DIE+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(52	APCOM+5, APCOM+6, APCOM+7
^DD(52.1	PSORXED1+13, PSORXED1+16, APCOM+12, APCOM+13, APCOM+14, APCOM+16
^PS(52.5 - [#52.5]	SUS+2, SUP, SUP+3*
^PSDRUG - [#50]	SKPTRIC+1*
^PSRX - [#52]	PSORXED1+7, PSORXED1+8, PSORXED1+12, PSORXED1+15, PSORXED1+24, PSORXED1+25, PSORXED1+26, SKPTRIC+1, SKPTRIC+5, SKPTRIC+6 , SUS+2, SUS+4, SUS+5, SUP+1, SUP+3, SUP+4, SUP+5, SUP+6*, DIE+7, DIE+8 , DIE+14, DIE+15, DIE+19, DIE+20, APCOM+4, APCOM+8, APCOM+10, APCOM+15, APCOM+19, APCOM+20
^VA(200 - [#200]	DIE+20

Label References

Name	Line Occurrences
DIE	APCOM+22
DIEX	APCOM+21
ELSE	SKPTRIC+8
EX	SKPTRIC+2, SUS+3
SKPTRIC	PSORXED1+22
SUP	SUS+4, SUS+5
SUS	PSORXED1+8, PSORXED1+21, PSORXED1+22, SKPTRIC+4, SKPTRIC+6

Naked Globals

Name	Field # of Occurrence
^(0	PSORXED1+25*, SUS+4
^(2	SUS+5
^(660.1	SKPTRIC+1
^(9999999	PSORXED1+7, APCOM+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EX!, SUP+6
%Y	EX!
>> APSP44("EXP D	ATE" , APCOM+10, APCOM+11, APCOM+12, APCOM+15, APCOM+16
>> APSP44("LOT #	" , APCOM+10*, APCOM+11, APCOM+14
>> APSP44("MFG"	APCOM+10*, APCOM+11, APCOM+13
>> APSP91	APCOM+4, APCOM+8
>> APSP92	APCOM+10, APCOM+15
>> APSPCP	APCOM+18
>> APSPMAN	DIE+9, DIE+10, DIE+11, DIE+12, APCOM+2, APCOM+4, APCOM+8, APCOM+10, APCOM+15
APSQCOMR	PSORXED1+18!
>> APSREFD	DIE+7, DIE+8
>> APSREFF	DIE+7*, DIE+8
COM	EX!, APCOM+1, APCOM+5, APCOM+6, APCOM+7, APCOM+12, APCOM+13, APCOM+14, APCOM+16
COM1	PSORXED1+12, PSORXED1+13, PSORXED1+16, PSORXED1+18, PSORXED1+21!, PSORXED1+22!, PSORXED1+26, ELSE+1!, EX!
COPIES	EX!
D0	EX!
D1	PSORXED1+24, PSORXED1+25, PSORXED1+26, EX!
DA	PSORXED1+7, PSORXED1+8, PSORXED1+12, PSORXED1+15, PSORXED1+19, PSORXED1+20, PSORXED1+24, PSORXED1+25, PSORXED1+26, SKPTRIC+1 , SKPTRIC+5, SKPTRIC+6, ELSE, SUS+2, SUS+4, SUS+5, EX!, SUP+1, SUP+3, SUP+4 , SUP+5, SUP+6, DIE!*, DIE+19!
DD	SUP+3!
DIC	EX+1!, SUP+2*, DIE!
DIC("DR"	SUP+3*
DIC(0	SUP+2*
DIE	EX+1!, DIE!*, DIE+19!
DIG	EX+1!
DIK	EX!, SUP+1*
>> DLAYGO	SUP+2*
DO	SUP+3!
DQ	EX+1!
DR	EX+1!, DIE!, DIE+3, DIE+5, DIE+11, DIE+12, DIE+13, DIE+16, DIE+19!
DR(2	DIE+4, DIE+6, DIE+9, DIE+10, DIE+17*
DRUG	EX+1!
DT	PSORXED1+26
DUZ	PSORXED1+26, SUP+6
FDA	EX!, SUP+4*
I	PSORXED1+12, PSORXED1+13, EX+1!, DIE+7
II	EX+1!
IOP	EX!
IR	EX!, SUP+4, SUP+5, SUP+6
J	EX!
K	PSORXED1+24*, PSORXED1+25, EX!
N	EX+1!
PHYS	EX+1!
PS	EX+1!
>> PSI	PSORXED1+13*
>> PSOBRIEN	DIE+15*
>> PSOBXIEN	DIE+14*
PSOECMES	PSORXED1+19~*, PSORXED1+22, SKPTRIC+4
PSOEDITF	SKPTRIC+3, SUS+1!
PSOEDITL	SKPTRIC+3, SKPTRIC+4, SKPTRIC+5, SKPTRIC+6, SUS+1!
PSOEDITR	SKPTRIC+3, SUS+1!
PSOERFL	PSORXED1+19~*, PSORXED1+20
>> PSONEW("EXPIR	ATION DATE" , APCOM+2, APCOM+4, APCOM+5, APCOM+8, APCOM+11, APCOM+15*
>> PSONEW("LOT #	" , APCOM+2, APCOM+4, APCOM+7, APCOM+11*
>> PSONEW("MANUFACTURER"	APCOM+2, APCOM+4, APCOM+6, APCOM+11*
>> PSONEW("PROVI	DER NAME" , DIE+20*
>> PSOPAR	DIE+3
>> PSORX("PSOL"	SKPTRIC+6, SKPTRIC+7, SKPTRIC+8, SKPTRIC+9, SKPTRIC+10*
>> PSORXED	APCOM+21
>> PSORXED("AWP"	APCOM+19, APCOM+20
>> PSORXED("CM"	APCOM+18*
>> PSORXED("DFLG"	APCOM+21
>> PSORXED("IRXN"	SKPTRIC+6, SKPTRIC+8, SKPTRIC+9, SKPTRIC+10, DIE, DIE+7, DIE+8, DIE+14, DIE+15, DIE+19 , DIE+20, APCOM+4, APCOM+8, APCOM+10, APCOM+15, APCOM+18, APCOM+19, APCOM+20
>> PSORXED("NDC"	APCOM+19, APCOM+20
>> PSORXED("QFLG"	APCOM+21, APCOM+22
>> PSORXED("RX0"	DIE
>> PSORXED("RX1"	PSORXED1+8, SUS+4, EX!, DIE+20, APCOM+12, APCOM+13, APCOM+14, APCOM+16
>> PSORXED("RX19999999"	PSORXED1+7*, PSORXED1+15, PSORXED1+16
>> PSORXED("RX2"	SUS+5, APCOM+5, APCOM+6, APCOM+7
>> PSOSIGFL	SKPTRIC+5
PSOSITE	SUS+4~, SUS+5, SUP+3
PSOTRIC	PSORXED1+19~, PSORXED1+20, PSORXED1+21, PSORXED1+22, SKPTRIC+4, SKPTRIC+6
>> PSOX1	SKPTRIC+7*
>> PSOX2	SKPTRIC+7*, SKPTRIC+8, SKPTRIC+9, SKPTRIC+10
PSPOP	EX!
>> PSRX1	PSORXED1+8*, PSORXED1+12, PSORXED1+13
QTY	PSORXED1+8*, SKPTRIC+1, EX+1!
>> RFD	PSORXED1+15, SKPTRIC+2, DIE+3, DIE+9, DIE+10, DIE+11, DIE+12, DIE+13, DIE+15, DIE+16 , DIE+17, DIE+19, DIE+20, APCOM+4, APCOM+8, APCOM+10, APCOM+15, APCOM+20
RFDATE	EX+1!
RFDT	SUS+4, EX!
>> RFED	PSORXED1+8, PSORXED1+12, PSORXED1+26, SKPTRIC+1, SKPTRIC+2, SKPTRIC+3, SKPTRIC+6, ELSE, SUS+4, SUS+5 , SUP+3, SUP+6
RFL	EX+1!
RFL1	EX+1!
RX0	EX!, SUP+1*, SUP+7
RX1	PSORXED1+8*, EX!
RX2	EX!
RXF	EX+1!
>> RXFL(	SKPTRIC+6, ELSE
RXN	EX!, SUP+1*, SUP+2, SUP+4
>> RXRP(	SKPTRIC+5
RXS	SUS+2*, SUS+3, EX!, SUP, SUP+1
SD	SUS+4, SUS+5, EX!, SUP+3, SUP+6, SUP+7
SIG	EX+1!
ST	EX+1!
ST0	EX+1!
U	PSORXED1+15, PSORXED1+16
X	EX+1!, SUP+2*, DIE+19!
Y	EX+1!, SUP+3, DIE+19!
Z	PSORXED1+24*, EX+1!
Z0	EX+1!
Z1	EX+1!
>> ZD	SUS+2*
>> ZD(	PSORXED1+7*
ZDL	PSORXED1+7*, EX+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXED1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DIEX
DIE
APCOM	;
ELSE
SUS	;update suspense file
EX
SUP
SKPTRIC	;