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 |  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: BDGLOC1

Package: IHS Changes To ADT

Routine: BDGLOC1


Information

BDGLOC1 ; IHS/ANMC/LJF - LOCATOR CARD - print ;

Source Information

Source file <BDGLOC1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Changes To ADT 2 $$LASTPRV^BDGF1  $$HRCN^BDGF2  
Kernel 2 ^%ZISC  $$FMTE^XLFDT  
IHS Patient 1 KILL^AUPNPAT  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP; entry point from queuing

External References

Name Field # of Occurrence
^%ZISC EN+38
KILL^AUPNPAT EN+39
$$LASTPRV^BDGF1 EN+35
$$HRCN^BDGF2 EN+7
$$GET1^DIQ EN+6, EN+8, EN+9, EN+10, EN+11, EN+14, EN+16, EN+17, EN+18, EN+22
, EN+23, EN+24, EN+25, EN+26, EN+30
$$FMTE^XLFDT EN+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?8,"***Confidential Patient Data***",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: ?5,$E($$GET1^DIQ(2,DFN,.01),1,25)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?29,"Chart #: ",$$HRCN^BDGF2(DFN,DUZ(2))
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !?5,"Age: ",$$GET1^DIQ(9000001,DFN,1102.98)
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: ?23,"Date of Birth: ",$$GET1^DIQ(2,DFN,.03)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?5,"Sex: ",$$GET1^DIQ(2,DFN,.02,"I")
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?28,"Religion: ",$$GET1^DIQ(2,DFN,.08)
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!?5,"Patient's Address: ",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: ?5,$$GET1^DIQ(2,DFN,.111)," ",$$GET1^DIQ(2,DFN,.114)
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: ", ",$$GET1^DIQ(5,+$$GET1^DIQ(2,DFN,.115,"I"),1)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: " ",$$GET1^DIQ(2,DFN,.116)
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!?5,"Next of Kin:"
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !?5,$$GET1^DIQ(2,DFN,.211),?37,$$GET1^DIQ(2,DFN,.212)
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !?5,$$GET1^DIQ(2,DFN,.213)," ",$$GET1^DIQ(2,DFN,.216)
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2,DFN,.217)
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: " ",$$GET1^DIQ(5,+$$GET1^DIQ(2,DFN,.218,"I"),1)
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !?5,"Phone: ",X
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !!?5,"Admission Date: "
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: ?20,$$FMTE^XLFDT(+$$GET1^DIQ(405,BDGN,.01,"I"),"P")
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !?8,"Ward/Room-Bed: ",$G(^DPT(DFN,.1))," / ",$G(^DPT(DFN,.101))
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !,?5,"Attending Provider: "
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: ?25,$$LASTPRV^BDGF1(BDGN,DFN)
  • Line Location: EN+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] EN+2
^DPT - [#2] EN+31, EN+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGN EN+1, EN+2*, EN+30, EN+31, EN+35, EN+38!
DFN EN+1, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+14, EN+16, EN+17
, EN+18, EN+22, EN+23, EN+24, EN+25, EN+26, EN+31, EN+32, EN+35, EN+38!
DUZ(2 EN+7
IO EN+5
U EN+2
>> X EN+14*, EN+26*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All