Routine: APSPMULT

Package	Total	Call Graph
VA Fileman	8	^%DT ^DIC (FILE,YN)^DICN FILE^DIE ^DIK N^DIO2 EN1^DIP ^DIR
Toolkit	1	($$GET,PUT)^XPAR
VueCentric Framework	1	($$GETVAR,GETVAR)^CIAVMEVT

Package

Total

Call Graph

VA Fileman

^%DT ^DIC (FILE,YN)^DICN FILE^DIE ^DIK N^DIO2 EN1^DIP ^DIR

Toolkit

($$GET,PUT)^XPAR

VueCentric Framework

($$GETVAR,GETVAR)^CIAVMEVT

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSOORCPY PSOORNE4 PSOORNW1 PSOREF PSOREF0 PSORENW PSORENW4
Inpatient Medications	5	PSGOERS PSIVOPT2 PSIVUTL PSJOE PSJUTL
Order Entry Results Reporting	4	ORCACT0 ORCACT03 ORWDXM ORWUL
Pharmacy Data Management	2	PSSOPKI1 PSSORUTL
IHS Changes To Pharmacy	1	APSPESLP

Package

Total

Caller Graph

Outpatient Pharmacy

PSOORCPY PSOORNE4 PSOORNW1 PSOREF PSOREF0 PSORENW PSORENW4

Inpatient Medications

PSGOERS PSIVOPT2 PSIVUTL PSJOE PSJUTL

Order Entry Results Reporting

ORCACT0 ORCACT03 ORWDXM ORWUL

Pharmacy Data Management

PSSOPKI1 PSSORUTL

IHS Changes To Pharmacy

APSPESLP

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
DEQUE
ALL	;postinit make all drugs alternate care plan
OI(OI,DFN)	;screen orderable item
SITE()	; return outpatient site
EDITP	;Edit the parameter
TRANSFER	;Transfer from one division to other
PRTSCRN(DRUG,PDIV)	;EP
REPT	;
QUICK(IEN)	;EP-validate quick order
ADDIV	;Add/Remove from Division
PRATL(TRUE)	;ALTERNATE LIST
W	;
ELIG(DFN,DRUGELIG)	;
PRINT	;EP
PRINTM	;
SCREEN(IEN,NEWSITE,ALWAYS)	;EP

External References

