Routine: PSORN52

Package	Total	Call Graph
Outpatient Pharmacy	14	TRI^PSOBBC ECMESND^PSOBPSU1 $$SUBMIT^PSOBPSUT COPAY^PSOCPB (SC,SHAD)^PSOMLLD2 ($$DT,CV,HNC,MST,PGW,RAD,VEH)^PSOMLLDT INIT^PSON52 $$HDLG^PSOREJU1 $$FIND^PSOREJUT (FILE,IBHLD,KILLOCM)^PSORN52A BBRX^PSORN52C (FILE2,GET,SCP)^PSORN52D (Q,SUS)^PSORXL ACP^PSOUTIL
VA Fileman	3	FILE^DICN IX^DIK $$GET1^DIQ
Pharmacy Data Management	2	PSOUL^PSSLOCK $$NDCFMT^PSSNDCUT
Kernel	1	(T0,T1)^%ZOSV

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSONEW2 PSOORNE4 PSORENW0 PSORENW4
IHS Changes To Pharmacy	2	APSPEC04 APSPPCC

Entry Points

Name	Comments	DBIA/ICR reference
FINISH	;
END
MESS	;
EOJ	;
FINISHX	;
START	;
INIT
FINISHP
KILLOCM(DA)	;PEP - See above two lines for description
EN(PSOX)	;EP

External References

