Routine: APCHS72

Name	Comments	DBIA/ICR reference
OTH	;gather up all others by date range in components, get last of each
GETMEDS(DFN,Y,Z,SIGT)	;PEP - return array of meds for patient P
SETNVA	;
SITE	;DETERMINE IF OUTSIDE LOCATION INFO PRESENT
S(Y,F,C,T)	;set up array
S1	;
MEDS	;EP - called from component - <SETUP>
CHRONIC(N)	;EP
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
SETARRAY	;DISPLAY MEDICATION
MEDX	;
NONVA	; S DFN=APCHSPAT,PSOACT=1 D ^PSOHCSUM
DISPLAY	;
REORDER	;

External References

Name	Field # of Occurrence
DISPREF^APCHS3C	MEDS+14
HOLDDSP^APCHS7	MEDS+11
MEDRU^APCHS7	MEDS+15
$$VAL^XBDIQ1	REORDER+2, REORDER+3
$$VALI^XBDIQ1	MEDS+8
$$FMADD^XLFDT	GETMEDS+16, GETMEDS+18
$$FMTE^XLFDT	SETARRAY+4, SETARRAY+8, SETARRAY+10, SETNVA+3, SETNVA+7
$$LOW^XLFSTR	SETARRAY+11, SETNVA+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MEDS+2
Function Call: WRITE	Prompt: ?4,"LAST OF EACH CHRONIC MEDICATION (no limit on days)",?57,"Last fill date",!! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ^TMP("APCHSMEDS",$J,"C",APCHSX),! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !?4,"LAST OF EACH OTHER MEDICATION "_APCHSEGL_"",?57,"Last fill date",!! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ^TMP("APCHSMEDS",$J,"A",APCHSX),! Line Location: DISPLAY+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	MEDS+4
^AUPNVMED - [#9000010.14]	GETMEDS+24, GETMEDS+25, GETMEDS+27, OTH+3, OTH+4, OTH+6, NONVA+3, CHRONIC+2, CHRONIC+4, SETARRAY+2 , SETARRAY+9
^AUPNVMED("AA"	GETMEDS+22, GETMEDS+23, OTH+1, OTH+2
^AUPNVSIT - [#9000010]	SETARRAY+4, SITE+2, SITE+3, SITE+4
^DIC(4 - [#4]	SITE+4
^DPT - [#2]	GETMEDS+12
^PS(50.7 - [#50.7]	NONVA+11
^PS(51 - [#51]	SIG+3
^PS(55 - [#55]	NONVA+2, NONVA+3, NONVA+6, NONVA+9, NONVA+11, NONVA+12, CHRONIC+6
^PSDRUG - [#50]	NONVA+11, NONVA+12, SETARRAY+7
^PSRX("APCC"	CHRONIC+5
^TMP("APCHSMEDS"	MEDX+1!, DISPLAY+1, DISPLAY+2, DISPLAY+3, DISPLAY+4, GETMEDS+10!, REORDER+6!, S1+1, S1+2, S1+3*
^TMP($J	MEDX+1!, GETMEDS+10!, GETMEDS+25, GETMEDS+27, OTH+4, OTH+6, NONVA+12*, REORDER+2, REORDER+3, REORDER+7!

Name	Line Occurrences
$$CHRONIC	GETMEDS+26, OTH+5
DISPLAY	MEDS+9
GETMEDS	MEDS+8
S	SETARRAY+13, SETARRAY+14, SETNVA+9, SETNVA+10
S1	S+5, S+7, S+10
SETARRAY	REORDER+4, REORDER+5
SETNVA	SETARRAY+1
SIG	SETARRAY+11, SETNVA+8
SITE	SETARRAY+12

Name	Field # of Occurrence
^(	CHRONIC+5
^(21	SITE+2
^(9	SIG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETMEDS+9~, SETARRAY+2, SETARRAY+4, SETARRAY+6, SETARRAY+7, S+8, S+9, S1+2, S1+3
A	GETMEDS+9~, REORDER+3~
A(	REORDER+3*, REORDER+5
>> APCHORTS	SETARRAY+9*, SETARRAY+10
>> APCHSBRK	MEDS+2
APCHSC	REORDER+4~, REORDER+5~
>> APCHSCKP	MEDS+2, DISPLAY+2, DISPLAY+4
>> APCHSDLM	NONVA+8
>> APCHSEGL	DISPLAY+3
>> APCHSEGT	MEDS+4
APCHSFN	MEDS+14*, MEDS+16!
>> APCHSNPG	MEDS+2
>> APCHSPAT	MEDS+8, NONVA+2, NONVA+3, NONVA+6, NONVA+9, NONVA+11, NONVA+12
>> APCHSQIT	MEDS+2, MEDS+12, DISPLAY+2, DISPLAY+4
APCHST	MEDS+14*, MEDS+16!
>> APCHSTYP	MEDS+4, MEDS+8
APCHSX	MEDX+2!, DISPLAY+2, DISPLAY+4, REORDER+4~, REORDER+5~
B	GETMEDS+9~, SETARRAY+8, SETARRAY+10, SETARRAY+13, SETNVA+7*, SETNVA+9
C	GETMEDS+9~, REORDER+2, REORDER+3, S~, S+7
D	GETMEDS+9~, NONVA+9, NONVA+10, NONVA+11, NONVA+12, SETARRAY+4, SETARRAY+5, SETARRAY+13, SETNVA+1, SETNVA+2 , SETNVA+3*, SETNVA+9
DFN	GETMEDS~, GETMEDS+11, GETMEDS+12, GETMEDS+22, GETMEDS+23, OTH+1, OTH+2
DT	GETMEDS+16, GETMEDS+18
DUZ(2	SITE+4
E	GETMEDS+9~, SETARRAY+6, SETARRAY+8, SETARRAY+10, SETNVA+4, SETNVA+7
F	GETMEDS+9~, S~, S+2, S+5
G	GETMEDS+9~, SETARRAY+6, SETARRAY+11, SETARRAY+13, SETNVA+5, SETNVA+8, SETNVA+9, SIG+1, SIG+2, SIG+3
H	GETMEDS+9~
I	GETMEDS+9~, GETMEDS+21~, GETMEDS+22, GETMEDS+23, OTH+1~, OTH+2, REORDER+2~, REORDER+3~, REORDER+4~, REORDER+5~ , S1+1, S1+2, S1+3
J	GETMEDS+9~
K	GETMEDS+9~, SETARRAY+7, SETARRAY+13, SETNVA+6, SETNVA+9
L	GETMEDS+9~, NONVA+6, NONVA+7, NONVA+8, NONVA+12, S+7*
M	GETMEDS+9~, REORDER+2~
M(	REORDER+2*, REORDER+4
N	GETMEDS+9~, NONVA+11, NONVA+12, REORDER+2~, REORDER+3~, REORDER+4~, REORDER+5~*, CHRONIC~, CHRONIC+1, CHRONIC+2 , CHRONIC+4, CHRONIC+5, SETARRAY+1, SETARRAY+2, SETARRAY+7, SETARRAY+9, SETNVA+1, SETNVA+4, SETNVA+5, SETNVA+6
O	GETMEDS+9~, REORDER+2~, REORDER+3~
P	GETMEDS+9~, CHRONIC+3~, CHRONIC+4, CHRONIC+6, SIG+2~, SIG+3
Q	GETMEDS+9~, SETARRAY+6*, SETARRAY+13
R	GETMEDS+9~
S	GETMEDS+9~, REORDER+2~, REORDER+3~, SETARRAY+14, SITE+1, SITE+2, SITE+4*
SIGT	GETMEDS~, SIG+1
T	GETMEDS+9~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+13, S~, S+3, S+7*, S+8, S+9
U	MEDS+4, GETMEDS+25, GETMEDS+27, OTH+4, OTH+6, NONVA+3, NONVA+6, NONVA+9, NONVA+11, NONVA+12 , CHRONIC+4, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+9, SETNVA+1, SETNVA+4, SETNVA+5, SETNVA+6, SITE+2 , SITE+3, SITE+4, S1+2
V	GETMEDS+9~, SETARRAY+4*, SETARRAY+5, SITE+2, SITE+3, SITE+4
W	GETMEDS+9~
X	MEDX+3!, GETMEDS+9~, GETMEDS+23~, GETMEDS+24, GETMEDS+25, GETMEDS+26, GETMEDS+27, OTH+2, OTH+3, OTH+4 , OTH+5, OTH+6, NONVA+2, NONVA+3, NONVA+6, NONVA+9, NONVA+11, NONVA+12, CHRONIC+3~, CHRONIC+5 , CHRONIC+6, SETARRAY+13, SETARRAY+14, SETNVA+9, SETNVA+10, SIG+2, SIG+3, SIG+4, S+1~, S+5* , S+6, S+8, S+9*, S1+3
X1	MEDX+3!
X2	MEDX+3!
Y	MEDS+4, MEDS+5, MEDS+6, MEDS+7, MEDS+8, MEDX+3!, GETMEDS~, GETMEDS+13, GETMEDS+16, GETMEDS+17* , OTH+1, CHRONIC+3~, CHRONIC+6, CHRONIC+7, SIG+3, S~, S+6, S+7, S+9
Z	MEDS+4, MEDS+8, GETMEDS~, GETMEDS+14, GETMEDS+18, GETMEDS+19, GETMEDS+22, SETARRAY+11, SETNVA+8, SIG+1* , SIG+2, SIG+4

Customize PDF page

Package: Patient Care Component

Routine: APCHS72

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: