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 |  Marked Items |  All
Print Page as PDF
Routine: BDGILD3

Package: IHS Changes To ADT

Routine: BDGILD3


Information

BDGILD3 ; IHS/ANMC/LJF - NON-BENE ADMISSIONS ;

Source Information

Source file <BDGILD3.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Changes To ADT 4 ($$CONF,$$NUMDATE,INIT,PRTKL)^BDGF  ($$ADMPRV,$$ADMSRVC,$$WRDABRV2)^BDGF1  ($$HRCN,$$NEWINS)^BDGF2  ($$OKAY,$$SORT)^BDGILD1  
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
SET(DATA,NUM) ; puts display line into array
EN ;EP; -- main entry point for BDG ILD NON-BENE ADMITS
; Assumes BDGTYP,BDGBD,BDGED,BDGTYP are set
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
EXPND ; -- expand code
HDG ; heading when printing to paper
INIT ; -- init variables and list array
EXIT ; -- exit code
PRINT ; print to paper
TYPE ;;
HELP ; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+8
$$CONF^BDGF HDR+2, HDG+2
$$NUMDATE^BDGF INIT+34, INIT+36
INIT^BDGF PRINT+2
PRTKL^BDGF PRINT+8
$$ADMPRV^BDGF1 INIT+43
$$ADMSRVC^BDGF1 INIT+38
$$WRDABRV2^BDGF1 INIT+39
$$HRCN^BDGF2 INIT+33
$$NEWINS^BDGF2 INIT+52, INIT+53
$$OKAY^BDGILD1 INIT+12
$$SORT^BDGILD1 INIT+14
$$GET1^DIQ INIT+11, INIT+32, INIT+35, INIT+37, INIT+44
EN^VALM EN+5
TERM^VALM0 EN+4
CLEAR^VALM1 EN+4, EN+6
$$FMTE^XLFDT HDR+5, HDG+6
$$REPEAT^XLFSTR HDG+8, 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("BDGILD3",$J,LINE,0)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: !,BDGUSR,?11,"***",$$CONF^BDGF,"***"
  • Line Location: HDG+2
Function Call: WRITE
  • Prompt: !,BDGDATE,?25,"Non-beneficiary Admissions",?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: !?(80-$L(X)\2),X
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Chart #",?31,"Admission Dates",?55,"LOS"
  • Line Location: HDG+9
Function Call: WRITE
  • Prompt: ?65,"Serv",?72,"Ward"
  • Line Location: HDG+10
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+10
Routine Call
  • VALM
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] INIT+36
^DGPM("AMV1" INIT+7, INIT+8, INIT+9
^TMP("BDGILD3" INIT+2!, INIT+65, SET+2*, EXIT+1!, PRINT+4, PRINT+6
^TMP("BDGILD3A" INIT+2!, INIT+15*, INIT+20, INIT+27, INIT+28, INIT+31, INIT+67!

Label References

Name Line Occurrences
$$PAD INIT+33, INIT+34, INIT+37, INIT+38, INIT+39, INIT+44, SP+1
$$SP HDR+2, HDR+4, HDR+6, INIT+25, INIT+42, INIT+54, INIT+55, INIT+59
EXIT PRINT+8
HDG PRINT+2, PRINT+5
INIT EN+3
PRINT EN+3
SET INIT+25, INIT+40, INIT+45, INIT+54, INIT+55, INIT+59, INIT+62, INIT+65

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGBD HDR+5, INIT+6, EXIT+1!, HDG+6
BDGCOV INIT+19~, INIT+48*, INIT+54
>> BDGDATE HDG+3
BDGED HDR+5, INIT+6, EXIT+1!, HDG+6
>> BDGINS INIT+47
BDGPG PRINT+1~, HDG+1*, HDG+3
BDGRR INIT+19~
BDGRR( INIT+58, INIT+59
BDGSRT INIT+12, EXIT+1!
>> BDGTIME HDG+5
BDGTYP INIT+12, INIT+14, INIT+23, EXIT+1!
>> BDGUSR HDG+2
BDGW INIT+51~, INIT+53*, INIT+55
BDGX INIT+51~, INIT+52*, INIT+55
BDGY INIT+51~, INIT+52*, INIT+55
BDGZ INIT+51~, INIT+53*
D PAD~, PAD+2
DATA SET~, SET+2
DATE INIT+5~, INIT+6*, INIT+7*, INIT+8, INIT+9, INIT+15, INIT+19~, INIT+27*, INIT+28, INIT+31
, INIT+34
DFN INIT+5~, INIT+8*, INIT+9, INIT+11, INIT+12, INIT+15, INIT+31*, INIT+32, INIT+33, INIT+38
, INIT+43, INIT+52, INIT+53
DUZ(2 INIT+33
END INIT+5~, INIT+6*, INIT+7
I INIT+19~, INIT+58*, INIT+59
IEN INIT+5~, INIT+9*, INIT+12, INIT+14, INIT+15, INIT+19~, INIT+28*, INIT+31, INIT+35, INIT+37
, INIT+38, INIT+39, INIT+43, INIT+44, INIT+52, INIT+53
IO PRINT+2
IOF HDG+1
IOSL PRINT+5
IOST EN+3
L PAD~, PAD+2
LINE INIT+19~, INIT+32*, INIT+33*, INIT+34*, INIT+36*, INIT+37*, INIT+38*, INIT+39*, INIT+40, INIT+42*
, INIT+43*, INIT+44*, INIT+45, PRINT+1~, PRINT+4*, PRINT+6
N SP~, SP+1
NUM SET~, SET+1*, SET+2
SORT INIT+5~, INIT+14*, INIT+15, INIT+19~, INIT+20*, INIT+24, INIT+27, INIT+28, INIT+31
VALMCNT EN+4~, INIT+1*, INIT+25, INIT+40, INIT+45, INIT+54, INIT+55, INIT+59, INIT+62, INIT+65
>> VALMHDR(1 HDR+2*
>> VALMHDR(2 HDR+4*
>> VALMHDR(3 HDR+6*
X HDR+1~, HDR+3*, HDR+4, HDR+5*, HDR+6, INIT+19~, INIT+24*, INIT+25, INIT+35*, INIT+36
, HELP+1*, HDG+4~*, HDG+5, HDG+6*, HDG+7

Marked Items

Name Field # of Occurrence
$T(TYPE+BDGTYP HDR+3, HDG+4
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 |  Marked Items |  All