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

Package: IHS Changes To ADT

Routine: BDGIPL6


Information

BDGIPL6 ; IHS/ANMC/LJF - CHAPLAIN'S LIST ;

Source Information

Source file <BDGIPL6.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Changes To ADT 3 ($$CONF,INIT,PRTKL)^BDGF  $$INPT1^BDGF1  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 CHAPLAIN
; 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
SP(N) ; -- SUBRTN to pad N number of spaces
EXPND ; -- expand code
HDG ; heading for paper report
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+13
$$CONF^BDGF HDR+2, HDG+2
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+14
$$INPT1^BDGF1 LINE+7
SET^BDGIPL1 SET+1
$$GET1^DIQ INIT+8, LINE+2, LINE+4, LINE+6, AGE+1
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
$$REPEAT^XLFSTR HDG+6, HDG+9, PAD+2
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,BDGLN
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGUSR,?16,$$CONF^BDGF
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?32,"Chaplain's List",?70,"Page: ",BDGPG
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+6
Function Call: WRITE
  • Prompt: !,"Ward",?7,"Room",?15,"Patient Name",?35,"Age",?45,"Community"
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: ?65,"Admit Date"
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+9
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
^AUPNPAT - [#9000001] GET1^DIQ
^BDGWD - [#9009016.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] LINE+2
^DPT - [#2] INIT+10
^DPT("CN" INIT+6, INIT+7
^TMP("BDGIPL" INIT+2!, PRINT+5, PRINT+6, EXIT+1!
^TMP("BDGIPL1" INIT+2!, INIT+11*, INIT+14, INIT+24, INIT+25, INIT+26, INIT+29!

Label References

Name Line Occurrences
$$AGE LINE+5
$$PAD LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, SP+1
$$SP HDR+2, HDR+4
EXIT PRINT+14
HDG PRINT+2, PRINT+9, PRINT+11
INIT BDGIPL6+7
LINE INIT+27
PRINT BDGIPL6+7
SET INIT+18, INIT+21, LINE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGCNT INIT+1~, INIT+3*, INIT+18, INIT+21, LINE+8
>> BDGCOP PRINT+13
>> BDGDATE HDG+3
BDGLN PRINT+1~, PRINT+6*, PRINT+9, PRINT+12
BDGPG PRINT+1~, HDG+1*, HDG+3
>> BDGSRT HDR+3, INIT+9, INIT+16, HDG+4
>> BDGTIME HDG+5
>> BDGUSR HDG+2
BDGX PRINT+1~, PRINT+5*, PRINT+6
COUNT SET~, SET+1
D PAD~, PAD+2
DFN INIT+1~, INIT+7*, INIT+8, INIT+10, INIT+11, INIT+26*, LINE+4, LINE+5, LINE+6, LINE+7
, LINE+8, AGE+1
DT LINE+7
FIRST INIT+1~, INIT+3*, INIT+18, INIT+19*
IEN SET~, SET+1
IO PRINT+2
IOF HDG+1
>> IORVOFF INIT+21
>> IORVON INIT+21
IOSL PRINT+11
IOST BDGIPL6+7, INIT+18
L PAD~, PAD+2
LINE LINE+1~, LINE+3*, LINE+4*, LINE+5*, LINE+6*, LINE+7*, LINE+8, SET~, SET+1
N SP~, SP+1
NAME INIT+1~
NUM SET~, SET+1
P AGE~
REL INIT+8*, INIT+9, INIT+11, INIT+14*, INIT+21, INIT+24, INIT+25, INIT+26, PRINT+1~
>> RM INIT+10*, INIT+11, INIT+25*, INIT+26, LINE+3
U HDR+3, INIT+9, HDG+4
VALMCNT EN+2~, INIT+3*, INIT+18, INIT+21, LINE+8
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
WD INIT+1~, INIT+6*, INIT+7, INIT+11, INIT+24*, INIT+25, INIT+26, LINE+2
X HDR+1~, HDR+3*, HDR+4, LINE+1~, LINE+2*, LINE+3, HDG+4*, HDG+5, HELP+1*, AGE+1~*
, AGE+2*, AGE+3
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