Routine: APCM24E7

Package	Total	Call Graph
Patient Care Component Table Maintiance	4	$$DATE^APCM1UTL (S,SETLIST)^APCM24E1 $$HOSER^APCM24E6 ALLLAB^APCM24EB
Patient Care Component Reports	3	ALLV^APCLAPIU $$DEMO^APCLUTL ($$CLINIC,$$PRIMPROV,$$VD,$$VDTM)^APCLV
Kernel	2	$$FMADD^XLFDT $$UP^XLFSTR
IHS Personal Health Record	1	PHR^BPHRMUPM
IHS VA Utilities	1	$$VAL^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
TOTRX	;EP -SET ARRAY APCMRXS to APCMRXS(FACILITY)=denom^numer
TOTLAB	;EP - ep LAB
D	;set denominator value into field
HASMMR(P,BDD,EDD)	;does patient have a m-mr ON this visit in v updated/reviewed
SNN
TOTMEDR	;EP - ep MR
ERX	;EPRESCRIBING HOSPITAL
MEDREC	;EP
TOTLAB1	;
HASCOM(L)	;ARE THERE ANY COMMENTS
NUM
CPT(V)	;was there a 99201-99205 or 99381-99387 on this visit
LAB	;EP - CALCULATE LAB
IMAGE(V,R)	;WAS THERE AN IMAGE BEFORE VISIT DATE AND IF SO WAS THIS THE FIRST VISIT AFTER THE IMAGE DATE
SEM	;EP
TOTMEDR1	;
ST1	;set denominator value into field

