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

Package: IHS Changes To ADT

Routine: BDGICR41


Information

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

Source Information

Source file <BDGICR41.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGICR4  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for BDG IC DATE CODED
HDR ;EP; -- header code
DAYS(DSCH,CODE) ; -- returns difference between dsch and coding
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
DATE(X) ; -- returns date in readable format
CODE(VST) ; -- returns date coded
EXPND ; -- expand code
HDG ; -- heading when printing to paper
COUNT(DIFF) ; -- sets array to hold service counts
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
PPROV(VST) ; -- returns name of primary provider for visit
HELP ;EP; -- help code

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,^TMP("BDGICR41",$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 DATE CODED",?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,"Dischrgd Coded",?61,"Days"
  • Line Location: HDG+7
Function Call: WRITE
  • Prompt: ?67,"Provider"
  • Line Location: HDG+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80)
  • Line Location: HDG+9
Routine Call
  • VALM
  • Line Location:
    • EN+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNVINP - [#9000010.02] GET1^DIQ
^AUPNVPRV - [#9000010.06] GET1^DIQ
^BDGIC - [#9009016.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP - [#9000010.02] GATHER+9, GATHER+10
^AUPNVINP("B" GATHER+6, GATHER+7
^AUPNVPRV("AD" PPROV+3, CODE+7
^AUPNVSIT - [#9000010] GATHER+11
^BDGIC("AV" CODE+3
^TMP("BDGICR41" EXIT+1!, GATHER+2!, SET+2*, PRINT+4, PRINT+6
^TMP("BDGICR41A" GATHER+2!, GATHER+15*, GATHER+19, GATHER+23, GATHER+24, GATHER+26, GATHER+50!

Label References

Name Line Occurrences
$$CODE GATHER+31
$$DATE GATHER+30, GATHER+32
$$DAYS GATHER+31
$$PAD GATHER+29, GATHER+30, GATHER+32, GATHER+33, GATHER+35, GATHER+42, GATHER+43, GATHER+45, SP+1
$$PPROV GATHER+34
$$SP HDR+1, GATHER+21, GATHER+40, GATHER+47
COUNT GATHER+36
EXIT PRINT+8
GATHER EN+2, INIT+3
HDG PRINT+2, PRINT+5
PRINT EN+2
SET GATHER+21, GATHER+36, GATHER+39, GATHER+40, GATHER+45, GATHER+48

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 BDGICR41+4~, BDGICR41+5*, BDGICR41+6, EN+2, INIT+3, GATHER~, GATHER+5, HDG+4
>> BDGD GATHER+23*, GATHER+24, GATHER+26, GATHER+30, GATHER+31
>> BDGDATE HDG+3
BDGED BDGICR41+4~, BDGICR41+7*, BDGICR41+8, EN+2, INIT+3, GATHER~, GATHER+6, HDG+4
BDGL PRINT+1~, PRINT+4*, PRINT+6
BDGLN INIT+1~, INIT+4, EXIT+1!, GATHER+5*, GATHER+21, GATHER+36, GATHER+39, GATHER+40, GATHER+45, GATHER+48
, SET~, SET+1*, SET+2
BDGPG PRINT+1~, HDG+1*, HDG+3
BDGSTOT GATHER+1~, GATHER+21!, GATHER+41, GATHER+42, GATHER+43, GATHER+44, COUNT+1*, COUNT+2*, COUNT+3*, COUNT+4*
, COUNT+5*
>> BDGTIME HDG+5
BDGTOT GATHER+1~, GATHER+18*, GATHER+27*, GATHER+47
>> BDGUSR HDG+2
BDGX PRINT+1~
CODE GATHER+31*, GATHER+32, CODE+1~, CODE+8*, DAYS~, DAYS+1, DAYS+2
DATA GATHER+1~, GATHER+11*, GATHER+12, GATHER+13, GATHER+14, GATHER+26*, GATHER+27, PAD~, PAD+1
DATE GATHER+1~, GATHER+5*, GATHER+6*, GATHER+7, GATHER+15, CODE+1~, CODE+7, CODE+9*, CODE+10
DFN GATHER+1~, GATHER+14*, GATHER+15, GATHER+27*, GATHER+28, GATHER+29
DIFF GATHER+31*, GATHER+33, GATHER+36, COUNT~, COUNT+1, COUNT+3, COUNT+4, COUNT+5
DSCH DAYS~, DAYS+2
DUZ(2 GATHER+13, GATHER+29
IEN CODE+1~, CODE+3*, CODE+4
IO PRINT+2
IOF HDG+1
IOSL PRINT+5
IOST EN+2
LENGTH PAD~, PAD+1
LINE GATHER+1~, GATHER+28*, GATHER+29*, GATHER+30*, GATHER+32*, GATHER+33*, GATHER+35*, GATHER+36, GATHER+41*, GATHER+42*
, GATHER+43*, GATHER+45*, GATHER+47*, GATHER+48, SET~, SET+2
NAME GATHER+1~
NUM SP~, SP+1
PROV GATHER+34*, GATHER+35, PPROV+1~, PPROV+3, PPROV+5*, PPROV+6
PRV CODE+1~, CODE+7*, CODE+8, CODE+9
>> SRV GATHER+14*, GATHER+15, GATHER+18*, GATHER+19*, GATHER+21, GATHER+23, GATHER+24, GATHER+26
U GATHER+9, GATHER+10, GATHER+12, GATHER+13, GATHER+14, GATHER+15, GATHER+27, GATHER+41, GATHER+42, GATHER+43
, GATHER+44, COUNT+1, COUNT+2, COUNT+3, COUNT+4, COUNT+5
VALMCNT EN+1~, INIT+4*
>> VALMHDR(1 HDR+1*
VDT GATHER+1~
VH GATHER+1~, GATHER+7*, GATHER+9, GATHER+10, GATHER+14, GATHER+15, GATHER+24*, GATHER+26
VST GATHER+1~, GATHER+9*, GATHER+11, GATHER+15, GATHER+27*, GATHER+31, GATHER+34, PPROV~, PPROV+3, CODE~
, CODE+3, CODE+7
X HELP+1*, GATHER+44*, GATHER+45, HDG+4~*, HDG+5, DATE~, DATE+1, PPROV+1~, PPROV+3*, PPROV+4
, PPROV+5, DAYS+2~
X1 DAYS+2~*
X2 DAYS+2~*
Y DATE+1~*, DATE+2
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 |  Naked Globals |  Local Variables |  All