Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BDGM202B

Package: IHS Changes To ADT

Routine: BDGM202B


Information

BDGM202B ; IHS/ANMC/LJF - M202 PRINT ; [ 01/04/2005 5:03 PM ]

Source Information

Source file <BDGM202B.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Local Variables

Legend:

>> 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~

Marked Items

Name Field # of Occurrence
$T(SRV+S COL+7, TOT+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All