Routine: APSPDIR

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
VA Fileman	7	C^%DTC MSG^DIALOG ^DIC ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
IHS Changes To Pharmacy	5	(AWP,BST,CASHDUE,CM,COST,DSCMED,EXPDATE,MANUF,NDC,TRIP)^APSPDIR $$NDCVAL^APSPFUNC $$DIRYNR^APSPUTIL $$OVERRIDE^APSQBRES ($$AWP,$$COST)^APSQDAWP
Outpatient Pharmacy	2	(DIR,DIRS,JUMP)^PSODIR1 DIR^PSODIR2
Kernel	1	$$FMTE^XLFDT
Scheduling	1	$$INP^SDAM2

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSONEW1 PSONEW3 PSOOREDT PSOORNE1 PSOORNE4 PSOORNEW PSOREF1 PSORENW3
IHS Changes To Pharmacy	2	APSPDIR APSPRIS

Package

Total

Caller Graph

Outpatient Pharmacy

PSONEW1 PSONEW3 PSOOREDT PSOORNE1 PSOORNE4 PSOORNEW PSOREF1 PSORENW3

IHS Changes To Pharmacy

APSPDIR APSPRIS

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	FILLDT+10
AWP^APSPDIR	3+1
BST^APSPDIR	9+1
CASHDUE^APSPDIR	12+1
CM^APSPDIR	8+1
COST^APSPDIR	4+1
DSCMED^APSPDIR	11+1
EXPDATE^APSPDIR	6+1
MANUF^APSPDIR	5+1
NDC^APSPDIR	2+1
TRIP^APSPDIR	1+1
$$NDCVAL^APSPFUNC	AWP+10, COST+7
$$DIRYNR^APSPUTIL	DSCMED+32
$$OVERRIDE^APSQBRES	INSURER+13
$$AWP^APSQDAWP	AWP+12
$$COST^APSQDAWP	COST+10
MSG^DIALOG	AWP+16, COST+11
^DIC	MANUF+7, PTSTATEN+4
^DIE	MANUF+15, LOT+12, EXPDATE+16, EDIHSFLD+4
$$EXTERNAL^DILFD	BST+7, CM+5, SUBS+5, CASHDUE+3, DSCMED+9
$$GET1^DIQ	BST+4, AWP+7, AWP+11, COST+4, COST+8, DSCMED+1
^DIR	INSURER+6
DIR^PSODIR1	BST+8, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, TRIP+5, SUBS+6 , CASHDUE+4, DSCMED+17
DIRS^PSODIR1	MANUF+8
JUMP^PSODIR1	INSURER+7, PTSTATEN+5
DIR^PSODIR2	FILLDT+16
$$INP^SDAM2	DSCMED+9
$$FMTE^XLFDT	EXPDATE+7, EXPDATE+9, FILLDT+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," Required" Line Location: PTSTATEN+7
Function Call: WRITE	Prompt: !! Line Location: IHSFLDS+2
Routine Call	DIE Line Location: MANUF+15 LOT+12 EXPDATE+16 EDIHSFLD+4
Routine Call	DIC Line Location: MANUF+7 PTSTATEN+4
Routine Call	DIALOG Line Location: AWP+16 COST+11
Routine Call	DIR Line Location: INSURER+6

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls, GET1^DIQ
^PSRX - [#52]	EXTERNAL^DILFD, GET1^DIQ
^APSPCTRL - [#9009033]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	FILLDT+10, FILLDT+12
^PS(53 - [#53]	FILLDT+9

Label References

Name	Line Occurrences
$$TRPDCLS	TRIP+1
AWPX	AWP+18
BSTX	BST+8
CASHDUEX	CASHDUE+4
CMX	CM+6
DSCMEDX	DSCMED+17
END	1, 2, 3, 4, 5, 6, 8, 9, 11, 12
EXPDATEX	EXPDATE+10
FILLDTX	FILLDT+16
HOLDERX	HOLDER+4
INSURERX	INSURER+8
LOTX	LOT+6
MANUFX	MANUF+8
NCOST	COST+12
NDCX	NDC+6
PTSTATEN	PTSTATEN+7
PTSTATX	PTSTATEN+5, PTSTATEN+6
SUBSX	SUBS+6
TRIPX	TRIP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FILLDT+8~, FILLDT+9
>> APSEDT	FILLDT+17*
>> APSEFDT	FILLDT+17*
>> APSP("CM"	CM+7*
>> APSPCMP	CM+5
>> APSQDUR	INSURER+14
B	BST+1~, BST+4*, BST+5
CFRM	DSCMED+2~, DSCMED+5*, DSCMED+32
CFRM(1	DSCMED+3*
CFRM(2	DSCMED+4*
DA	MANUF+2~, MANUF+13, LOT+2~, LOT+10, EXPDATE+2~, EXPDATE+14*, NDC+1~, AWP+1~, COST+1~, CM+1~ , TRIP+2~, PTSTATX!, SUBS+1~, CASHDUE+1~, DSCMED+2~, EDIHSFLD~
DCLS	TRPDCLS~, TRPDCLS+1
DIC	BST+1~, MANUF+2~, MANUF+3, LOT+2~, EXPDATE+2~, NDC+1~, AWP+1~, COST+1~, HOLDER+1~, CM+1~ , INSURER+3~, TRIP+2~, FILLDT+1~, PTSTATEN~, PTSTATEN+4!, SUBS+1~, CASHDUE+1~, DSCMED+2~
DIC("A"	MANUF+4, PTSTATEN+3
DIC("B"	MANUF+5, MANUF+6, PTSTATEN+1, PTSTATEN+2
DIC(0	MANUF+3, PTSTATEN+4
DIE	MANUF+2~, MANUF+12, LOT+2~, LOT+9, EXPDATE+2~, EXPDATE+13, PTSTATEN~, EDIHSFLD+3
DIR	BST+1~, MANUF+2~, LOT+2~, EXPDATE+2~, NDC+1~, AWP+1~, COST+1~, HOLDER+1~, CM+1~, INSURER+3~ , TRIP+2~, FILLDT+1~, SUBS+1~, CASHDUE+1~, DSCMED+2~
DIR("?"	FILLDT+13, FILLDT+14, FILLDT+15, DSCMED+10, DSCMED+11, DSCMED+12, DSCMED+13, DSCMED+14, DSCMED+15*
DIR("A"	EXPDATE+4, NDC+3, AWP+3, COST+3, HOLDER+3, INSURER+4, FILLDT+3, DSCMED+8
DIR("B"	BST+3, BST+5, BST+6, BST+7, LOT+4, LOT+5, EXPDATE+7, EXPDATE+9, NDC+4, NDC+5 , AWP+12, AWP+17, COST+10, CM+5, INSURER+5, TRIP+4, FILLDT+3, FILLDT+10, SUBS+5, CASHDUE+3 , DSCMED+9*, DSCMED+16
DIR(0	BST+2, LOT+3, EXPDATE+3, NDC+2, AWP+2, COST+2, HOLDER+2, CM+2, INSURER+4, TRIP+3 , FILLDT+11, SUBS+2, CASHDUE+2, DSCMED+7
DR	MANUF+2~, MANUF+14, LOT+2~, LOT+11, EXPDATE+2~, EXPDATE+15, PTSTATEN~, EDIHSFLD+3
DT	EXPDATE+6, FILLDT+5, FILLDT+10, FILLDT+11, DSCMED+9
DTOUT	INSURER+8, PTSTATEN+6, PTSTATX!
DUOUT	INSURER+8, PTSTATEN+6, PTSTATX!
DUZ("AG"	FILLDT+11
DVAL	DSCMED+2~, DSCMED+16*, DSCMED+18, DSCMED+20, DSCMED+22, DSCMED+24
GLOBAL	EDIHSFLD~, EDIHSFLD+3
IT	EDIHSFLD~, EDIHSFLD+3
NDC	AWP+1~, AWP+8, AWP+9, AWP+10, AWP+11, AWP+12, COST+1~, COST+5, COST+6, COST+7* , COST+8*, COST+10
OVAL	DSCMED+2~, DSCMED+6*
PARAM	TRPDCLS~, TRPDCLS+1
>> PSOBILST	BST+3
>> PSODFN	DSCMED+9
PSODIR	BST~, MANUF~, LOT~, EXPDATE~, NDC~, AWP~, COST~, HOLDER~, CM~, INSURER~ , TRIP~, FILLDT~, PTSTAT~, SUBS~, CASHDUE~, DSCMED~
PSODIR("AWP"	AWP+17, AWP+19*
PSODIR("BST"	BST+6, BST+9*
PSODIR("CASH	DUE" , CASHDUE+3, CASHDUE+5*
PSODIR("CM"	CM+5, CM+7*
PSODIR("COST"	COST+13*
PSODIR("CS"	FILLDT+6
PSODIR("DAW"	SUBS+5, SUBS+7*
PSODIR("DFLG"	BST+8, MANUF+8, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, INSURER+8* , TRIP+5, FILLDT+16, PTSTATEN+6*, SUBS+6, CASHDUE+4, DSCMED+17
PSODIR("DSCMED"	DSCMED+6, DSCMED+9, DSCMED+19, DSCMED+21, DSCMED+23, DSCMED+25, DSCMED+33*
PSODIR("DUR"	INSURER+13, INSURER+14*
PSODIR("EXPIR	ATION DATE" , EXPDATE+8, EXPDATE+9, EXPDATE+11, EXPDATE+17
PSODIR("FIELD"	BST+8, MANUF+8, LOT+6, EXPDATE+10, NDC+6, AWP+18, COST+12, HOLDER+4, CM+6, INSURER+9 , TRIP+5, FILLDT+16, PTSTATEN*, SUBS+6, CASHDUE+4, DSCMED+17
PSODIR("FILL	DATE" , FILLDT+18*
PSODIR("HOLDER"	HOLDER+5*
PSODIR("INSURER"	INSURER+13*
PSODIR("IRXN"	BST+4, AWP+7, AWP+10, COST+4, COST+7
PSODIR("ISSUE	DATE" , FILLDT+11
PSODIR("LOT #	" , LOT+5, LOT+7*
PSODIR("MANUFACTURER"	MANUF+6, MANUF+10*
PSODIR("MANUFACTURERIEN"	MANUF+11*
PSODIR("NDC"	NDC+5, NDC+7*, AWP+8, COST+5
PSODIR("PATIE	NT STATUS" , PTSTATEN+2, PTSTATEN+8*
PSODIR("PTST	NODE" , PTSTATEN+9*
PSODIR("TRIP"	TRIP+4, TRIP+6*, TRIP+7!
>> PSODRUG("DAW"	SUBS+5
>> PSODRUG("DEA"	TRIP+1
>> PSODRUG("EXPI	RATION DATE" , EXPDATE+5, EXPDATE+6, EXPDATE+7
>> PSODRUG("IEN"	MANUF+1, MANUF+13, LOT+1, LOT+10, EXPDATE+1, EXPDATE+14, AWP+7, AWP+11, AWP+12, COST+4 , COST+8, COST+10
>> PSODRUG("LOT	#" , LOT+4
>> PSODRUG("MANUFACTURER"	MANUF+5
>> PSODRUG("NDC"	NDC+4
>> PSOFDMX	FILLDT+10*, FILLDT+11, FILLDT+12
>> PSOID	FILLDT+5, FILLDT+10, FILLDT+11
PSONEW	IHSFLDS~, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 8+1, 9+1, 11+1 , 12+1
PSONEW("# OF	REFILLS" , FILLDT+2*, FILLDT+4
PSONEW("AWP"	2+2!, 3+2
PSONEW("BST"	9+2
PSONEW("CASH	DUE" , 12+2
PSONEW("CM"	8+2
PSONEW("COST"	2+2!, 4+2
PSONEW("DAYS	SUPPLY" , FILLDT+2*, FILLDT+4, FILLDT+6
PSONEW("DFLG"	1, 2, 3, 4, 5, 6, 8, 9, 11, 12
PSONEW("DSCMED"	11+2
PSONEW("EXPIR	ATION DATE" , 6+2
PSONEW("FLD"	1+1, 1+2, 2+1, 2+3, 3+1, 3+2, 4+1, 4+2, 5+1, 5+2 , 6+1, 6+2, 8+1, 8+2, 9+1, 9+2, 11+1, 11+2, 12+1, 12+2
PSONEW("MANUFACTURER"	5+2
PSONEW("NDC"	2+3
PSONEW("TRIP"	1+2
>> PSORX("FILL D	ATE" , FILLDT+3, FILLDT+19*
>> PSORX("ISSUE	DATE" , FILLDT+10
>> PSORX("PATIEN	T STATUS" , FILLDT+8, PTSTATEN+1, PTSTATEN+8*
>> PSORX("PTST N	ODE" , PTSTATEN+9*
>> PSOSITE	DSCMED+1
>> PSOTRIP	TRIP+1
SETFLD	IHSFLDS~, IHSFLDS+1*, 1+2, 2+3, 3+2, 4+2, 5+2, 6+2, 8+2, 9+2 , 11+2, 12+2
>> TALK	AWP+12, COST+10
U	MANUF+10, INSURER+7, PTSTATEN+5
X	BST+1~, INSURER+7, TRIP+3*, TRIP+6, FILLDT+10, PTSTATEN+5
>> X1	FILLDT+5*
>> X2	FILLDT+4, FILLDT+6, FILLDT+7, FILLDT+8, FILLDT+9
Y	BST+1~, BST+9, MANUF+2~, MANUF+9, MANUF+10, MANUF+11, LOT+2~, LOT+7, LOT+8, EXPDATE+2~ , EXPDATE+11, EXPDATE+12, NDC+1~, NDC+7, AWP+1~, AWP+19, COST+1~, COST+13, HOLDER+1~, HOLDER+5 , CM+1~, CM+7, INSURER+3~, INSURER+9, TRIP+2~, FILLDT+1~, FILLDT+10, FILLDT+12, FILLDT+15, FILLDT+17 , FILLDT+18, FILLDT+19, PTSTATEN~, PTSTATEN+7, PTSTATEN+8, PTSTATX!, SUBS+1~, SUBS+7, CASHDUE+1~, CASHDUE+5 , DSCMED+2~, DSCMED+18, DSCMED+19, DSCMED+20, DSCMED+21, DSCMED+22, DSCMED+23, DSCMED+24, DSCMED+25, DSCMED+33
Y(0	PTSTATEN+9

Name	Comments	DBIA/ICR reference
EXPDATE(PSODIR)	; EP - Prompt and stuff Expiration Date
SUBS(PSODIR)	; EP - Substitution Enter/Edit
EXPDATEX
DSCMED(PSODIR)	; EP - Discharge Medication Enter/Edit
HOLDERX
DSCMEDX
TRIPX
CMX
IHSFLDS(PSONEW,SETFLD)	;EP
BSTX
CASHDUE(PSODIR)	; EP - Cash Due Enter/Edit
HOLDER(PSODIR)	; EP - Prompt for holder
LOTX
NDC(PSODIR)	; EP - Prompt for NDC value
PTSTATX
PTSTATEN
1
MANUFX
3
COST(PSODIR)	; EP - Prompt for Unit Price of Drug
5
SUBSX
7	;S PSONEW("FLD")=7 D INSURER^APSPDIR(.PSONEW)
6
9
8
NCOST
FILLDT(PSODIR)	; EP - Prompt for Fill Date
4
PTSTAT(PSODIR)	;
LOT(PSODIR)	; EP - Collect and stuff Lot Number
END
CM(PSODIR)	; EP - Chronic Med Enter/Edit
NDCX
EDIHSFLD(DA,IT,GLOBAL)	;EP
AWPX
2
FILLDTX
AWP(PSODIR)	; EP - Prompt for AWP value
11
10	;D G:PSONEW("DFLG") END
12
CASHDUEX
TRPDCLS(PARAM,DCLS)	;EP
INSURERX
TRIP(PSODIR)	; EP - Prompt for Triplicate Number for Schedule II drugs
MANUF(PSODIR)	; EP - Select and stuff manufacturer
BST(PSODIR)	; EP - Bill Status
INSURER(PSODIR)	; EP - Prompt for insurer info

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPDIR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: