Routine: PSOREF1

Package	Total	Call Graph
Outpatient Pharmacy	3	^PSOBUILD GMRA^PSODEM (CLERK,EXP,FILLDT,MW)^PSODIR2
IHS Changes To Pharmacy	2	(AWP,BST,COST,INSURER,LOT,MANUF,NDC)^APSPDIR ($$AWP,$$COST)^APSQDAWP
VA Fileman	1	^%DT

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOBBC PSODIR PSODIR1 PSOREF PSOREF0 PSORENW0
IHS Changes To Pharmacy	1	APSQFUTI

Entry Points

External References

Name	Field # of Occurrence
^%DT	START+2
AWP^APSPDIR	8+1
BST^APSPDIR	5+1
COST^APSPDIR	9+1
INSURER^APSPDIR	6+1
LOT^APSPDIR	11+1
MANUF^APSPDIR	10+1
NDC^APSPDIR	7+1
$$AWP^APSQDAWP	END+3
$$COST^APSQDAWP	END+4
^PSOBUILD	PROFILE+2
GMRA^PSODEM	PROFILE+3
CLERK^PSODIR2	3
EXP^PSODIR2	4
FILLDT^PSODIR2	1+1
MW^PSODIR2	2+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Cannot jump ahead ..",! Line Location: JUMP+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55.95 - [#55.95]	IHSSET+10
^PSDRUG - [#50]	START+6, IHSSET+2, IHSSET+3, IHSSET+5, IHSSET+6, IHSSET+8
^PSRX - [#52]	START+3, START+6, 1, IHSSET+1

Label References

Name	Line Occurrences
@(	1+2, 2+3, 3+1, 4+1, 5, 6, 7, 8, 9, 10 , 11
END	1+2, 2+3, 3+1, 4+1, 5, 6, 7, 8, 9, 10 , 11
IHSSET	START+9
PROFILEX	PROFILE+3
START	EN+1

Naked Globals

Name	Field # of Occurrence
^(0	1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	START+2*
>> APSPMAN	10, 11, IHSSET+9, IHSSET+12
>> DEA	START+7*
>> DFN	PROFILE+3*
DT	START+4
DUZ("AG"	3, 4
NODE	IHSSET+7~, IHSSET+8*, IHSSET+10, IHSSET+11, IHSSET+12
>> PSOAWP	8
>> PSOBBC1("FROM"	START+4
>> PSOBILST	5, 6, IHSSET+4
>> PSOCOST	9
>> PSODFN	PROFILE+3
>> PSODRG	PROFILE+4*
>> PSODRUG("DEA"	START+6*, START+7
>> PSODRUG("IEN"	END+3, END+4, IHSSET+1*, IHSSET+2, IHSSET+3, IHSSET+5, IHSSET+6, IHSSET+8
>> PSODRUG("NDC"	END+3, END+4, IHSSET+2*
>> PSOID	START+3*
>> PSONDC	7
>> PSONEW("# OF	REFILLS" , 1*
>> PSONEW("DAYS	SUPPLY" , 1*
>> PSONEW("FIELD"	JUMP+3*
PSOREF	1+1, 2+1, 3, 4, 5+1, 6+1, 7+1, 8+1, 9+1, 10+1 , 11+1, EN~
PSOREF("AWP"	7+3!, END+3, IHSSET+3
PSOREF("BST"	IHSSET+4*
PSOREF("COST"	7+4!, END+4, IHSSET+5
PSOREF("CS"	START+6, START+7
PSOREF("DFLG"	START+1*, 1+2, 2+3, 3+1, 4+1, 5, 6, 7, 7+2, 8 , 9, 10, 11, END+3, END+4
PSOREF("EXPIR	ATION DATE" , IHSSET+12*
PSOREF("FIELD"	START+1, 1+2, 2+3, 3+1, 4+1, 5, 6, 7, 8, 9 , 10, 11, JUMP+1, JUMP+4*
PSOREF("FLD"	1+1, 2+1, 3, 4, 5+1, 6+1, 7+1, 8+1, 9+1, 10+1 , 11+1*, JUMP+1, JUMP+4
PSOREF("IRXN"	START+3, START+6, 1, IHSSET+1
PSOREF("ISSUE	DATE" , START+3, START+4
PSOREF("LOT #	" , IHSSET+11*
PSOREF("MANUFACTURER"	IHSSET+10*
PSOREF("NDC"	END+3, END+4, IHSSET+2*
PSOREF1	START+1*, END+1!
>> PSORX("BAR CO	DE" , START+4
>> PSORX("MAIL/WINDOW"	2+1*
>> PSORX("REFILL"	PROFILE+1, PROFILE+4
>> PSORX("RENEW"	PROFILE+1, PROFILE+4
>> PSOSD	PROFILE+3
>> PSOSD(	PROFILE+4
PSOX	PROFILE+1, PROFILE+4, PROFILE+5!
>> TALK	END+3, END+4
U	IHSSET+1, IHSSET+2, IHSSET+3, IHSSET+10, IHSSET+11, IHSSET+12
X	START+2*, START+5!
X1	START+5!
X2	START+5!
>> Y	START+3, JUMP+1, JUMP+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREF1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
11
10
JUMP	;
END	;
PROFILEX
EN(PSOREF)	;
IHSSET	; EP
1
START	;
3
2	;S PSOREF("FLD")=2,PSORX("MAIL/WINDOW")="MAIL" D MW^PSODIR2(.PSOREF)
5
4
7
6
9
8
PROFILE	;