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

Package: IHS Changes To ADT

Routine: BDGPI3


Information

BDGPI3 ; IHS/ANMC/LJF,WAR - DAY SURGERY DETAILS ; [ 02/20/2004 8:59 AM ]

Source Information

Source file <BDGPI3.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS Changes To ADT 2 PAUSE^BDGF  $$HRCN^BDGF2  
VA Fileman 2 ^DIC  $$GET1^DIQ  
IHS Additions To Surgery 1 VIEW^BSRLA0  
Kernel 1 $$REPEAT^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To ADT 2 BDGPI  BDGPV1  

Entry Points

Name Comments DBIA/ICR reference
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
EN(SRDR,BDGDS,DFN) ;EP; -- main entry point for BDG PI - DAY SURGERY;IHS/ITSC/LJF PATCH 1003
; SRDR = ien in Surgery file
; BDGDS = ien in Day Surgery file
; At least one of these must be set

External References

Name Field # of Occurrence
PAUSE^BDGF EN+10, EN+54
$$HRCN^BDGF2 EN+8
VIEW^BSRLA0 EN+7, EN+10
^DIC EN+8
$$GET1^DIQ EN+17, EN+18, EN+21, EN+23, EN+26, EN+27, EN+30, EN+31, EN+34, EN+39
, EN+42, EN+44, EN+47, EN+51
$$REPEAT^XLFSTR PAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+32
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,"Interview Comments:"
  • Line Location: EN+48
Function Call: WRITE
  • Prompt: !?4,BDGWP(I)
  • Line Location: EN+49
Function Call: WRITE
  • Prompt: !,"Post-Op Comments: "_X
  • Line Location: EN+52
Routine Call
  • DIC
  • Line Location:
    • EN+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9009012.01 GET1^DIQ

Label References

Name Line Occurrences
$$PAD EN+18, EN+22, EN+26, EN+30, EN+37, EN+39, EN+43, EN+45, SP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGDS EN~, EN+14, EN+16
>> BDGWP EN+47*
>> BDGWP( EN+49
>> BDGWP(0 EN+48
>> BSDWP( EN+49
D PAD~, PAD+2
DFN EN~, EN+8, EN+16
>> DIC EN+8*
>> DIC(0 EN+8*
DIERR EN+6!
DUZ(2 EN+8
>> I EN+49*
IENS EN+15~, EN+16*, EN+17, EN+18, EN+21, EN+23, EN+26, EN+27, EN+30, EN+31
, EN+34, EN+39, EN+42, EN+44, EN+47, EN+51
L PAD~, PAD+2
LINE EN+15~, EN+17*, EN+18*, EN+19, EN+22*, EN+23*, EN+24, EN+26*, EN+27*, EN+28
, EN+30*, EN+31*, EN+32, EN+36*, EN+37*, EN+38, EN+39*, EN+40, EN+43*, EN+45*
N SP~, SP+1
SRDR EN~, EN+7, EN+9~*
X EN+8*, EN+15~, EN+21*, EN+22, EN+26, EN+30, EN+34*, EN+35, EN+37, EN+51*
, EN+52
>> Y EN+8, EN+9

Marked Items

Name Field # of Occurrence
$T(VIEW^BSRLA0 EN+7
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