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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDGIPL1

Package: IHS Changes To ADT

Routine: BDGIPL1


Information

BDGIPL1 ; IHS/ANMC/LJF - ALPHA LIST OF CURRENT INPTS ;

Source Information

Source file <BDGIPL1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 4 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
IHS Changes To ADT 3 ($$CONF,INIT,MSG,PRTKL)^BDGF  ($$CURLOS,$$CURPRV,$$INPT1,$$WRDABRV)^BDGF1  ($$HRCN,$$HRCND,$$INSUR)^BDGF2  
Kernel 3 ^%ZISC  $$REPEAT^XLFSTR  DISP^XQORM1  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
IHS Changes To ADT 8 BDGIPL2  BDGIPL3  BDGIPL4  BDGIPL5  BDGIPL6  BDGIPL7  BDGIPL8  BDGIPL9  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for BDG IPL ALPHA
HDR ; -- header code
SET(LINE,NUM,COUNT,IEN) ;EP - put display line into array
INS() ; returns combination of MCR/MCD/PI
SP(N) ; -- SUBRTN to pad N number of spaces
EXPND ; -- expand code
HDG ; heading for paper report
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; print report to paper
AGE(P) ; return formatted age
LINE ; set up dislay line for patient
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+9
$$CONF^BDGF HDR+2, HDG+2
INIT^BDGF PRINT+2
MSG^BDGF INIT+2
PRTKL^BDGF PRINT+10
$$CURLOS^BDGF1 LINE+16
$$CURPRV^BDGF1 LINE+14
$$INPT1^BDGF1 LINE+15
$$WRDABRV^BDGF1 LINE+10
$$HRCN^BDGF2 LINE+4
$$HRCND^BDGF2 LINE+4
$$INSUR^BDGF2 INS+4
$$GET1^DIQ INIT+9, LINE+3, LINE+6, LINE+13, AGE+1
EN^VALM EN+2
TERM^VALM0 EN+1
CLEAR^VALM1 EN+1, EN+3
FULL^VALM1 EXPND+1
EN^VALM2 EXPND+3
$$REPEAT^XLFSTR HDG+4, HDG+7, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,BDGLN
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGTIME,?16,$$CONF^BDGF,?71,"Page: ",BDGPG
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?24,"Alphabetical List of Current Inpatients",?76,BDGUSR
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !?5,"Patient",?25,"HRCN",?35,"Age",?43,"Community",?60,"Insurance"
  • Line Location: HDG+5
Function Call: WRITE
  • Prompt: !?6,"Ward (Room)",?29,"Srv",?36,"Provider",?60,"Admit Date (LOS)"
  • Line Location: HDG+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(45.7 - [#45.7] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] INS+3
^DPT - [#2] LINE+11, LINE+13, INS+2
^DPT("CN" INIT+7, INIT+8
^TMP("BDGIPL" INIT+3!, SET+2*, SET+3*, PRINT+5, PRINT+7, EXIT+1!, EXPND+6, EXPND+7, EXPND+8, EXPND+9
^TMP("BDGIPL1" INIT+3!, INIT+9*, INIT+12, INIT+13, INIT+16!

Label References

Name Line Occurrences
$$AGE LINE+5
$$INS LINE+7
$$PAD LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+13, LINE+14, LINE+15, LINE+16, SP+1
$$SP HDR+2, LINE+2, LINE+10
EXIT PRINT+10
HDG PRINT+2, PRINT+6
INIT BDGIPL1+6
LINE INIT+14
PRINT BDGIPL1+6
SET LINE+8, LINE+17, LINE+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS INS+1~
BDGCNT INIT+1~, INIT+4*, LINE+2, LINE+8, LINE+17, LINE+18, LINE+21*
>> BDGCOP PRINT+9
>> BDGDATE HDG+3
BDGLN PRINT+1~, PRINT+7*, PRINT+8
BDGPG PRINT+1~, HDG+1*, HDG+2
>> BDGTIME HDG+2
>> BDGUSR HDG+3
BDGX PRINT+1~, PRINT+5*, PRINT+7
COUNT SET~, SET+3
D PAD~, PAD+2
DATE INS+1~, INS+2*, INS+3*, INS+4
DFN INIT+1~, INIT+8*, INIT+9, INIT+13*, LINE+3, LINE+4, LINE+5, LINE+6, LINE+8, LINE+10
, LINE+11, LINE+13, LINE+14, LINE+15, LINE+16, LINE+17, LINE+18, INS+2, INS+4, EXPND+5!
, EXPND+6, EXPND+9*, AGE+1
DT LINE+15
DUZ(2 LINE+4
IEN SET~, SET+3
IO PRINT+2
IOF HDG+1
IOSL PRINT+6
IOST BDGIPL1+6, INIT+2, LINE+2
L PAD~, PAD+2
LINE LINE+1~, LINE+2*, LINE+3*, LINE+4*, LINE+5*, LINE+6*, LINE+7*, LINE+8, LINE+10*, LINE+12*
, LINE+13*, LINE+14*, LINE+15*, LINE+16*, LINE+17, SET~, SET+2
N SP~, SP+1
NAME INIT+1~
>> NM INIT+12*, INIT+13
NUM SET~, SET+1*, SET+2, SET+3
P AGE~
VALMCNT EN+1~, INIT+4*, LINE+8, LINE+17, LINE+18
>> VALMHDR(1 HDR+2*
>> VALMY EXPND+4
>> VALMY( EXPND+5
WD INIT+1~, INIT+7*, INIT+8
X HDR+1~, LINE+1~, LINE+11*, LINE+12, HELP+1*, EXPND+2~, EXPND+5*, EXPND+9, AGE+1~*, AGE+2*
, AGE+3
>> XQORNOD(0 EXPND+3
Y EXPND+2~, EXPND+6*, EXPND+7, EXPND+8, EXPND+9
Z EXPND+2~, EXPND+7*, EXPND+8, EXPND+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All