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

Package: IHS Changes To ADT

Routine: BDGIPL4


Information

BDGIPL4 ; IHS/ANMC/LJF - CURR INPTS BY SERVICE ;

Source Information

Source file <BDGIPL4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Changes To ADT 4 ($$CONF,INIT,PRTKL)^BDGF  ($$ADMSRV,$$CURPRV,$$LASTTXN,$$WRDABRV)^BDGF1  $$HRCN^BDGF2  SET^BDGIPL1  
Kernel 3 ^%ZISC  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for BDG IPL BY SERVICE
; assumes BDGSRT is set
HDR ; -- header code
SET(LINE,NUM,COUNT,IEN) ; put display line into array
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
TRANSFER ; returns new service and date if transferred from admtg service
EXPND ; -- expand code
HDG ; heading for paper report
SERVS() ; returns service name or "selected services";IHS/ANMC/LJF 10/31/2002
INIT ; -- init variables and list array
EXIT ; -- exit code
SP(N) ; -- SUBRTN to pad N number of spaces
PRINT ; print report to paper
PATLOOP ; loop by dfn then sort results by name
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+7
$$CONF^BDGF HDR+2, HDG+3
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+8
$$ADMSRV^BDGF1 TRANSFER+5
$$CURPRV^BDGF1 INIT+38
$$LASTTXN^BDGF1 TRANSFER+15
$$WRDABRV^BDGF1 INIT+36
$$HRCN^BDGF2 INIT+35
SET^BDGIPL1 SET+1
$$GET1^DIQ INIT+15, INIT+43, PATLOOP+4, TRANSFER+8, TRANSFER+15, TRANSFER+18
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
$$REPEAT^XLFSTR HDG+12, HDG+15, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^TMP("BDGIPL",$J,BDGX,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***"
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,BDGDATE,?24,"Current Inpatients by Service",?70,"Page: ",BDGPG
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+11
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+12
Function Call: WRITE
  • Prompt: !?5,"Patient Name",?27,"Chart #",?36,"Ward",?43,"Room-Bed"
  • Line Location: HDG+13
Function Call: WRITE
  • Prompt: ?55,"Primary/Attending"
  • Line Location: HDG+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+3

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)
^DIC(45.7 - [#45.7] TRANSFER+12
^DPT - [#2] INIT+37, TRANSFER+4
^DPT("ATR" INIT+12, PATLOOP+3
^DPT("CN" TRANSFER+2, TRANSFER+3
^TMP("BDGIPL" INIT+2!, INIT+53, PRINT+4, PRINT+6, EXIT+1!
^TMP("BDGIPL1" INIT+2!, INIT+21, INIT+30, INIT+31, INIT+42, INIT+51, INIT+56!, PATLOOP+4*, TRANSFER+18*

Label References

Name Line Occurrences
$$PAD INIT+35, INIT+36, INIT+37, INIT+38, SP+1
$$SERVS HDR+5, HDG+7
$$SP HDR+2, HDR+6, HDR+9, INIT+33, INIT+43
EXIT PRINT+8
HDG PRINT+2, PRINT+5
INIT BDGIPL4+6
PATLOOP INIT+18
PRINT BDGIPL4+6
SET INIT+25, INIT+28, INIT+39, INIT+45, INIT+51, INIT+54
TRANSFER INIT+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGCNT INIT+1~, INIT+3*, INIT+25, INIT+28, INIT+33, INIT+39, INIT+45, INIT+48*, INIT+51, INIT+54
>> BDGCOP PRINT+7
>> BDGDATE HDG+4
BDGPG PRINT+1~, HDG+2*, HDG+4
>> BDGSRT HDR+5, INIT+13, TRANSFER+12, TRANSFER+14, HDG+7
>> BDGSRT( INIT+13, TRANSFER+12, SERVS+2, SERVS+3
>> BDGSRT(0 SERVS+2
>> BDGSRT2 HDR+7, HDR+8, INIT+11*, INIT+16, INIT+17, TRANSFER+14, HDG+8, HDG+9
BDGSRV INIT+1~, INIT+12*, INIT+13, INIT+15, PATLOOP+3
BDGSVN INIT+1~, INIT+15*, INIT+16, INIT+17, PATLOOP+2, PATLOOP+4
>> BDGTIME HDG+11
>> BDGUSR HDG+3
BDGX PRINT+1~, PRINT+4*, PRINT+6
CA TRANSFER+1~, TRANSFER+4*, TRANSFER+5, TRANSFER+15
COUNT SET~, SET+1
D PAD~, PAD+2
DATE TRANSFER+1~, TRANSFER+15*, TRANSFER+18
DFN INIT+1~, INIT+31*, INIT+35, INIT+36, INIT+37, INIT+38, INIT+39, INIT+42, INIT+43, INIT+45
, PATLOOP+1~, PATLOOP+3*, PATLOOP+4, TRANSFER+3*, TRANSFER+4, TRANSFER+5, TRANSFER+8, TRANSFER+15, TRANSFER+18
DUZ(2 INIT+35
IEN SET~, SET+1
IO PRINT+2
IOF HDG+2
>> IORVOFF INIT+28
>> IORVON INIT+28
IOSL PRINT+5
IOST BDGIPL4+6, INIT+33
L PAD~, PAD+2
LINE INIT+1~, INIT+33*, INIT+34*, INIT+35*, INIT+36*, INIT+37*, INIT+38*, INIT+39, INIT+43*, INIT+44*
, INIT+45, SET~, SET+1
N SP~, SP+1
NAME INIT+1~, INIT+30*, INIT+31, INIT+34, INIT+42, INIT+51
NUM SET~, SET+1
SRV INIT+1~, INIT+21*, INIT+24, INIT+25, INIT+28, INIT+30, INIT+31, INIT+42, INIT+51, TRANSFER+1~
, TRANSFER+5*, TRANSFER+8, TRANSFER+12, TRANSFER+14, TRANSFER+18
VALMCNT EN+2~, INIT+3*, INIT+25, INIT+28, INIT+39, INIT+45, INIT+51, INIT+54*
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+6*
>> VALMHDR(3 HDR+9*
>> WARD TRANSFER+2*, TRANSFER+3
X HDR+1~, HDR+5*, HDR+6, HDR+8*, HDR+9, INIT+42*, INIT+44, TRANSFER+12~*, HDG+1~, HDG+7*
, HDG+10*, HDG+11, SERVS+1~, SERVS+2*, SERVS+3, HELP+1*
Y HDG+1~, HDG+9*, HDG+10
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