Routine: APCM25EM

Information

APCM25EM ;IHS/CMI/LAB - IHS MU AVG CENSUS;

Source file <APCM25EM.m>

Package	Total	Call Graph
VA Fileman	2	$$LEAP^%DTC $$GET1^DIQ
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT

Package	Total	Caller Graph
Patient Care Component Table Maintiance	1	APCM25E2

Name	Comments	DBIA/ICR reference
1	; step thru ADT Census-Ward file for date range
INIT	; -- init variables and list array
AVCADT(APCMBD,APCMED)	; -- have user select report by ward or by service
AVC(APCMBD,APCMED,F)	;EP - GET # H VISITS IN PREVIOUS CALENDAR YEAR AND DIVIDE BY 365

FileNo	Call Tags
^DIC(42 - [#42]	GET1^DIQ
^BDGWD - [#9009016.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	AVC+11, AVC+12, AVC+13, AVC+14
^AUPNVSIT("B"	AVC+9, AVC+10
^BDGCWD - [#9009016.2]	1+3, 1+9, 1+11
^BDGWD - [#9009016.5]	1+4

Name	Line Occurrences
1	INIT+5

Name	Field # of Occurrence
^(0	1+11

Name	Field # of Occurrence
APCMA	1+1~
APCMA(	1+13*, 1+16, 1+18
APCMADC	INIT+1~, INIT+2!, INIT+7, INIT+9, 1+22*
APCMBD	AVC~, AVC+2, AVCADT~, INIT+3, 1+8
APCMDAYS	INIT+1~, INIT+3*, 1+22
APCMED	AVC~, AVCADT~, INIT+3, 1+9
APCMFRM	AVCADT+1~, AVCADT+2*
APCMIA	AVCADT+1~, AVCADT+3*, 1+4, 1+5
BD	AVC+1~, AVC+3*, AVC+7
D	AVC+1~, AVC+6*, AVC+16
DATE	1+1~, 1+8, 1+9, 1+11
ED	AVC+1~, AVC+4*, AVC+9
F	AVC~, AVC+13
LINE	1+1~
>> SD	AVC+7, AVC+9, AVC+10
T	AVC+1~, AVC+8, AVC+15, AVC+16
TOTAL	1+1~, 1+18*, 1+21, 1+22
U	AVC+12, AVC+13, AVC+14, 1+11
WARD	1+1~, 1+2, 1+3, 1+4, 1+5, 1+6, 1+9, 1+11, 1+16*, 1+18
WRDNM	1+1~, 1+6*, 1+13
X	AVC+1~, AVC+2, AVC+3, AVC+4, AVC+5, AVC+10, AVC+11, AVC+12, AVC+13, AVC+14 , 1+1~, 1+11*, 1+13
Y	AVC+1~, AVC+5*, AVC+6