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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDGILD4

Package: IHS Changes To ADT

Routine: BDGILD4


Information

BDGILD4 ; IHS/ANMC/LJF - ICU TRANSFERS ;

Source Information

Source file <BDGILD4.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To ADT 4 ($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF  $$PRIORTXN^BDGF1  $$HRCN^BDGF2  $$ICU^BDGPAR  
Kernel 4 ^%ZISC  ($$FMDIFF,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
SET(DATA,NUM) ; puts display line into array
EN ;EP; -- main entry point for BDG ILD ICU TRANSFERS
; Assumes BDGTYP,BDGBD,BDGED,BDGTYP are set
HDR ; -- header code
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
EXPND ; -- expand code
OKAY(DATE,PAT,IEN) ; is transfer a return and within the time limit?
HDG ; heading when printing to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; print to paper
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+8
$$CONF^BDGF HDR+2, HDG+2
$$NUMDATE^BDGF INIT+30, INIT+36
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+8
$$PRIORTXN^BDGF1 INIT+31
$$HRCN^BDGF2 INIT+27
$$ICU^BDGPAR INIT+11, OKAY+8
$$GET1^DIQ INIT+26, INIT+32, INIT+33, INIT+41, OKAY+2
EN^VALM EN+6
TERM^VALM0 EN+4
CLEAR^VALM1 EN+4, EN+7
$$FMDIFF^XLFDT OKAY+12
$$FMTE^XLFDT HDR+6, HDG+6
$$REPEAT^XLFSTR HDG+8, HDG+13, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BDGILD4",$J,LINE,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGUSR,?13,"***",$$CONF^BDGF,"***"
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?(80-$L(X)\2),X,?71,"Page: ",BDGPG
  • Line Location: HDG+5
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Chart #"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: ?31,"Admit Date",?46,"Transferred"
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: ?31,"Transferred",?46,"Returned w/in"
  • Line Location: HDG+11
Function Call: WRITE
  • Prompt: ?61,"Admitting Dx"
  • Line Location: HDG+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+13
Routine Call
  • VALM
  • Line Location:
    • EN+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] INIT+31
^DGPM("AMV2" INIT+7, INIT+8, INIT+9
^DGPM("APCA" OKAY+6, OKAY+7
^TMP("BDGILD4" INIT+2!, INIT+44, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD4A" INIT+2!, INIT+16*, INIT+21, INIT+22, INIT+25, INIT+37, INIT+46!

Label References

Name Line Occurrences
$$OKAY INIT+14
$$PAD INIT+27, INIT+30, INIT+33, INIT+36, INIT+38, SP+1
$$SP HDR+2, HDR+5, HDR+7
EXIT PRINT+8
HDG PRINT+2, PRINT+5
INIT EN+3
PRINT EN+3
SET INIT+42, INIT+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM OKAY+1~, OKAY+2*, OKAY+6, OKAY+7
BDGBD HDR+6, INIT+6, EXIT+1!, HDG+6
BDGCOV INIT+20~
>> BDGDATE HDG+5
BDGED HDR+6, INIT+6, EXIT+1!, HDG+6
>> BDGMAX HDR+4, OKAY+13, HDG+4
BDGPG PRINT+1~, HDG+1*, HDG+5
BDGRR INIT+20~
BDGSRT EXIT+1!
>> BDGTIME HDG+7
BDGTYP EN+5, HDR+3, HDR+4, INIT+14, INIT+29, INIT+35, EXIT+1!, HDG+3, HDG+4, HDG+10
, HDG+11
>> BDGUSR HDG+2
D PAD~, PAD+2
DATA SET~, SET+2
DATE INIT+5~, INIT+6*, INIT+7*, INIT+8, INIT+9, INIT+14, INIT+16, INIT+20~, INIT+21*, INIT+22
, INIT+25, INIT+30, INIT+31, INIT+36, INIT+37, OKAY~, OKAY+3, OKAY+12
DFN INIT+5~, INIT+8*, INIT+9, INIT+14, INIT+16, INIT+25*, INIT+26, INIT+27, INIT+31
DIFF INIT+5~, INIT+14*, INIT+16
DUZ(2 INIT+27
END INIT+5~, INIT+6*, INIT+7
FOUND OKAY+1~, OKAY+3*, OKAY+6, OKAY+8*, OKAY+10
I INIT+20~
IEN INIT+5~, INIT+9*, INIT+11, INIT+14, INIT+16, INIT+20~, INIT+22*, INIT+25, INIT+31, INIT+37
, INIT+41, OKAY~, OKAY+2
IO PRINT+2
IOF HDG+1
IOSL PRINT+5
IOST EN+3
L PAD~, PAD+2
LAST OKAY+1~, OKAY+3*, OKAY+9*, OKAY+12
LINE INIT+20~, INIT+26*, INIT+27*, INIT+30*, INIT+33*, INIT+36*, INIT+38*, INIT+41*, INIT+42, PRINT+1~
, PRINT+4*, PRINT+6
N OKAY+1~, OKAY+7*, OKAY+8, SP~, SP+1
NUM SET~, SET+1*, SET+2
PAT OKAY~, OKAY+6, OKAY+7
TO OKAY+1~, OKAY+3*, OKAY+6*, OKAY+7, OKAY+9
U INIT+16, INIT+31, INIT+37
VALMCNT EN+4~, INIT+1*, INIT+42, INIT+44
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+5*
>> VALMHDR(3 HDR+7*
X EN+5*, EN+6, HDR+1~, HDR+3*, HDR+4*, HDR+5, HDR+6*, HDR+7, INIT+20~, INIT+31*
, INIT+32*, INIT+33, INIT+37*, INIT+38, OKAY+12*, OKAY+13, HELP+1*, HDG+3~*, HDG+4*, HDG+5
, HDG+6*, HDG+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All