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

Package: IHS Changes To ADT

Routine: BDGSTAT2


Information

BDGSTAT2 ; IHS/ANMC/LJF - INPT STATS BY WARD ;

Source Information

Source file <BDGSTAT2.m>

Call Graph

Call Graph Total: 9

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

Entry Points

Name Comments DBIA/ICR reference
SET(DATA,NUM) ; put data into display array
EN ; -- main entry point for BDG STAT BY WARD
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
SWING(WARD,DATE,DATA) ; subtract out swing bed numbers of ward and date
EXPND ; -- expand code
HDG ; heading if printing to paper
PRINT ; print to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
NEWBORN(WARD,DATE,DATA) ; subtract out newborn numbers of ward and date
ONLY(WARD,NAME,DATE) ; find data by inpt service
LEGEND ; add legend explaining column headings
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+6
$$READ^BDGF BDGSTAT2+10, BDGSTAT2+11, BDGSTAT2+13, BDGSTAT2+16
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+6
ZIS^BDGF BDGSTAT2+18
$$GET1^DIQ INIT+10, INIT+11, ONLY+3
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
$$FMDIFF^XLFDT INIT+4
$$FMTE^XLFDT HDR+2, HDG+3
$$REPEAT^XLFSTR INIT+57, INIT+69, INIT+82, HDG+10, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BDGSTAT2",$J,BDGLN,0)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGUSR,?31,"Statistics by Ward"
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X,?71,"Page: ",BDGPG
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !,BDGDATE,?(80-$L(X)\2),X
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !,"Ward",?11,"ADM",?17,"TXI",?23,"TXO",?29,"DSC",?35,"DTH",?40,"1DAY"
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: ?47,"DAYS",?55,"ADPL",?64,"LOSD",?74,"LOSA"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+10
Routine Call
  • VALM
  • Line Location:
    • EN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.7 - [#45.7] GET1^DIQ
^BDGWD - [#9009016.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGCWD - [#9009016.2] INIT+6, INIT+14, INIT+20, ONLY+2, ONLY+11, NEWBORN+3, SWING+3
^BDGWD - [#9009016.5] INIT+9
^DIC(45.7 - [#45.7] NEWBORN+2, SWING+2
^TMP("BDGSTAT2" INIT+2!, INIT+84, SET+2*, EXIT+1!, PRINT+3, PRINT+5

Label References

Name Line Occurrences
$$PAD INIT+38, INIT+49, INIT+61, INIT+74, SP+1
$$SP HDR+3, HDR+7
EXIT PRINT+6
HDG PRINT+2, PRINT+4
INIT EN+1
LEGEND INIT+86
NEWBORN INIT+21
ONLY INIT+17
PRINT EN+1
SET INIT+46, INIT+57, INIT+69, INIT+82, INIT+84, LEGEND+1, LEGEND+2, LEGEND+3, LEGEND+4, LEGEND+5
, LEGEND+6, LEGEND+7, LEGEND+8
SWING INIT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGA INIT+1~
BDGA( INIT+33*, INIT+37, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, ONLY+32*
BDGBD BDGSTAT2+8~, BDGSTAT2+10*, HDR+2, INIT+4, INIT+13, HDG+3
>> BDGDATE HDG+7
BDGDAYS INIT+1~, INIT+4*, INIT+40, INIT+51, INIT+63, INIT+76
BDGED BDGSTAT2+8~, BDGSTAT2+11*, HDR+2, INIT+4, INIT+14, HDG+3
BDGIA BDGSTAT2+8~, BDGSTAT2+13*, INIT+10
BDGLN PRINT+1~, PRINT+3*, PRINT+5
BDGNB INIT+1~, INIT+60, INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, ONLY+28*
BDGPG PRINT+1~, HDG+1*, HDG+4
>> BDGSWING INIT+73, INIT+75, INIT+76, INIT+77, INIT+78, INIT+79, INIT+80, INIT+81, ONLY+30*
>> BDGTIME HDG+4
BDGTYP BDGSTAT2+8~, BDGSTAT2+16*, HDR+5, HDR+6, INIT+17, ONLY+4, ONLY+6, ONLY+7, ONLY+9, HDG+5
, HDG+6
>> BDGUSR HDG+2
D PAD~, PAD+2
DATA NEWBORN~, NEWBORN+4*, SWING~, SWING+4*, SET~, SET+2
DATE INIT+1~, INIT+13*, INIT+14*, INIT+17, INIT+20, INIT+21, INIT+23, ONLY~, ONLY+2, ONLY+11
, NEWBORN~, NEWBORN+3, SWING~, SWING+3
I INIT+1~, INIT+33*, INIT+34*, INIT+39*, INIT+50*, INIT+62*, INIT+75*, ONLY+1~, ONLY+28*, ONLY+30*
, ONLY+32*, ONLY+33*, NEWBORN+1~, NEWBORN+4*, SWING+1~, SWING+4*
IO PRINT+2
IOF HDG+1
IOSL PRINT+4
IOST EN+1
L PAD~, PAD+2
LINE INIT+1~, INIT+38*, INIT+39*, INIT+40*, INIT+41*, INIT+43*, INIT+45*, INIT+46, INIT+49*, INIT+50*
, INIT+51*, INIT+52*, INIT+54*, INIT+56*, INIT+57, INIT+61*, INIT+62*, INIT+63*, INIT+64*, INIT+66*
, INIT+68*, INIT+69, INIT+74*, INIT+75*, INIT+76*, INIT+77*, INIT+79*, INIT+81*, INIT+82
N SP~, SP+1
NAME ONLY~, ONLY+32
NEWB NEWBORN+1~, NEWBORN+2*, NEWBORN+3
NUM SET~, SET+1*, SET+2
SRV ONLY+1~, ONLY+2*, ONLY+3, ONLY+11
>> SRVNM ONLY+3*, ONLY+4, ONLY+6, ONLY+7, ONLY+9, ONLY+27, ONLY+29
SWING SWING+1~, SWING+2*, SWING+3
TOTAL INIT+1~, INIT+3*, INIT+34*, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+56
, ONLY+33*
U BDGSTAT2+16, INIT+26, INIT+28, INIT+30, INIT+33, INIT+34, INIT+39, INIT+40, INIT+41, INIT+42
, INIT+43, INIT+44, INIT+45, INIT+50, INIT+51, INIT+52, INIT+53, INIT+54, INIT+55, INIT+56
, INIT+62, INIT+63, INIT+64, INIT+65, INIT+66, INIT+67, INIT+68, INIT+75, INIT+76, INIT+77
, INIT+78, INIT+79, INIT+80, INIT+81, ONLY+14, ONLY+16, ONLY+18, ONLY+20, ONLY+22, ONLY+24
, ONLY+28, ONLY+30, ONLY+32, ONLY+33, NEWBORN+4, SWING+4
VALMCNT EN+2~, INIT+3*, INIT+46, INIT+57, INIT+69, INIT+82, INIT+84, LEGEND+1, LEGEND+2, LEGEND+3
, LEGEND+4, LEGEND+5, LEGEND+6, LEGEND+7, LEGEND+8
>> VALMHDR(1 HDR+3*
>> VALMHDR(2 HDR+7*
WARD INIT+1~, INIT+6*, INIT+9, INIT+10, INIT+11, INIT+14, INIT+17, INIT+20, INIT+21, INIT+23
, INIT+37*, INIT+38, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, ONLY~
, ONLY+2, ONLY+11, NEWBORN~, NEWBORN+3, SWING~, SWING+3
WRDNM INIT+1~, INIT+11*, INIT+17, INIT+33
X HDR+1~, HDR+2*, HDR+3, HDR+5*, HDR+6*, HDR+7, INIT+1~, INIT+20*, INIT+21, INIT+23
, INIT+26, INIT+28, INIT+30, INIT+42*, INIT+43, INIT+44*, INIT+45, INIT+53*, INIT+54, INIT+55*
, INIT+56, INIT+65*, INIT+66, INIT+67*, INIT+68, INIT+78*, INIT+79, INIT+80*, INIT+81, ONLY+1~
, ONLY+11*, ONLY+14, ONLY+16, ONLY+18, ONLY+20, ONLY+22, ONLY+24, NEWBORN+1~, NEWBORN+3*, NEWBORN+4
, SWING+1~, SWING+3*, SWING+4, HELP+1*, HDG+3~*, HDG+4, HDG+5*, HDG+6*, HDG+7
Y INIT+1~, INIT+26*, INIT+28*, INIT+30*, INIT+33, INIT+34, ONLY+1~, ONLY+14*, ONLY+16*, ONLY+18*
, ONLY+20*, ONLY+22*, ONLY+24*, ONLY+28, ONLY+30, ONLY+32, ONLY+33
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