Name	Field # of Occurrence
^%DT	REPT+2
$$GETVAR^CIAVMEVT	SCREEN+4
GETVAR^CIAVMEVT	SCREEN+4
^DIC	PRINT+2, TRANSFER+2, TRANSFER+3, ADDIV+1, ADDIV+2
FILE^DICN	TRANSFER+9, ADDIV+9
YN^DICN	TRANSFER+5, ADDIV+5
FILE^DIE	ALL+3
^DIK	ADDIV+10
N^DIO2	PRINT1+3, PRINT1+5
EN1^DIP	PRINT+4, PRATL+4, REPT+5
^DIR	REPT+4, EDITP+6
$$GET^XPAR	SCREEN+6, SCREEN+11, EDITP+2
PUT^XPAR	EDITP+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,CNT," Drugs put in outpatient site" Line Location: TRANSFER+10
Function Call: WRITE	Prompt: ! Condition for execution: $X Line Location: PRINT1+3
Function Call: WRITE	Prompt: A,?42,$J($P($G(^TMP("PSMULTI",$J,I)),U),6),?58,$J($P($G(^(I)),U,2),6) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !,"No Activity During this Period",! Line Location: PRINT1+5
Function Call: WRITE	Prompt: !,"This Drug is already in this division",!,"Do you wish to Delete" Line Location: ADDIV+3
Function Call: WRITE	Prompt: !,"Add this Drug to the Divsion" Line Location: ADDIV+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>45 Line Location: W+1
Function Call: WRITE	Prompt: ?45," ",$P($G(^PS(59,+I,0)),U) Line Location: W+1
Routine Call	DIC Line Location: PRINT+2 TRANSFER+2 TRANSFER+3 ADDIV+1 ADDIV+2
Routine Call	DIE Line Location: ALL+3
Routine Call	DIR Line Location: REPT+4 EDITP+6

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(59 - [#59]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPCTRL - [#9009033]	SCREEN+10
^APSPCTRL(0	SITE+3
^AUPNPAT - [#9000001]	ELIG+4
^DD("DD"	REPT+3
^OR(100 - [#100]	OI+5, OI+6
^ORD(101.41 - [#101.41]	QUICK+2, QUICK+3, QUICK+4, QUICK+5, QUICK+6
^ORD(101.43 - [#101.43]	OI+2
^PS(55 - [#55]	PRINTM+3, PRINTM+4, PRINTM+5
^PS(59 - [#59]	SCREEN+9, W+1, SITE+3
^PSDRUG - [#50]	SCREEN+10, SCREEN+12, SCREEN+13, PRTSCRN+1, ALL+2, TRANSFER+6, TRANSFER+7, TRANSFER+8, PRINTM+7, PRINTM+14 , PRINTM+16, ADDIV+3, ADDIV+7, ADDIV+8, W+1
^PSDRUG("ASP"	OI+7
^PSDRUG(0	REPT+5
^PSRX - [#52]	PRINTM+13
^PSRX("AC"	PRINTM+12
^TMP("MSCPS"	ALL+1!, ALL+2*, ALL+4!
^TMP("PSMULTI"	PRINTM+2!, PRINTM+7, PRINTM+8, PRINTM+16, PRINTM+17, PRINT1+2, PRINT1+3, PRINT1+5

Name	Line Occurrences
$$ELIG	SCREEN+10
$$OI	QUICK+7
$$SCREEN	OI+5, OI+7, QUICK+4
ADDIV	ADDIV+5, ADDIV+7, ADDIV+11
PRINT1	DEQUE+1
PRINTM	DEQUE

Name	Field # of Occurrence
^(	PRINTM+4, PRINTM+5, PRINTM+9, PRINTM+10, PRINTM+17*, PRINT1+3, OI+6
^(0	ADDIV+8*
^(1	OI+6
^(2	PRINTM+4, PRINTM+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TRANSFER+1~, TRANSFER+5, ADDIV+5
>> %DT	REPT+2*
>> %DT("A"	REPT+2*
>> A	PRINT1+1, PRINT1+2, PRINT1+3
ALWAYS	SCREEN~, SCREEN+2, SCREEN+6
>> APSPMULT	SCREEN+5
>> BY	PRINT+4, PRATL+4, REPT+5*
>> CIA("UID"	SCREEN+4
CNT	TRANSFER+1~, TRANSFER+4, TRANSFER+9, TRANSFER+10
>> D	PRINTM+15*
>> DA	ADDIV+6*
>> DA(1	TRANSFER+9, ADDIV+6
>> DATE	PRINTM+4*
DFN	SCREEN+4, ELIG~, ELIG+4, OI~, QUICK+7
DHD	PRATL+1~, PRATL+3, REPT+1~, REPT+5
DIC	PRINT+2, PRINT+4, TRANSFER+1~, TRANSFER+2, TRANSFER+3, TRANSFER+9, PRATL+4, REPT+5, ADDIV+1~, ADDIV+2~* , ADDIV+6*
DIC("A"	TRANSFER+2, TRANSFER+3
DIC("S"	TRANSFER+3*
DIC("W"	ADDIV+2*
DIC(0	PRINT+2, TRANSFER+2, TRANSFER+3, TRANSFER+9, ADDIV+1, ADDIV+2, ADDIV+9*
DICR	SCREEN+1~, EDITP+1~
>> DIK	ADDIV+6*
DINUM	TRANSFER+1~, TRANSFER+9, ADDIV+9
>> DIPA("NUM"	PRINT+4, PRATL+4
DIR	EDITP+1~, EDITP+3*
DIR("A"	REPT+4, EDITP+5
DIR("B"	EDITP+4*
DIR(0	REPT+4, EDITP+4
>> DIRUT	EDITP+6
>> DIS(1	PRINT+3, PRATL+2
>> DIV	ADDIV+1*, ADDIV+3, ADDIV+6, ADDIV+7, ADDIV+9
DIVAL	SCREEN+1~, EDITP+1~
>> DRIEN	PRINTM+7, PRINTM+8, PRINTM+9, PRINTM+10, PRINTM+14, PRINTM+16, PRINTM+17
DRUG	PRTSCRN~, PRTSCRN+1, PRINTM+7, PRINTM+16, OI+1~, OI+5, OI+6, OI+7, OI+8, QUICK+1~ , QUICK+2, QUICK+4, QUICK+5*
DRUGELIG	ELIG~, ELIG+3, ELIG+5, ELIG+6
DUZ(2	SCREEN+9, SITE+3
ELIG	ELIG+2~, ELIG+4, ELIG+5, ELIG+6, REPT+4, PRINTM+7, PRINTM+14
>> END	PRINTM+4*
>> ENDT	REPT+2*, PRINTM+3, PRINTM+4, PRINTM+6, PRINTM+12, PRINTM+15
>> FLDS	PRINT+4, PRATL+4, REPT+5*
>> FR	REPT+5*
FROM	TRANSFER+1~, TRANSFER+2*, TRANSFER+7
I	ALL+2, TRANSFER+1~, TRANSFER+6, TRANSFER+7, TRANSFER+8, TRANSFER+9~, PRINTM+3, PRINTM+4, PRINTM+12, PRINT1+2* , PRINT1+3, W+1~, OI+6~
IEN	SCREEN~, SCREEN+10, SCREEN+12, SCREEN+13, QUICK~, QUICK+4, QUICK+5, QUICK+6
>> IFN	OI+5, OI+6
>> J	PRINTM+3, PRINTM+4, PRINTM+5, PRINTM+12, PRINTM+13
>> K	PRINTM+3*, PRINTM+5, PRINTM+9
>> L	PRATL+4, PRINTM+5
>> MONTH	REPT+3*
MSC	EDITP+1~, EDITP+2*, EDITP+4
NEWSITE	SCREEN~, SCREEN+8
OI	PRINTM+4, OI~, OI+2, QUICK+1~, QUICK+3, QUICK+6*, QUICK+7
PAT	SCREEN+1~, SCREEN+4*, SCREEN+10
PDIV	PRINT+1~, PRINT+2*, PRTSCRN~, PRTSCRN+1
POI	OI+1~, OI+2*, OI+3, OI+7
>> PSODFN	SCREEN+4
>> PSOSITE	SCREEN+7, SITE+2
SITE	SCREEN+7~, SCREEN+8, SCREEN+9, SCREEN+10, SCREEN+13, SITE+1~, SITE+3
>> STDT	REPT+2*, REPT+3, PRINTM+3, PRINTM+6, PRINTM+12, PRINTM+15
T	PRINTM+5~, PRINTM+8, PRINTM+9, PRINTM+10, PRINTM+17
T(	PRINTM+9*
TO	TRANSFER+1~, TRANSFER+4, TRANSFER+8, TRANSFER+9, REPT+5
TRUE	PRATL~, PRATL+2, PRATL+3
>> TWO	PRINTM+13*, PRINTM+15
U	SCREEN+2, SCREEN+6, SCREEN+10, ELIG+4, REPT+4, PRINTM+4, PRINTM+7, PRINTM+9, PRINTM+10, PRINTM+14 , PRINTM+15, PRINTM+16, PRINTM+17, PRINT1+3, W+1, OI+2, OI+6
X	TRANSFER+9, REPT+3, REPT+4, ADDIV+9*, EDITP+1~
>> XQY0	SCREEN+2, SCREEN+6
Y	PRINT+2, TRANSFER+2, TRANSFER+3, TRANSFER+4, REPT+2, REPT+3, REPT+4, ADDIV+1, ADDIV+2, ADDIV+3 , ADDIV+6, ADDIV+7, ADDIV+8, W+1, EDITP+1~, EDITP+7
>> ZERO	PRINTM+4, PRINTM+5, PRINTM+6, PRINTM+7, PRINTM+10, PRINTM+13*, PRINTM+14, PRINTM+17

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPMULT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items