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 |  Marked Items |  All
Print Page as PDF
Routine: BDGILD2

Package: IHS Changes To ADT

Routine: BDGILD2


Information

BDGILD2 ; IHS/ANMC/LJF - READMISSIONS BY DATE ;

Source Information

Source file <BDGILD2.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To ADT 4 ($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF  ($$ADMSRVC,$$READM,$$WRDABRV2)^BDGF1  ($$HRCN,$$NEWINS)^BDGF2  ($$OKAY,$$SORT)^BDGILD1  
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 READMISSIONS
; 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
HDG ; heading when printing to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; print to paper
TYPE ;;
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+8
$$CONF^BDGF HDR+2, HDG+2
$$NUMDATE^BDGF INIT+40, INIT+41
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+8
$$ADMSRVC^BDGF1 INIT+43
$$READM^BDGF1 INIT+14
$$WRDABRV2^BDGF1 INIT+44
$$HRCN^BDGF2 INIT+39
$$NEWINS^BDGF2 INIT+58, INIT+59
$$OKAY^BDGILD1 INIT+17
$$SORT^BDGILD1 INIT+19
$$GET1^DIQ INIT+38, INIT+47, INIT+50
EN^VALM EN+5
TERM^VALM0 EN+4
CLEAR^VALM1 EN+4, EN+6
$$FMDIFF^XLFDT INIT+42
$$FMTE^XLFDT HDR+5, HDG+6
$$REPEAT^XLFSTR HDG+8, HDG+11, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BDGILD2",$J,LINE,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !?13,"***",$$CONF^BDGF,"***"
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGUSR,?30,"Readmissions by Date",?71,"Page: ",BDGPG
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,BDGDATE,?(80-$L(X)\2),X
  • 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 #",?31,"Admit Date",?45,"Last Dsch"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: ?55,"Diff",?65,"Serv",?72,"Ward"
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+11
Routine Call
  • VALM
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] INIT+49
^DGPM("AMV1" INIT+9, INIT+10, INIT+11
^DGPM("APTT3" INIT+49
^TMP("BDGILD2" INIT+2!, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD2A" INIT+2!, INIT+20*, INIT+25, INIT+32, INIT+33, INIT+36, INIT+37, INIT+73!

Label References

Name Line Occurrences
$$PAD INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+50, SP+1
$$SP HDR+2, HDR+4, HDR+6, INIT+30, INIT+47, INIT+60, INIT+61, INIT+65
EXIT PRINT+8
HDG PRINT+2, PRINT+5
INIT EN+3
PRINT EN+3
SET INIT+4, INIT+30, INIT+45, INIT+51, INIT+60, INIT+61, INIT+65, INIT+68, INIT+71

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGBD HDR+5, INIT+8, EXIT+1!, HDG+6
BDGCOV INIT+24~, INIT+54*, INIT+60
>> BDGDATE HDG+5
BDGED HDR+5, INIT+8, EXIT+1!, HDG+6
>> BDGINS INIT+53
>> BDGMAX INIT+4, INIT+14
BDGPG PRINT+1~, HDG+1*, HDG+3
BDGRR INIT+24~
BDGRR( INIT+64, INIT+65
BDGSRT INIT+17, EXIT+1!
>> BDGTIME HDG+7
BDGTYP INIT+17, INIT+19, INIT+28, EXIT+1!
>> BDGUSR HDG+3
BDGW INIT+57~, INIT+59*, INIT+61
BDGX INIT+57~, INIT+58*, INIT+61
BDGY INIT+57~, INIT+58*, INIT+61
BDGZ INIT+57~, INIT+59*
D PAD~, PAD+2
DATA SET~, SET+2
DATE INIT+7~, INIT+8*, INIT+9*, INIT+10, INIT+11, INIT+20, INIT+24~, INIT+32*, INIT+33, INIT+36
, INIT+37, INIT+40, INIT+42
DFN INIT+7~, INIT+10*, INIT+11, INIT+14, INIT+17, INIT+20, INIT+24~, INIT+36*, INIT+38, INIT+39
, INIT+43, INIT+49, INIT+58, INIT+59
DUZ(2 INIT+39
END INIT+7~, INIT+8*, INIT+9
I INIT+24~, INIT+64*, INIT+65
IEN INIT+7~, INIT+11*, INIT+14, INIT+17, INIT+19, INIT+20, INIT+24~, INIT+33*, INIT+36, INIT+37
, INIT+43, INIT+44, INIT+47, INIT+58, INIT+59
IO PRINT+2
IOF HDG+1
IOSL PRINT+5
IOST EN+3
L PAD~, PAD+2
LAST INIT+7~, INIT+14*, INIT+20, INIT+24~, INIT+37*, INIT+41, INIT+42, INIT+49
>> LASTCA INIT+49*, INIT+50
LINE INIT+24~, INIT+38*, INIT+39*, INIT+40*, INIT+41*, INIT+42*, INIT+43*, INIT+44*, INIT+45, INIT+47*
, INIT+50*, INIT+51, PRINT+1~, PRINT+4*, PRINT+6
N SP~, SP+1
NUM SET~, SET+1*, SET+2
SORT INIT+7~, INIT+19*, INIT+20, INIT+24~, INIT+25*, INIT+29, INIT+32, INIT+33, INIT+36, INIT+37
U INIT+20, INIT+37, INIT+49
VALMCNT EN+4~, INIT+1*, INIT+4, INIT+30, INIT+45, INIT+51, INIT+60, INIT+61, INIT+65, INIT+68
, INIT+71
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
>> VALMHDR(3 HDR+6*
X HDR+1~, HDR+3*, HDR+4, HDR+5*, HDR+6, INIT+24~, INIT+29*, INIT+30, HELP+1*, HDG+4~*
, HDG+5, HDG+6*, HDG+7

Marked Items

Name Field # of Occurrence
$T(TYPE+BDGTYP HDR+3, HDG+4
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 |  Marked Items |  All