Routine: BDGICF21

Information

BDGICF21 ; IHS/ANMC/LJF - VIEW IC SUMMARY ; [ 08/20/2004 11:45 AM ]

Source file <BDGICF21.m>

Package	Total	Call Graph
Kernel	3	^%ZISC ($$REPEAT,$$RJ)^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 CLEAR^VALM1
IHS Changes To ADT	1	$$CONF^BDGF
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGICF2

Name	Comments	DBIA/ICR reference
SET(DATA,NUM)	; put display data into array
EN	; -- main entry point for BDG IC VIEW
EXPND	; -- expand code
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
DATA(FLD,LEN)	; process one field
OBS	; process observation fields
HDG	; heading for paper report
INIT	; -- init variables and list array
DATES(TYP)	; set up travel fields for display
HELP	; -- help code
HOS	; process admission fields
PRINT	; print report to paper
EXIT	; -- exit code
DAY	; process day surgery fields
DEF	; find deficiencies to display
TITLE(F)	; return field F name or title

Name	Field # of Occurrence
^%ZISC	PRINT+10
$$CONF^BDGF	HDR+2
$$GET1^DIQ	HDR+3, HDR+4, HDR+5, INIT+5, INIT+12, DATA+2, DATA+4, DATA+5, DEF+8, DEF+11 , DEF+15, DEF+16, DEF+17, DEF+21, DEF+23, DEF+27, DEF+29, DEF+33
EN^VALM	EN+4
TERM^VALM0	EN+3
CLEAR^VALM1	EN+3, EN+5
$$REPEAT^XLFSTR	PAD+2, HDG+5
$$RJ^XLFSTR	DATA+3
DISP^XQORM1	HELP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,^TMP("BDGICF2",$J,BDGX,0) Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF,?15,"Scheduled Visit Summary" Line Location: HDG+2
Function Call: WRITE	Prompt: @IOF,?15,"Incomplete Chart Summary" Line Location: HDG+3
Function Call: WRITE	Prompt: !,VALMHDR(I) Line Location: HDG+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HDG+5
Routine Call	VALM Line Location: EN+4

Name	Line Occurrences (* Changed, ! Killed)
^BDGIC - [#9009016.1]	DEF+4, DEF+5
^DD(9009016.1	TITLE+1, TITLE+2
^TMP("BDGICF2"	INIT+2!, SET+2*, EXIT+1!, PRINT+7, PRINT+9

Name	Line Occurrences
$$PAD	HDR+4, HDR+5, DEF+15, DEF+17, SP+1
$$SP	HDR+2, INIT+8, DEF+13, DEF+15, DEF+22, DEF+28, DEF+34
$$TITLE	DATA+3
@(	INIT+13
DATA	INIT+18, HOS+2, DAY+2, DATES+2, DATES+3, DATES+4
DATES	INIT+16
DAY	OBS+1
DEF	INIT+19
EXIT	PRINT+10
HDG	PRINT+4, PRINT+8
HDR	HDG+3
INIT	EN+2
PRINT	EN+2
SET	INIT+9, INIT+14, INIT+15, INIT+17, DATA+6, DEF+13, DEF+18, DEF+24, DEF+30, DEF+34 , DATES+4

Name	Field # of Occurrence
>> BDGIC	DEF+8, DEF+11
>> BDGN	HDR+3, HDR+4, HDR+5, INIT+5, INIT+12, DATA+2, DATA+4, DATA+5, DEF+4, DEF+5 , DEF+8, DEF+11, DEF+16, DEF+17, DEF+21, DEF+23, DEF+27, DEF+29, DEF+33
BDGX	PRINT+1~, PRINT+7*, PRINT+9
D	PAD~, PAD+2
DATA	SET~, SET+2
DFN	INIT+1~
F	TITLE~, TITLE+1, TITLE+2
FIELD	HOS+1~, HOS+2, DAY+1~, DAY+2, DATES+1~, DATES+3*
FIRST	DEF+1~, DEF+3, DEF+13
FLD	DATA~, DATA+2, DATA+3, DATA+4, DATA+5
>> I	HDG+4*
IEN	DEF+1~, DEF+5*, DEF+8, DEF+11, DEF+16, DEF+17, DEF+21, DEF+23, DEF+27, DEF+29 , DEF+33
IO	PRINT+4
IOF	HDG+3
>> IORVOFF	INIT+8
>> IORVON	INIT+8
IOSL	PRINT+8
IOST	EN+2
L	PAD~, PAD+2
LEN	DATA~, DATA+3
LINE	INIT+1~, INIT+8, INIT+9, DATA+1~, DATA+3, DATA+4, DATA+5, DATA+6, DEF+1~, DEF+15* , DEF+16, DEF+17, DEF+18, DEF+22, DEF+23, DEF+24, DEF+28, DEF+29, DEF+30
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2
PRV	DEF+1~, DEF+4*, DEF+5, DEF+15
TYP	INIT+1~, INIT+12*, INIT+13, INIT+16, DATES~, DATES+2
U	TITLE+2
VALMCNT	EN+1~, INIT+3*, INIT+9, INIT+14, INIT+15, INIT+17, DATA+6, DEF+13, DEF+18, DEF+24 , DEF+30, DEF+34, DATES+4
>> VALMHDR(	HDG+4
>> VALMHDR(1	HDR+2*
>> VALMHDR(2	HDR+6*
X	HDR+1~, HDR+3, HDR+4, HDR+5, HDR+6, INIT+1~, INIT+5, INIT+8, DATA+1~, DATA+2* , DATA+3, DEF+1~, DEF+21, DEF+22, DEF+27, DEF+28, DEF+33, DEF+34, TITLE+1~, TITLE+2 , HELP+1*