Routine: BDGM202B

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Changes To ADT	1	^BDGM202C
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Changes To ADT	1	BDGM202A

Entry Points

Name	Comments	DBIA/ICR reference
TOT	; -- totals
PART1	; Print Part I
PART2	;W !?26,"Part II - Special Information",!,DGLINE
SRV	;;
COL	; -- columns ; start with transfers between service categories
HD	; print heading

External References

Name	Field # of Occurrence
^BDGM202C	BDGM202B+14
$$GET1^DIQ	HD+11, HD+12, HD+13
$$FMTE^XLFDT	HD+14, HD+15
$$REPEAT^XLFSTR	BDGM202B+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?80-$L(X)/2,X,!,DGLINE,!,"Name and Location of Hospital" Line Location: HD+7
Function Call: WRITE	Prompt: ?80-$L(X)/2,X,!,DGLINE,!,"Name and Location of Hospital" Line Location: HD+8
Function Call: WRITE	Prompt: ?55,"Month and Year",!,$$GET1^DIQ(4,+DUZ(2),.01) Line Location: HD+11
Function Call: WRITE	Prompt: " ",$$GET1^DIQ(9999999.06,DUZ(2),.15) Line Location: HD+12
Function Call: WRITE	Prompt: ", ",$$GET1^DIQ(9999999.06,DUZ(2),.16) Line Location: HD+13
Function Call: WRITE	Prompt: ?55,$$FMTE^XLFDT(BDGBM) Line Location: HD+14
Function Call: WRITE	Prompt: " to ",$$FMTE^XLFDT(BDGEM) Line Location: HD+15
Function Call: WRITE	Prompt: !,DGLINE Line Location: HD+16
Function Call: WRITE	Prompt: !?80-$L(X)/2,X,!,DGLINE Line Location: PART1+2
Function Call: WRITE	Prompt: !?31,"Bom",?48,"Discharges",?64,"Eom",?70,"Inpatient" Line Location: PART1+5
Function Call: WRITE	Prompt: !?31,"Bom",?48,"Discharges",?64,"Eom",?70,"Inpt" Line Location: PART1+6
Function Call: WRITE	Prompt: !?1,"Medical Services Provided",?30,"Census",?40,"Adm" Line Location: PART1+8
Function Call: WRITE	Prompt: ?48,"Death",?55,"Other",?63,"Census",?72,"Days",!,DGLINE,! Line Location: PART1+9
Function Call: WRITE	Prompt: !,$P($T(SRV+S),";;",2) Line Location: COL+7
Function Call: WRITE	Prompt: ?32,$J(DGA(S,1),3),?40,$J(DGA(S,2),3),?48,$J(DGA(S,3),3) Line Location: COL+9
Function Call: WRITE	Prompt: ?55,$J(DGA(S,4),3),?64,$J(DGA(S,5),3),?72,$J(DGA(S,6),4),! Line Location: COL+10
Function Call: WRITE	Prompt: ?30,"-----",?38,"-----",?46,"-----",?53,"-----",?62,"-----" Line Location: TOT+1
Function Call: WRITE	Prompt: ?70,"------" Line Location: TOT+2
Function Call: WRITE	Prompt: !?10,"TOTAL",?32,$J(DGX(1),3),?40,$J(DGX(2),3),?48,$J(DGX(3),3) Line Location: TOT+4
Function Call: WRITE	Prompt: ?55,$J(DGX(4),3),?64,$J(DGX(5),3),?72,$J(DGX(6),4),!,DGLINE Line Location: TOT+5
Function Call: WRITE	Prompt: ! Line Location: TOT+9
Function Call: WRITE	Prompt: ?40,DGA(4,7)_"t" Condition for execution: DGA(4,7) Line Location: TOT+9
Function Call: WRITE	Prompt: ?55,DGA(4,8)_"t" Condition for execution: DGA(4,8) Line Location: TOT+9
Function Call: WRITE	Prompt: $P($T(SRV+S),";;",2) Line Location: TOT+14
Function Call: WRITE	Prompt: ?32,$J(DGA(S,1),3),?40,$J(DGA(S,2),3) Line Location: TOT+15
Function Call: WRITE	Prompt: " ("_DGA(S,7)_"t)" Condition for execution: DGA(S,7) Line Location: TOT+15
Function Call: WRITE	Prompt: ?48,$J(DGA(S,3),3),?55,$J(DGA(S,4),3) Line Location: TOT+16
Function Call: WRITE	Prompt: " ("_DGA(S,8)_"t)" Condition for execution: DGA(S,8) Line Location: TOT+16
Function Call: WRITE	Prompt: ?64,$J($S(DGA(S,5)<0:0,1:DGA(S,5)),3),?72,$J(DGA(S,6),4),! Line Location: TOT+17
Function Call: WRITE	Prompt: DGLINE Line Location: TOT+18
Function Call: WRITE	Prompt: !,"NEWBORN" Line Location: TOT+21
Function Call: WRITE	Prompt: ?32,$J(DGA(4,1),3),?40,$J(DGA(4,2),3),?48,$J(DGA(4,3),3) Line Location: TOT+22
Function Call: WRITE	Prompt: ?55,$J(DGA(4,4),3),?64,$J(DGA(4,5),3),?72,$J(DGA(4,6),4),!,DGLINE Line Location: TOT+23
Function Call: WRITE	Prompt: !?26,"Part II - Special Information" Line Location: PART2+1
Function Call: WRITE	Prompt: !,"Peak Census, Excluding Newborn................................." Line Location: PART2+3
Function Call: WRITE	Prompt: ?64,+$G(DGMAX) Line Location: PART2+5
Function Call: WRITE	Prompt: !,"Minimum Census, Excluding Newborn..............................." Line Location: PART2+7
Function Call: WRITE	Prompt: ?64,$S(+$G(DGMIN)<0:0,1:$G(DGMIN)) Line Location: PART2+9

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDGBM	HD+2, HD+14, HD+15
>> BDGEM	HD+2, HD+15
>> DGA(	COL+4, COL+9, COL+10, TOT+3, TOT+15, TOT+16, TOT+17
>> DGA(4	TOT+9, TOT+22, TOT+23
DGLINE	BDGM202B+8~, BDGM202B+9*, HD+8, HD+16, PART1+2, PART1+9, TOT+5, TOT+18, TOT+23
>> DGMAX	PART2+5
>> DGMIN	PART2+9
>> DGX(	TOT+2, TOT+3
>> DGX(1	TOT+4
>> DGX(2	TOT+4
>> DGX(3	TOT+4
>> DGX(4	TOT+5
>> DGX(5	TOT+5
>> DGX(6	TOT+5
DUZ(2	HD+11, HD+12, HD+13
I	PART1+1~, TOT+2, TOT+3
IO	BDGM202B+10
J	PART1+1~, TOT+3*
S	PART1+1~, PART1+12, COL+4, COL+9, COL+10, TOT+13, TOT+15, TOT+16, TOT+17
X	HD+1~, HD+3, HD+4, HD+8, PART1+1~, PART1+2*
Y	HD+1~

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGM202B

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Marked Items

Name	Line Occurrences
COL	PART1+12
HD	BDGM202B+11
PART1	BDGM202B+12
PART2	BDGM202B+13
TOT	PART1+15