Name	Field # of Occurrence
T0^%ZOSV	START+1
T1^%ZOSV	START+22
FILE^DICN	FINISH+4
IX^DIK	FINISH+6
$$GET1^DIQ	INIT+3
TRI^PSOBBC	FINISH+20
ECMESND^PSOBPSU1	FINISH+15
$$SUBMIT^PSOBPSUT	FINISH+14
COPAY^PSOCPB	START+39
SC^PSOMLLD2	START+41
SHAD^PSOMLLD2	START+47
$$DT^PSOMLLDT	START+4, START+18, START+28, START+42
CV^PSOMLLDT	START+43
HNC^PSOMLLDT	START+49
MST^PSOMLLDT	START+48
PGW^PSOMLLDT	START+46
RAD^PSOMLLDT	START+45
VEH^PSOMLLDT	START+44
INIT^PSON52	INIT+4
$$HDLG^PSOREJU1	FINISH+17
$$FIND^PSOREJUT	FINISH+16
FILE^PSORN52A	START+21
IBHLD^PSORN52A	START+20
KILLOCM^PSORN52A	KILLOCM+2
BBRX^PSORN52C	FINISHX+3
FILE2^PSORN52D	START+59
GET^PSORN52D	START+12, START+37
SCP^PSORN52D	START+11
Q^PSORXL	FINISH+20
SUS^PSORXL	FINISH+8, FINISH+10
ACP^PSOUTIL	START+53
PSOUL^PSSLOCK	EOJ+2
$$NDCFMT^PSSNDCUT	INIT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(52.4 - [#52.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.4 - [#52.4]	FINISH+5*
^PS(52.41 - [#52.41]	START+3, START+5, START+12
^PS(53 - [#53]	START+39, START+41, START+57
^PSRX - [#52]	START+15, START+17, START+39, START+41, START+51, START+57
^PSRX("B"	EOJ+1

Label References

Name	Line Occurrences
END	START+21
EOJ	END
FINISH	START+53
FINISHP	FINISH+1
FINISHX	FINISH+2, FINISH+8, FINISH+10, FINISH+19, FINISHP
INIT	START+21
MESS	START+43, START+44, START+45, START+46, START+47, START+48, START+49

Naked Globals

Name	Field # of Occurrence
^(0	START+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	FINISH+13~, FINISH+14, FINISH+15, FINISH+17
>> BBFLG	FINISHX+3*
>> BINGCRT	FINISHX+3*
>> BINGRTE	FINISHX+3*
DA	FINISH+6!, FINISH+8!, FINISH+10*!, KILLOCM~, KILLOCM+2
DD	FINISH+3!, FINISH+4!
DIADD	FINISH+3!
DIC	FINISH+3!*, FINISH+4!
DIC(0	FINISH+3*
DIK	FINISH+6!*
DINUM	FINISH+3!*, FINISH+4!
DLAYGO	FINISH+3!*, FINISH+4!
DO	FINISH+3!, FINISH+4!
DT	INIT+1, FINISH+10
DUZ	FINISH+5
DUZ("AG"	START+39
FILE	START+12, START+37, EOJ+1!
OLENT	EOJ+1!
>> ORD	START+2, START+3, START+5, START+12
PPL	FINISH+20!, FINISH+22, FINISH+23
PSOANSQ	START+23!, START+62!
PSOANSQ(	START+29, START+30, START+31, START+32, START+33, START+34, START+35*, START+43, START+44, START+45 , START+46, START+47, START+48, START+49, START+55, START+56
PSOANSQ("SC"	START+27*, START+55
PSOANSQ("SC>50"	START+11*
PSOANSQD	START+23!
>> PSOBARCD	FINISH+8, FINISH+19
>> PSOBILL	START+41
>> PSODFN	START+43, START+44, START+45, START+46, START+47, START+48, START+49
>> PSODRUG("DEA"	MESS+1
>> PSOFDR	START+2, START+12, START+37
>> PSOFLAG	START+39, START+41
PSOFROM	FINISH+20~*
PSOIBHLD	START+2~, START+3, START+6, START+7, START+8, START+16, START+17, START+24, START+27, START+29 , START+30, START+31, START+32, START+33, START+34, START+35, START+36!, EOJ+1!
PSOIBHLX	START+5~*, START+6, START+7, START+8, START+9
>> PSOIBQS(	START+43, START+44, START+45, START+46, START+47, START+48, START+49
PSOLDIBQ	START+15~*, START+19
PSON52	INIT+4!
>> PSONEW("ENT"	EOJ+1!
>> PSONEW("NEWCOPAY"	START+38*, START+43!, START+44!, START+45!, START+46!, START+47!, START+48!, START+49!, START+51, START+62!
PSONEWFF	START+23!
>> PSOPAR	FINISH+10
>> PSORENW("INS"	EOJ+1!
>> PSORENW("NRX0"	FINISHX+2
>> PSORENW("OIRXN"	START+14, START+15, START+17, START+37
>> PSORENW("SINS"	EOJ+1!
PSORN52	EOJ+1!
PSORN52("QFLG"	START+21, INIT*
>> PSORX("MAIL/WINDOW"	FINISHX+2*, FINISHX+3
>> PSORX("PSOL"	FINISHP, FINISHP+1, FINISHP+2, FINISHP+3*
>> PSORX("SC"	START+10, MESS+1
>> PSORX("VERIFY"	FINISH+2
>> PSORXED("ENT"	EOJ+1!
>> PSORXED("INS"	EOJ+1!
>> PSORXED("SINS"	EOJ+1!
>> PSOSCA	START+41
PSOSCFLD	START+55~, START+56, START+57!
PSOSCOTH	START+2~, START+9, START+10, START+50!, MESS+1
PSOSCOTX	START+2~, START+10, START+50!, MESS+1*
>> PSOSCP	START+39, START+41, START+55, START+57, MESS+1
PSOX	EN~
PSOX("# OF RE	FILLS" , INIT+1*
PSOX("DAYS SU	PPLY" , INIT*
PSOX("DRUG IE	N" , INIT+3
PSOX("FILL DA	TE" , FINISH+10, FINISH+15
PSOX("INS"	EOJ+1!
PSOX("IRXN"	START+26, START+29, START+30, START+31, START+32, START+33, START+34, START+35, START+39, START+41 , START+43, START+44, START+45, START+46, START+47, START+48, START+49, START+51, START+55, START+56 , START+57, FINISH+3, FINISH+4, FINISH+5, FINISH+6, FINISH+8, FINISH+10, FINISH+14, FINISH+15, FINISH+16 , FINISH+17, FINISH+20, FINISH+21, FINISH+22, FINISH+23, FINISHP, FINISHP+2, FINISHP+3, FINISHP+4, EOJ+1 , EOJ+2
PSOX("ISSUE D	ATE" , INIT+1*
PSOX("LOGIN D	ATE" , FINISH+5
PSOX("NDC"	INIT+3*
PSOX("NRX0"	FINISH+5
PSOX("OIRXN"	FINISH+5, EOJ+2
PSOX("QS"	FINISH+8, FINISH+19
PSOX("RX0"	INIT, INIT+1
PSOX("SINS"	EOJ+1!
PSOX("STATUS"	FINISH+1
PSOX("STOP DA	TE" , FINISH+5
PSOX1	FINISHP+1*, FINISHX+4!
PSOX2	FINISHP+1*, FINISHP+2, FINISHP+3, FINISHX+4!
RXFL	FINISH+20!
RXFL(	FINISH+8, FINISH+10, FINISH+21, FINISHP, FINISHP+4*
X	FINISH+3!, FINISH+4*!
>> XRT0	START+22
>> XRTL	START+1
>> XRTN	START+22*

Marked Items

Name	Field # of Occurrence
$T(	START+22

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORN52

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items