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

Package: IHS Changes To ADT

Routine: BDGIPL7


Information

BDGIPL7 ; IHS/ANMC/LJF - CURR INPTS W/INSURANCE ;

Source Information

Source file <BDGIPL7.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Changes To ADT 4 ($$CONF,INIT,PRTKL)^BDGF  ($$CURPRV,$$INPT1)^BDGF1  ($$HRCN,$$HRCND,$$NEWINS,NEWINS)^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 INSURANCE
; assumes BDGSRT is set
INITC ;-- init variables for coverage type and list array
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
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
$$CURPRV^BDGF1 LINE+7
$$INPT1^BDGF1 LINE+8
$$HRCN^BDGF2 LINE+4
$$HRCND^BDGF2 LINE+4
$$NEWINS^BDGF2 INITC+8, INITC+10, INITC+12, INITC+31, INITC+33, INITC+35, LINE+19, LINE+20
NEWINS^BDGF2 INITC+14, INITC+37
SET^BDGIPL1 SET+1
$$GET1^DIQ INIT+9, INIT+14, INITC+7, INITC+17, INITC+23, INITC+39, LINE+3, LINE+6, LINE+12, LINE+14
EN^VALM EN+3
TERM^VALM0 EN+2
CLEAR^VALM1 EN+2, EN+4
$$REPEAT^XLFSTR HDG+7, HDG+10, 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,?20,"Insurance Coverage for Current Inpatients"
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: ?71,"Page: ",BDGPG
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !,BDGTIME,?(80-$L(X)\2),X
  • Line Location: HDG+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !?5,"Patient",?25,"Chart #",?35,"Room",?43,"Srv",?50,"Provider"
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: ?67,"Admit Date"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+10
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)
^DPT - [#2] LINE+5, LINE+6, LINE+12
^DPT("CN" INIT+8, INIT+12, INIT+13, INITC+5, INITC+20, INITC+21
^TMP("BDGIPL" INIT+2!, PRINT+5, PRINT+6, EXIT+1!
^TMP("BDGIPL1" INIT+2!, INIT+9*, INIT+14*, INIT+17, INIT+27, INIT+28, INIT+31!, INITC+17*, INITC+39*, INITC+42
, INITC+53, INITC+54, INITC+55, INITC+58!

Label References

Name Line Occurrences
$$PAD LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+27, SP+1
$$SP HDR+2, HDR+4, LINE+2, LINE+12, LINE+22, LINE+32
EXIT PRINT+14
HDG PRINT+2, PRINT+9, PRINT+11
INIT BDGIPL7+9
INITC INIT+5
LINE INIT+29, INITC+56
PRINT BDGIPL7+9
SET INIT+22, INIT+25, INITC+47, INITC+50, LINE+9, LINE+28, LINE+32, LINE+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM LINE+1~, LINE+14*, LINE+19, LINE+20
BDGADM INITC+3~, INITC+7*, INITC+8, INITC+10, INITC+12, INITC+14, INITC+23*, INITC+31, INITC+33, INITC+35
, INITC+37
BDGCNT INIT+1~, INIT+3*, INIT+22, INIT+25, INITC+47, INITC+50, LINE+2, LINE+9, LINE+28, LINE+32
, LINE+34, LINE+37*
>> BDGCOP PRINT+13
BDGCOV INITC+3~, INITC+6*, INITC+9*, INITC+11*, INITC+13*, INITC+15*, INITC+16*, INITC+17, INITC+22*, INITC+32*
, INITC+34*, INITC+36*, INITC+38*, INITC+39, LINE+1~, LINE+13*, LINE+27
>> BDGDATE HDG+3
BDGLN PRINT+1~, PRINT+6*, PRINT+9, PRINT+12
BDGMCD INITC+3~, INITC+8*, INITC+9, INITC+31*, INITC+32
BDGMCR INITC+3~, INITC+10*, INITC+11, INITC+33*, INITC+34
BDGPG PRINT+1~, HDG+1*, HDG+4
BDGRAIL INITC+3~, INITC+12*, INITC+13, INITC+35*, INITC+36
BDGRR INITC+3~, INITC+15, LINE+18~
BDGRR( LINE+31, LINE+32
>> BDGSRT HDR+3, INIT+7, INIT+8, INIT+19, INITC+4, INITC+5, INITC+44, HDG+5
>> BDGSRT2 INIT+5
>> BDGTIME HDG+6
>> BDGUSR HDG+2
BDGW LINE+18~, LINE+20*, LINE+22
BDGX LINE+18~, LINE+19*, LINE+22, PRINT+1~, PRINT+5*, PRINT+6
BDGY LINE+18~, LINE+19*, LINE+22
BDGZ LINE+18~, LINE+20*
COUNT SET~, SET+1
COV INITC+52~, INITC+53*, INITC+54, INITC+55
D PAD~, PAD+2
DFN INIT+1~, INIT+8*, INIT+9, INIT+13*, INIT+14, INIT+28*, INITC+5*, INITC+7, INITC+8, INITC+10
, INITC+12, INITC+14, INITC+17, INITC+21*, INITC+23, INITC+31, INITC+33, INITC+35, INITC+37, INITC+39
, INITC+55*, LINE+3, LINE+4, LINE+5, LINE+6, LINE+7, LINE+8, LINE+9, LINE+12, LINE+14
, LINE+19, LINE+20, LINE+28, LINE+32
DT LINE+8
DUZ(2 LINE+4
FIRST INIT+1~, INIT+3*, INIT+22, INIT+23*, INITC+47, INITC+48*
>> I LINE+31*, LINE+32
IEN SET~, SET+1
IO PRINT+2
IOF HDG+1
>> IORVOFF INIT+25, INITC+50
>> IORVON INIT+25, INITC+50
IOSL PRINT+11
IOST BDGIPL7+9, INIT+22, INITC+47, LINE+2
L PAD~, PAD+2
LINE LINE+1~, LINE+2*, LINE+3*, LINE+4*, LINE+5*, LINE+6*, LINE+7*, LINE+8*, LINE+9, LINE+12*
, LINE+22*, LINE+27*, LINE+28, SET~, SET+1
N SP~, SP+1
NAME INIT+1~, INIT+27*, INIT+28, INITC+54*, INITC+55
NUM SET~, SET+1
U HDR+3, INIT+8, INITC+5, HDG+5
VALMCNT EN+2~, INIT+3*, INIT+22, INIT+25, INITC+47, INITC+50, LINE+9, LINE+28, LINE+32, LINE+34
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
WD INIT+1~, INIT+8*, INIT+9, INIT+12*, INIT+13, INIT+14, INIT+17*, INIT+25, INIT+27, INIT+28
, INITC+5*, INITC+17, INITC+20*, INITC+21, INITC+39, INITC+42*, INITC+50, INITC+53, INITC+54, INITC+55
X HDR+1~, HDR+3*, HDR+4, HDG+5*, HDG+6, HELP+1*
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