Name	Field # of Occurrence
ALLV^APCLAPIU	TOTMEDR1+3, IMAGE+14
$$DEMO^APCLUTL	TOTRX+23
$$CLINIC^APCLV	TOTMEDR1+11, IMAGE+23
$$PRIMPROV^APCLV	TOTMEDR1+7, IMAGE+21
$$VD^APCLV	NUM+4
$$VDTM^APCLV	IMAGE+5, IMAGE+16
$$DATE^APCM1UTL	ST1+3, ST1+9
S^APCM24E1	LAB+12, LAB+26, MEDREC+9, MEDREC+13, MEDREC+22, SEM+5, ST1+2, ST1+11, ERX+11, D+3 , D+17
SETLIST^APCM24E1	LAB+17, LAB+22, MEDREC+17, MEDREC+18, ST1+12, D+8, D+13
$$HOSER^APCM24E6	TOTLAB1+11
ALLLAB^APCM24EB	TOTLAB1+3
PHR^BPHRMUPM	ST1+5
$$GET1^DIQ	CPT+4, IMAGE+7, IMAGE+8, HASMMR+9, TOTRX+6, TOTRX+25, TOTRX+26
$$VAL^XBDIQ1	TOTLAB1+15, TOTLAB1+20, TOTLAB1+25
$$FMADD^XLFDT	IMAGE+14, TOTRX+3
$$UP^XLFSTR	TOTLAB1+15, TOTLAB1+16, TOTLAB1+23, IMAGE+7

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	GET1^DIQ
^AUPNVRUP - [#9000010.54]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APCM24OB - [#9001303.02]	LAB+10, LAB+24, MEDREC+9, MEDREC+11, MEDREC+20, SEM+5, ST1+1, ST1+10, ERX+9, ERX+10 , D+1, D+15
^APCMMUCN - [#9001300.01]	TOTMEDR1+13, IMAGE+25
^APCMMUCN("B"	TOTMEDR+5, IMAGE+12
^ATXLAB - [#9002228]	TOTLAB1+14
^ATXLAB("B"	TOTLAB+8
^AUPNVCPT("AD"	CPT+3
^AUPNVLAB - [#9000010.09]	TOTLAB1+13, TOTLAB1+16, TOTLAB1+22, TOTLAB1+23, HASCOM+1, HASCOM+4
^AUPNVMED - [#9000010.14]	TOTRX+9
^AUPNVRUP - [#9000010.54]	HASMMR+6, HASMMR+7
^AUPNVRUP("AC"	HASMMR+5
^AUPNVSIT - [#9000010]	TOTLAB1+9, TOTLAB1+10, TOTLAB1+11, TOTLAB1+12, TOTMEDR1+6, TOTMEDR1+10, IMAGE+2, IMAGE+20, IMAGE+22, TOTRX+9
^AUPNVSIT("AA"	TOTLAB+9, TOTMEDR+7
^LAB(60 - [#60]	TOTLAB1+17
^MAG(2005	IMAGE+3, IMAGE+6
^OR(100 - [#100]	TOTRX+35, TOTRX+37, TOTRX+38
^PSDRUG - [#50]	TOTRX+13
^PSRX - [#52]	TOTRX+8, TOTRX+11, TOTRX+12, TOTRX+21, TOTRX+28, TOTRX+32, TOTRX+33, TOTRX+42, TOTRX+43, TOTRX+44 , TOTRX+45, TOTRX+46, TOTRX+47
^PSRX("AC"	TOTRX+4, TOTRX+5
^TMP($J	LAB+2!, LAB+14, LAB+16, LAB+19, LAB+20, LAB+22, LAB+27!, TOTLAB1+20, TOTLAB1+25, MEDREC+2! , MEDREC+15, MEDREC+16, MEDREC+18, MEDREC+23!, NUM+3, NUM+4, NUM+7, NUM+9, NUM+10, ERX+3! , D+5, D+7, D+10, D+11, D+13, D+18!, TOTRX+28, TOTRX+42, TOTRX+47

Name	Line Occurrences
$$CPT	TOTMEDR1+15
$$HASCOM	TOTLAB1+23
$$HASMMR	NUM+6
$$IMAGE	TOTMEDR1+17
NUM	TOTMEDR1+16
ST1	SEM+7
TOTLAB	LAB+4
TOTLAB1	TOTLAB+9
TOTMEDR	MEDREC+4
TOTMEDR1	TOTMEDR+7
TOTRX	ERX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	TOTLAB+3~, TOTLAB1+13, TOTLAB1+14, TOTLAB1+17, CPT+1~, CPT+2, CPT+3, CPT+5, CPT+6, CPT+7 , IMAGE+1~, TOTRX+1~, TOTRX+37, TOTRX+38, TOTRX+44, TOTRX+45, TOTRX+46
>> APCMATTE(	ERX+10
>> APCMATTE("S2.026.EP"	SEM+5
>> APCMBDAT	TOTLAB+4, TOTLAB1+3, TOTMEDR1+3, NUM+6, ST1+5, ST1+7, TOTRX+3
>> APCMD1	LAB+6, MEDREC+6, SEM+2, ERX+7
>> APCMDEMO	TOTRX+23
>> APCMEDAT	TOTLAB+5, TOTLAB1+3, TOTMEDR1+3, NUM+6, ST1+5, ST1+8, TOTRX+4
>> APCMFAC	LAB+7, TOTLAB1+10, TOTLAB1+11, TOTLAB1+18, TOTLAB1+19, TOTLAB1+20, TOTLAB1+24, TOTLAB1+25, ERX+8, TOTRX+10 , TOTRX+27, TOTRX+28, TOTRX+42, TOTRX+47
>> APCMHVTP(	SEM+6, ST1+3
>> APCMIC	LAB+10, LAB+12, LAB+24, LAB+26, MEDREC+9, MEDREC+11, MEDREC+13, MEDREC+20, MEDREC+22, SEM+5 , ST1+1, ST1+2, ST1+10, ST1+11, ERX+9, ERX+10, ERX+11, D+1, D+3, D+15 , D+17
APCML	TOTLAB+3~
APCMLAB	TOTLAB+3~, TOTLAB1+1~, TOTLAB1+2, TOTLAB1+3, TOTMEDR1+1~, TOTMEDR1+2, TOTMEDR1+3
APCMLAB(	TOTLAB1+6, TOTLAB1+7, TOTLAB1+8, TOTMEDR1+4, TOTMEDR1+5
APCMLAB1	TOTLAB1+1~, TOTLAB1+5!
APCMLABS	LAB+3!, MEDREC+3~
APCMLABS(	LAB+11, LAB+25, TOTLAB1+18, TOTLAB1+19, TOTLAB1+24*
>> APCMMETH	TOTLAB1+11, TOTLAB1+12, TOTRX+9
>> APCMN1	LAB+6, MEDREC+6, SEM+2, ERX+7
APCMP	LAB+5~, LAB+7, LAB+11, LAB+12, LAB+14, LAB+16, LAB+19, LAB+20, LAB+22, LAB+25 , LAB+26, MEDREC+5~, MEDREC+7, MEDREC+8, MEDREC+9, MEDREC+12, MEDREC+13, MEDREC+15, MEDREC+16, MEDREC+18 , MEDREC+21, MEDREC+22, SEM+1~, SEM+4, SEM+5, SEM+6, ST1+2, ST1+3, ST1+11, ERX+6~ , ERX+8, ERX+10, ERX+11, D+2, D+3, D+5, D+7, D+10, D+11, D+13 , D+16, D+17
>> APCMPRV(	MEDREC+7, TOTMEDR1+9, SEM+4
>> APCMRPT	LAB+12, LAB+26, MEDREC+9, MEDREC+13, MEDREC+22, SEM+5, ST1+2, ST1+11, ERX+11, D+3 , D+17
>> APCMRPTT	LAB+7, LAB+12, LAB+26, MEDREC+7, MEDREC+9, MEDREC+13, MEDREC+22, SEM+3, SEM+5, ST1+2 , ST1+11, ERX+8, ERX+11, D+3, D+17
APCMRXS	ERX+4!
APCMRXS(	D+2, D+16, TOTRX+10, TOTRX+28, TOTRX+42, TOTRX+47
>> APCMTIME	LAB+12, LAB+26, MEDREC+9, MEDREC+13, MEDREC+22, SEM+5, ST1+2, ST1+11, ERX+11, D+3 , D+17
>> APCMVALU	LAB+16, LAB+18, LAB+21, LAB+22, MEDREC+16, MEDREC+18, ST1+3, ST1+6, ST1+9, D+7 , D+9, D+12, D+13*
APCMX	TOTLAB+3~, TOTLAB1+6, TOTLAB1+7, TOTLAB1+8, TOTMEDR+3~, TOTMEDR1+4, TOTMEDR1+5
B	TOTLAB+3~, HASCOM+2~, HASCOM+4, IMAGE+1~, IMAGE+6, IMAGE+7, IMAGE+8, IMAGE+18, IMAGE+19, HASMMR+2~ , HASMMR+4, TOTRX+1~, TOTRX+35, TOTRX+36, TOTRX+38, TOTRX+39, TOTRX+40, TOTRX+43, TOTRX+44, TOTRX+45 , TOTRX+46*, TOTRX+47
BDD	HASMMR~, HASMMR+10
C	TOTLAB+3~, TOTLAB+6, TOTMEDR+3~, TOTMEDR+4, TOTMEDR1+11, TOTMEDR1+12, TOTMEDR1+13, CPT+1~, CPT+4, CPT+5 , CPT+6, IMAGE+1~, IMAGE+8, IMAGE+9, IMAGE+11, IMAGE+14, IMAGE+23, IMAGE+24, IMAGE+25, TOTRX+1~ , TOTRX+2*
D	TOTLAB+3~, IMAGE+1~, IMAGE+5, IMAGE+9, IMAGE+14, HASMMR+2~, HASMMR+9, HASMMR+10, HASMMR+11, TOTRX+1~ , TOTRX+12*, TOTRX+13
>> DFN	LAB+17, LAB+22, MEDREC+17, MEDREC+18, ST1+5, D+8, D+13
DIVI	TOTRX+1~, TOTRX+26*, TOTRX+27
E	HASMMR+2~, HASMMR+8*
ED	TOTLAB+3~, TOTLAB+4*
EDD	HASMMR~, HASMMR+11
F	LAB+5~, LAB+10, LAB+12, LAB+24, LAB+26, MEDREC+5~, MEDREC+9, MEDREC+11, MEDREC+13, MEDREC+20* , MEDREC+22, SEM+5, ST1+1, ST1+2, ST1+10, ST1+11, ERX+6~, ERX+10, ERX+11, D+1* , D+3, D+15*, D+17
G	HASCOM+2~, HASCOM+3, HASCOM+4, HASCOM+5, TOTMEDR+3~, TOTMEDR1+15, TOTMEDR1+16, TOTMEDR1+17, TOTMEDR1+18, NUM+6* , NUM+7, IMAGE+1~, IMAGE+4, IMAGE+6, IMAGE+17, IMAGE+18, IMAGE+27, IMAGE+28, TOTRX+1~, TOTRX+31* , TOTRX+37, TOTRX+41, TOTRX+42
>> I	ERX+9*, ERX+10
ID	TOTLAB+3~, TOTRX+1~, TOTRX+3, TOTRX+4, TOTRX+5
L	HASCOM~, HASCOM+1, HASCOM+4
>> LABSNO	TOTLAB+7*
MMR	MEDREC+3~
MMR(	MEDREC+8, MEDREC+12, MEDREC+21, NUM+1, NUM+2, NUM+8*
N	LAB+5~, LAB+11, LAB+12, LAB+25, LAB+26, TOTLAB+3~, TOTLAB+6, MEDREC+5~, MEDREC+12, MEDREC+13 , MEDREC+21, MEDREC+22, TOTMEDR+3~, TOTMEDR+4, ERX+6~, D+2, D+3, D+16, D+17, TOTRX+1~ , TOTRX+2*
>> O	TOTRX+33*, TOTRX+34, TOTRX+35, TOTRX+37, TOTRX+38
OS	TOTRX+1~, TOTRX+25*, TOTRX+26
P	LAB+14, LAB+16, LAB+17, LAB+19, LAB+20, LAB+22, MEDREC+15, MEDREC+16, MEDREC+17, MEDREC+18 , IMAGE+1~, IMAGE+2, IMAGE+3, IMAGE+6, IMAGE+14, HASMMR~, HASMMR+5, D+5, D+7, D+8 , D+10, D+11, D+13
PAR	TOTLAB+3~
PAT	TOTLAB+3~, TOTLAB+6, TOTLAB+9, TOTLAB1+3, TOTLAB1+20, TOTLAB1+25, TOTMEDR+3~, TOTMEDR+4, TOTMEDR+7, TOTMEDR1+3 , NUM+3, NUM+4, NUM+6, NUM+7, NUM+9, NUM+10, TOTRX+1~, TOTRX+21*, TOTRX+23, TOTRX+28 , TOTRX+42, TOTRX+47
R	TOTLAB+3~, TOTMEDR+3~, TOTMEDR1+7*, TOTMEDR1+8, TOTMEDR1+9, TOTMEDR1+17, NUM+1, NUM+2, NUM+3, NUM+4 , NUM+7, NUM+8, NUM+9, NUM+10, IMAGE~, IMAGE+21, TOTRX+1~
S	LAB+18, LAB+19, LAB+20, LAB+21, TOTLAB+3~, D+9, D+10, D+11, D+12, TOTRX+1~ , TOTRX+13*, TOTRX+14, TOTRX+15, TOTRX+16, TOTRX+17, TOTRX+18
>> SD	TOTLAB+5*
T	TOTLAB+8, TOTLAB1+14, TOTMEDR+3~, TOTMEDR+5, TOTMEDR1+13, IMAGE+1~, IMAGE+12*, IMAGE+25, HASMMR+2~
U	LAB+10, LAB+11, LAB+16, LAB+22, LAB+24, LAB+25, TOTLAB1+7, TOTLAB1+8, TOTLAB1+10, TOTLAB1+11 , TOTLAB1+12, TOTLAB1+13, TOTLAB1+16, TOTLAB1+19, TOTLAB1+20, TOTLAB1+22, TOTLAB1+23, TOTLAB1+24, TOTLAB1+25, MEDREC+8 , MEDREC+9, MEDREC+11, MEDREC+12, MEDREC+16, MEDREC+18, MEDREC+20, MEDREC+21, TOTMEDR1+5, TOTMEDR1+10, NUM+2 , NUM+3, NUM+4, NUM+7, NUM+8, NUM+9, NUM+10, IMAGE+2, IMAGE+16, IMAGE+22, HASMMR+7 , SEM+5, ST1+1, ST1+7, ST1+8, ST1+9, ST1+10, ST1+11, ERX+9, ERX+10, D+1 , D+2, D+7, D+13, D+15, D+16, TOTRX+8, TOTRX+9, TOTRX+12, TOTRX+13, TOTRX+21 , TOTRX+28, TOTRX+32, TOTRX+33, TOTRX+35, TOTRX+38, TOTRX+42, TOTRX+43, TOTRX+45, TOTRX+46, TOTRX+47
V	TOTLAB1+7, TOTLAB1+9, TOTLAB1+10, TOTLAB1+11, TOTLAB1+12, TOTMEDR1+5, TOTMEDR1+6, TOTMEDR1+7, TOTMEDR1+10, TOTMEDR1+11 , TOTMEDR1+15, TOTMEDR1+17, NUM+4, CPT~, CPT+3, IMAGE~, IMAGE+2, IMAGE+5, IMAGE+26, ST1+5* , ST1+7, ST1+8, ST1+9, ST1+11, TOTRX+8, TOTRX+9
VST	IMAGE+1~, IMAGE+13!
VST(	IMAGE+16
VST("DTM"	IMAGE+16*, IMAGE+17, IMAGE+18, IMAGE+19
W	HASMMR+2~, HASMMR+5*, HASMMR+6, HASMMR+7, HASMMR+9
X	TOTLAB+3~, CPT+1~, CPT+3, CPT+4, IMAGE+1~, IMAGE+11, IMAGE+16, HASMMR+2~, TOTRX+1~, TOTRX+5 , TOTRX+6, TOTRX+8, TOTRX+11, TOTRX+12, TOTRX+21, TOTRX+25, TOTRX+28, TOTRX+32, TOTRX+33, TOTRX+42 , TOTRX+43, TOTRX+44, TOTRX+45, TOTRX+46, TOTRX+47
Y	TOTLAB+3~, TOTLAB1+8, TOTLAB1+13, TOTLAB1+15, TOTLAB1+16, TOTLAB1+20, TOTLAB1+22, TOTLAB1+23, TOTLAB1+25, IMAGE+1~ , IMAGE+17, IMAGE+18, IMAGE+19, HASMMR+2~, HASMMR+6*, HASMMR+7, TOTRX+1~
Z	IMAGE+1~, IMAGE+19, IMAGE+20, IMAGE+21, IMAGE+22, IMAGE+23, IMAGE+26, HASMMR+2~, HASMMR+4, HASMMR+5 , HASMMR+6, SNN*, SNN+1

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM24E7

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items