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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDGICR4

Package: IHS Changes To ADT

Routine: BDGICR4


Information

BDGICR4 ; IHS/ANMC/LJF - CODED A SHEET REPORTS ;

Source Information

Source file <BDGICR4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZISC  $$FMTE^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
IHS Changes To ADT 3 ($$CONF,$$READ,INIT,MSG,PRTKL,ZIS)^BDGF  $$HRCN^BDGF2  ^BDGICR41  
Registration 2 EN^VALM  TERM^VALM0  
IHS VA Utilities 1 ^XBCLS  
VA Fileman 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ;EP; -- main entry point for BDG IC DATE EXPORTED
HDR ;EP; -- header code
EXIT2 ;EP; -- exit code for patient listing
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
DATE(X) ; -- returns date in readable format
EXPND ; -- expand code
HDG ; heading when printing to paper
INIT ;EP; -- init variables and list array
EXIT ;EP; -- exit code
SET(LINE,BDGLN) ; -- sets ^tmp
PRINT ; -- print lists to paper
SP(NUM) ; -- SUBRTN to pad spaces
GATHER(BDGBD,BDGED) ; -- create display array
HELP ;EP; -- help code

External References

Name Field # of Occurrence
^%ZISC PRINT+8
$$CONF^BDGF HDR+1, HDG+2
$$READ^BDGF BDGICR4+7, BDGICR4+10, BDGICR4+12
INIT^BDGF PRINT+2
MSG^BDGF BDGICR4+6, INIT+2
PRTKL^BDGF PRINT+8
ZIS^BDGF BDGICR4+14
$$HRCN^BDGF2 GATHER+29
^BDGICR41 BDGICR4+7
$$GET1^DIQ GATHER+32, GATHER+34
EN^VALM EN+4
TERM^VALM0 EN+3
^XBCLS BDGICR4+5
$$FMTE^XLFDT HDG+4, DATE+1
$$REPEAT^XLFSTR HDG+6, HDG+8, PAD+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BDGICR4",$J,BDGL,0)
  • Line Location: PRINT+6
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,?25,"CODED A SHEETS WITH EXPORT DATE",?71,"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: !,"Patient Name",?27,"Chart #",?40,"Admitted",?52,"Modified"
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: ?64,"Exported",!,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+8
Routine Call
  • VALM
  • Line Location:
    • EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP - [#9000010.02] GATHER+9, GATHER+10
^AUPNVINP("B" GATHER+6, GATHER+7
^AUPNVSIT - [#9000010] GATHER+11
^DPT - [#2] GATHER+14
^TMP("BDGICR4" EXIT+1!, GATHER+2!, SET+2*, PRINT+4, PRINT+6
^TMP("BDGICR4A" GATHER+2!, GATHER+15*, GATHER+19, GATHER+23, GATHER+24, GATHER+25, GATHER+27, GATHER+42!

Label References

Name Line Occurrences
$$DATE GATHER+21, GATHER+31, GATHER+32, GATHER+35
$$PAD GATHER+30, GATHER+31, GATHER+32, GATHER+35, GATHER+39, SP+1
$$SP BDGICR4+6, HDR+1, GATHER+21, GATHER+38
EXIT PRINT+8
GATHER EN+2, INIT+3
HDG PRINT+2, PRINT+5
PRINT EN+2
SET GATHER+21, GATHER+36, GATHER+40

Naked Globals

Name Field # of Occurrence
^(0 GATHER+9, GATHER+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGBD BDGICR4+9~, BDGICR4+10*, BDGICR4+11, EN+2, INIT+3, GATHER~, GATHER+5, HDG+4
>> BDGDATE HDG+3
BDGED BDGICR4+9~, BDGICR4+12*, BDGICR4+13, EN+2, INIT+3, GATHER~, GATHER+6, HDG+4
BDGETOT GATHER+1~, GATHER+18*, GATHER+34*, GATHER+39
BDGL PRINT+1~, PRINT+4*, PRINT+6
BDGLN INIT+1~, INIT+4, EXIT+1!, GATHER+5*, GATHER+21, GATHER+36, GATHER+40, SET~, SET+1*, SET+2
BDGPG PRINT+1~, HDG+1*, HDG+3
>> BDGTIME HDG+5
BDGTOT GATHER+1~, GATHER+18*, GATHER+28*, GATHER+38
>> BDGUSR HDG+2
BDGX PRINT+1~
DATA GATHER+1~, GATHER+11*, GATHER+12, GATHER+13, GATHER+14, GATHER+27*, GATHER+28, PAD~, PAD+1
DATE GATHER+1~, GATHER+5*, GATHER+6*, GATHER+7, GATHER+15, GATHER+18*, GATHER+19*, GATHER+21, GATHER+23, GATHER+24
, GATHER+25, GATHER+27
DFN GATHER+1~, GATHER+14*, GATHER+15, GATHER+24*, GATHER+25, GATHER+27, GATHER+29
DUZ(2 GATHER+13, GATHER+29
>> HRCN GATHER+29*, GATHER+30
IO PRINT+2
IOF HDG+1
IOSL PRINT+5
IOST EN+2
LENGTH PAD~, PAD+1
LINE GATHER+1~, GATHER+30*, GATHER+31*, GATHER+32*, GATHER+35*, GATHER+36, GATHER+38*, GATHER+39*, GATHER+40, SET~
, SET+2
NAME GATHER+1~, GATHER+14*, GATHER+15, GATHER+23*, GATHER+24, GATHER+25, GATHER+27, GATHER+30
NUM SP~, SP+1
U GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+28
VALMCNT EN+1~, INIT+4*, EXIT2+1!
>> VALMHDR(1 HDR+1*
VDT GATHER+1~, GATHER+14*, GATHER+15, GATHER+28*, GATHER+31
VH GATHER+1~, GATHER+7*, GATHER+9, GATHER+10, GATHER+15, GATHER+25*, GATHER+27
VST GATHER+1~, GATHER+9*, GATHER+11, GATHER+15, GATHER+28*, GATHER+32, GATHER+34
X HELP+1*, HDG+4~*, HDG+5, DATE~, DATE+1
Y BDGICR4+7~*, GATHER+34*, GATHER+35, DATE+1~*, DATE+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All