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

Package: IHS Changes To ADT

Routine: BDGILD63


Information

BDGILD63 ; IHS/ANMC/LJF - TRANSFERS BETWEEN FACILITIES(PRINT) ;

Source Information

Source file <BDGILD63.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Changes To ADT 1 (KILL,TIME)^ADGUTIL  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DSCH3
DSCH2
DSCH1
END ;EP; ***> eoj
DSCH4
HEAD ;***> subrtn to print heading
NEWPG ;***> subrtn for end of page code
END1 ;EP;
DSCH ;***> print discharges by date, service, then facility
ADM4
LINE ;***> subrtn to print line
ADM1
ADM2
ADM3

External References

Name Field # of Occurrence
^%ZISC END1+2
KILL^ADGUTIL END1+1
TIME^ADGUTIL HEAD+5
^DIR END+1, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?30,"ADMISSIONS",!
  • Line Location: BDGILD63+5
Function Call: WRITE
  • Prompt: !!?30,"DISCHARGES",!
  • Line Location: DSCH+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END1+1
Function Call: WRITE
  • Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3)_"@"_DGTM
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: ?17,$E($P(^DPT(DFN,0),U),1,20)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?40,$J(DGHR,6)
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?52,$E(DGSV,1,3),?60,$E(DGF,1,18)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGLINE
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGFAC)/2,DGFAC
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPAGE
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?80-$L(DGX)/2,DGX
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,DGLINE,!,"Date/Time",?17,"Patient Name",?40,"Chart #"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?50,"Service",?60,"Facility",!,DGLINE2,!
  • Line Location: HEAD+9
Routine Call
  • DIR
  • Line Location:
    • END+1
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] LINE+4
^DD("DD" HEAD+6
^DPT - [#2] LINE+3
^TMP("BDGILD61A" ADM1, ADM2, ADM3, ADM4, END1+2!
^TMP("BDGILD61D" DSCH1, DSCH2, DSCH3, DSCH4, END1+2!

Label References

Name Line Occurrences
ADM1 ADM2
ADM2 ADM3
ADM3 ADM4
ADM4 ADM4+1
DSCH ADM1
DSCH1 DSCH2
DSCH2 DSCH3
DSCH3 DSCH4
DSCH4 DSCH4+1
END DSCH1
END1 ADM4+1, DSCH4+1
HEAD BDGILD63+5, NEWPG+1, NEWPG+3
LINE ADM4+1, DSCH4+1
NEWPG BDGILD63+5, DSCH+1, LINE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BDGTYP BDGILD63+5
>> DFN ADM3*, ADM4*, DSCH3*, DSCH4*, LINE+3, LINE+4
>> DGDT BDGILD63+5*, ADM1*, ADM2, ADM3, ADM4, DSCH+1*, DSCH1*, DSCH2, DSCH3, DSCH4
, LINE+1, LINE+2
>> DGDUZ HEAD+4
>> DGF ADM2*, ADM3*, ADM4, DSCH2*, DSCH3*, DSCH4, LINE+5
>> DGFAC HEAD+4
>> DGHR LINE+4*
>> DGLINE HEAD+2, HEAD+8
>> DGLINE2 HEAD+9
>> DGPAGE HEAD+1, HEAD+2*, HEAD+5
>> DGSTOP BDGILD63+3*, ADM4+1, DSCH4+1, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSV ADM1*, ADM2*, ADM3, ADM4, DSCH1*, DSCH2*, DSCH3, DSCH4, LINE+5
>> DGTM LINE+1*, LINE+2
>> DGTY HEAD+4*, HEAD+5
>> DGX HEAD+7*
DIR END+1!, NEWPG+2!
DIR(0 END+1*, NEWPG+2*
DT HEAD+6
DUZ(2 LINE+4
IOF END1+1, HEAD+1
IOSL DSCH+1, LINE+6
IOST END+1, NEWPG+1, HEAD+1
U ADM4+1, DSCH4+1, LINE+3, LINE+4, NEWPG+3
>> X NEWPG+2
>> Y HEAD+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All