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 |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: BDGCEN20

Package: IHS Changes To ADT

Routine: BDGCEN20


Information

BDGCEN20 ; IHS/ANMC/LJF - CENSUS AID-LIST BY SERVICE ;

Source Information

Source file <BDGCEN20.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
IHS Changes To ADT 1 $$TIME^BDGF  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGCEN2  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;***> subrtn to print heading
; DGPAGE is set by calling routine

External References

Name Field # of Occurrence
$$TIME^BDGF HEAD+8
$$GET1^DIQ HEAD+3, HEAD+4, HEAD+7
$$FMTE^XLFDT BDGCEN20+13, HEAD+11
$$NOW^XLFDT HEAD+8
$$REPEAT^XLFSTR HEAD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO CENSUS DATA FOR THIS SERVICE FOR ",$$FMTE^XLFDT(DGDT),!!
  • Line Location: BDGCEN20+13
Function Call: WRITE
  • Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)
  • Line Location: BDGCEN20+16
Function Call: WRITE
  • Prompt: ?17,$P(DGSTR,U,3+ADJ),?27,$P(DGSTR,U,5+ADJ)
  • Line Location: BDGCEN20+17
Function Call: WRITE
  • Prompt: ?37,$P(DGSTR,U,6+ADJ),?48,$P(DGSTR,U,4+ADJ)
  • Line Location: BDGCEN20+18
Function Call: WRITE
  • Prompt: ?58,$P(DGSTR,U,7+ADJ),?69,$P(DGSTR,U,2+ADJ)
  • Line Location: BDGCEN20+19
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(200,DUZ,2),?80-$L(SITE)/2,SITE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,$$TIME^BDGF($$NOW^XLFDT)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?80-$L(X)/2,X
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(DT),?80-$L(TITLE)/2,TITLE,?70,"Page: ",DGPAGE
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,LINE,!,"Date",?15,"Admits",?25,"Trans In",?35,"Trans Out"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: ?46,"Disch",?55,"Deaths",?65,"Remaining",!,LINE,!
  • Line Location: HEAD+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGCTX - [#9009016.6] BDGCEN20+10, BDGCEN20+12, BDGCEN20+15
^DD("DD" HEAD+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADJ BDGCEN20+3~, BDGCEN20+6*, BDGCEN20+17, BDGCEN20+18, BDGCEN20+19
>> BDGAGE BDGCEN20+6
>> BDGBD BDGCEN20+9
>> BDGED BDGCEN20+10
>> BDGTX BDGCEN20+10, BDGCEN20+12, BDGCEN20+15, HEAD+4
DGDT BDGCEN20+3~, BDGCEN20+9*, BDGCEN20+10*, BDGCEN20+12, BDGCEN20+13, BDGCEN20+15, BDGCEN20+16
>> DGPAGE HEAD+6*, HEAD+11
DGSTR BDGCEN20+3~, BDGCEN20+15*, BDGCEN20+17, BDGCEN20+18, BDGCEN20+19
DT HEAD+10, HEAD+11
DUZ HEAD+7
DUZ(2 HEAD+3
IOF HEAD+6
LINE HEAD+2~, HEAD+3*, HEAD+12, HEAD+13
SITE HEAD+2~, HEAD+3*, HEAD+7
TITLE HEAD+2~, HEAD+4*, HEAD+11
U BDGCEN20+17, BDGCEN20+18, BDGCEN20+19
>> X HEAD+9*
>> Y HEAD+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All