Routine: APCM2AE2

Package	Total	Call Graph
Patient Care Component Table Maintiance	3	$$DATE^APCM1UTL (S,SETLIST)^APCM2AE1 $$AVC^APCM2AEM
IHS Patient Registration	1	($$RACE,RACE)^AGUTL
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMDIFF,$$NOW)^XLFDT
Patient Care Component Reports	1	$$VD^APCLV
VA Fileman	1	(,C,NOW)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
HASPL(P,BD,ED)	;does patient have a problem entered before end of report period
EMAR1	;EP - ep toc
EMAR	;EP
PL1	;set denominator value into field
PRT	;
DEMO	;EP - CALCULATE DEMOGRAPHICS
EXIT	;
DSPRDT(RX,TYP,SIEN)	;EP
HASDEMOH	;did patient die in the hospital during report period? if so is dod and underlying cause there?
START	;Set beginning/ending sort dates for ORDERS
DEMO1	;set denominator value into field
PATVRY(RX,PAT)	;EP
HASDEMO(P,BD,ED,T,DODV)	;
P55	;LOOP 55 UNIT DOSE
IV	;LOOP IVS
PL	;EP - CALCULATE PROBLEM LIST

External References

Name	Field # of Occurrence
^%DTC	P55+9, IV+8, IV+19
C^%DTC	IV+19
NOW^%DTC	IV+17
$$RACE^AGUTL	HASDEMO+12
RACE^AGUTL	HASDEMO+12
$$VD^APCLV	HASPL+21
$$DATE^APCM1UTL	DEMO1+3, HASDEMOH+3, PL1+3, HASPL+23
S^APCM2AE1	DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
SETLIST^APCM2AE1	DEMO1+9, PL1+9, EMAR+16
$$AVC^APCM2AEM	EMAR+7
$$VAL^XBDIQ1	HASDEMO+14, HASDEMOH+5, HASPL+8, HASPL+13
$$FMDIFF^XLFDT	P55+11
$$NOW^XLFDT	P55+1, P55+11, IV+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: Y_" TO " Line Location: PRT+2
Function Call: WRITE	Prompt: Y Line Location: PRT+2
Function Call: WRITE	Prompt: !,?45,"Run Date/Time:"_Y Line Location: PRT+3
Function Call: WRITE	Prompt: "-" Line Location: PRT+5
Function Call: WRITE	Prompt: I,?17,$G(CNT(I)),?35,$G(CNT(I,"TR")),! Line Location: PRT+6
Function Call: WRITE	Prompt: "-" Line Location: PRT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCM25OB - [#9001304.02]	DEMO1+1, DEMO1+7, PL1+1, PL1+7, EMAR+8, EMAR+9, EMAR+18
^AUPNPAT - [#9000001]	HASDEMO+7, HASDEMO+8
^AUPNPROB - [#9000011]	HASPL+6, HASPL+7, HASPL+8, HASPL+10
^AUPNPROB("AC"	HASPL+4
^AUPNVINP - [#9000010.02]	HASDEMOH+3
^AUPNVRUP - [#9000010.54]	HASPL+19, HASPL+20, HASPL+21
^AUPNVRUP("AC"	HASPL+18
^AUTTCRA("B"	HASPL+16
^DPT - [#2]	HASDEMO+11, HASDEMO+15, HASDEMO+16, HASDEMO+20
^PS(55 - [#55]	P55+1, P55+2, P55+3, P55+6, P55+7, P55+9, IV+2, IV+3, IV+4, IV+6 , IV+8, IV+11, IV+13, IV+14, IV+15
^PSB(53.79 - [#53.79]	P55+26, IV+22
^PSRX - [#52]	PATVRY+2, DSPRDT+1
^TMP($J	EMAR+2!, EMAR+13, EMAR+14, EMAR+21!, START+7!, P55+19, P55+28, IV+5, IV+24

Label References

Name	Line Occurrences
$$HASDEMO	DEMO1+5
$$HASPL	PL1+5
DEMO1	DEMO+9, DEMO+13
EMAR1	EMAR+4
HASDEMOH	HASDEMO+21
PL1	PL+9, PL+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	IV+17
A	HASPL+2~, HASPL+4, HASPL+6, HASPL+7, HASPL+8, HASPL+10, HASPL+13, HASPL+18, HASPL+19, HASPL+20 , HASPL+21
>> APCMBDAT	DEMO1+5, PL1+5, EMAR+7, START+3
>> APCMD1	DEMO+5, PL+5
>> APCMEDAT	DEMO1+5, PL1+5, EMAR+7, START+4
>> APCMEP	DEMO1+5, DEMO1+6, DEMO1+8, PL1+5, PL1+6, PL1+8
>> APCMFAC	DEMO+11, PL+12, EMAR+6, EMAR+7
>> APCMHVTP(	DEMO+8, DEMO+12, DEMO1+3, PL+8, PL+13, PL1+3
>> APCMIC	DEMO1+1, DEMO1+2, DEMO1+7, DEMO1+8, PL1+1, PL1+2, PL1+7, PL1+8, EMAR+8, EMAR+9 , EMAR+11, EMAR+18, EMAR+20
>> APCMN1	DEMO+5, PL+5
APCMP	DEMO+4~, DEMO+7, DEMO+8, DEMO+11, DEMO+12, DEMO1+2, DEMO1+3, DEMO1+8, PL+4~, PL+7* , PL+8, PL+12, PL+13, PL1+2, PL1+3, PL1+8, EMAR+5~, EMAR+6, EMAR+8, EMAR+11 , EMAR+20
>> APCMPRV(	DEMO+7, PL+7
>> APCMRPT	DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
>> APCMRPTT	DEMO+6, DEMO+10, DEMO1+2, DEMO1+5, DEMO1+8, PL+6, PL+11, PL1+2, PL1+8, EMAR+6 , EMAR+8, EMAR+11, EMAR+20
>> APCMTIME	DEMO1+2, DEMO1+8, PL1+2, PL1+8, EMAR+8, EMAR+11, EMAR+20
>> APCMVALU	DEMO1+3, DEMO1+6, PL1+3, PL1+6, EMAR+14*
>> APCMVDOD	DEMO1+5
B	HASDEMO+1~, HASDEMO+8*, HASPL+2~
BD	HASDEMO~, HASPL~, HASPL+12
C	HASDEMO+1~, HASDEMO+2, HASDEMO+10, HASDEMO+11, HASDEMO+13, HASDEMO+14, HASDEMO+18, HASDEMO+20, HASDEMO+22, HASDEMOH+4 , HASDEMOH+6, HASDEMOH+7, HASPL+2~, HASPL+16, HASPL+17, HASPL+20
CNT	START+1~
CNT(	PRT+9
CNT("IV"	IV+1, IV+5, IV+24*
CNT("UNIT DOS	E" , START+6, P55+19, P55+28*
CNTT	START+1~, PRT+1, PRT+9, PRT+10
CNTTR	START+1~, PRT+1, PRT+9, PRT+10
CPS55	START+1~, P55+3, P55+6, P55+7, P55+9, P55+26, IV+4, IV+6, IV+8, IV+11 , IV+13, IV+14, IV+15, IV+22
CPSDATE	START+1~, P55+1, P55+2, P55+3, P55+8, P55+9, P55+11, IV+2, IV+3, IV+4 , IV+8, IV+16, IV+19
CPSDFN	START+1~, P55+2, P55+3, P55+6, P55+7, P55+9, P55+19, P55+26, P55+28, IV+3 , IV+4, IV+5, IV+6, IV+8, IV+11, IV+13, IV+14, IV+15, IV+22, IV+24
CPSEND	START+1~, START+4*, P55+1, P55+11, IV+2, IV+8
CPSFRE	START+1~, P55+6, P55+9, P55+10, P55+12, P55+13, IV+8, IV+9
CPSN	START+1~, P55+9*
CPSN1	START+1~, P55+26*
CPSNUM	START+1~, IV+11, IV+22
CPSPOS	START+1~, P55+5, P55+9, P55+12, P55+13, P55+21, P55+22, P55+27, IV+5, IV+8* , IV+9, IV+11, IV+19*, IV+20, IV+23
CPSPSB	START+1~, P55+26, P55+27, IV+5, IV+22*, IV+23
CPSQ	START+2~, P55+23*, P55+24
CPSRAT	START+2~, IV+14*, IV+19, IV+20
CPSS1	START+2~, P55+11, P55+12, P55+13, IV+16, IV+17, IV+18, IV+19
CPSSCH	START+2~, P55+7*, P55+9, P55+10, P55+19, P55+21, P55+23
CPSTART	START+2~, START+3*, P55+1, IV+2
CPSTOP	START+2~, P55+6, P55+8, P55+9, P55+11, IV+8, IV+15*, IV+17, IV+18, IV+19
CPSTYPE	START+2~, IV+6*, IV+7, IV+11, IV+13
CPSVOL	START+2~, IV+14*, IV+19
D	HASDEMO+1~, HASDEMO+5, HASDEMO+20, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8, HASPL+2~, HASPL+10, HASPL+11 , HASPL+12, HASPL+21, HASPL+22, HASPL+23
>> DFN	DEMO1+5, PL1+5, EMAR+15*
DODV	HASDEMO~, HASDEMO+4*, HASDEMO+21, HASDEMOH+3, HASDEMOH+5
DT	P55+9, IV+17, IV+18, IV+19
E	HASDEMO+1~, HASDEMO+5, HASDEMO+15, HASDEMO+16, HASDEMO+17, HASDEMO+18, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8 , HASPL+2~, HASPL+3, HASPL+4, HASPL+8, HASPL+13, HASPL+14, HASPL+18, HASPL+23*, HASPL+24
ED	HASDEMO~, HASPL~, HASPL+7, HASPL+11, HASPL+22
EMAR	EMAR+3~, EMAR+10, EMAR+19, START+5, PRT+10
F	DEMO1+1, DEMO1+2, DEMO1+7, DEMO1+8, PL1+1, PL1+2, PL1+7, PL1+8, EMAR+5~, EMAR+8* , EMAR+9, EMAR+11, EMAR+18, EMAR+20
G	HASDEMO+1~, HASDEMO+5, HASDEMO+11, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
>> I	PRT+9*
L	HASDEMOH+1~, HASDEMOH+5*, HASDEMOH+6
N	EMAR+5~, EMAR+10, EMAR+11, EMAR+19, EMAR+20
O	EMAR+5~
P	HASDEMO~, HASDEMO+7, HASDEMO+8, HASDEMO+11, HASDEMO+12, HASDEMO+14, HASDEMO+15, HASDEMO+16, HASDEMO+20, HASPL~ , HASPL+4, HASPL+18, EMAR+13*, EMAR+14, EMAR+15
PAT	PATVRY~, PATVRY+1, PATVRY+2
PCD	HASDEMOH+1~, HASDEMOH+2, HASDEMOH+6, HASDEMOH+7, HASDEMOH+8
PL	HASDEMO+1~, HASDEMO+5, HASDEMO+7, HASDEMO+10, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
R	HASDEMO+1~, HASDEMO+5, HASDEMO+12, HASDEMO+13, HASDEMO+14, HASDEMO+22, HASDEMO+23, HASDEMOH+7, HASDEMOH+8
RX	PATVRY~, PATVRY+2, DSPRDT~, DSPRDT+1
SIEN	DSPRDT~, DSPRDT+1
T	HASDEMO~, HASDEMO+3*, HASDEMO+21
TYP	DSPRDT~, DSPRDT+1
U	DEMO1+1, DEMO1+6, DEMO1+7, DEMO1+8, HASDEMO+8, HASDEMO+11, HASDEMO+16, HASDEMO+20, HASDEMO+22, HASDEMO+23 , HASDEMOH+3, HASDEMOH+7, HASDEMOH+8, PL1+1, PL1+6, PL1+7, PL1+8, HASPL+7, HASPL+8, HASPL+10 , HASPL+20, HASPL+21, PATVRY+2, DSPRDT+1, EMAR+8, EMAR+9, EMAR+10, EMAR+14, EMAR+18, EMAR+19 , P55+6, P55+7, P55+9, P55+19, P55+28, IV+5, IV+6, IV+8, IV+14, IV+15 , IV+24, PRT+10
VDOD	HASDEMOH+1~, HASDEMOH+3, HASDEMOH+4, HASDEMOH+7, HASDEMOH+8
X	HASDEMO+1~, HASDEMO+7*, HASDEMO+8, P55+9, IV+8, IV+19
>> X1	P55+9, IV+8, IV+19*
>> X2	P55+9, IV+8, IV+19*
Y	HASDEMO+1~, EMAR+5~
Z	HASDEMO+1~, HASDEMO+15*, HASDEMO+16

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM2AE2

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items