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

Package: IHS Changes To ADT

Routine: BDGCRB1


Information

BDGCRB1 ; IHS/ANMC/LJF - A SHEET PRINT ; [ 01/05/2005 10:25 AM ]

Source Information

Source file <BDGCRB1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Changes To ADT 3 ^BDGCPT  $$CONF^BDGF  $$LASTSRVN^BDGF1  
Kernel 2 $$REPEAT^XLFSTR  $$PATCH^XPDUTL  
VA Fileman 2 $$GET1^DIQ  ^DIWP  
DRG Grouper 1 $$ICDDX^ICDCODE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGCRB  

Entry Points

Name Comments DBIA/ICR reference
LOOP(TYPE) ; loop thru items in display order & print
; If TYPE="HDR" headers will print, else DATA will print
EN ;EP; entry point from queuing
; Assumes DFN, DGPMCA, and BDGFRM are set
; BDGHALF may be set; if =1 prints bottom half of sheet-form only
; if =2, prints data too
; Do NOT set BDGA which is reserved as array in ADT ITEMS table
; DO NOT use the following in these routines as they are used to
; loop through a sheets by date: BDGDT,BDGADT,BDGPAT,BDGDA
ECLINE(VISIT) ;EP; called by e-code line ADT ITEM
; returns lines of injury date, cause & e-code, place and code
; returns BDGA array
PRCLINE1(VISIT) ;EP; called by procedure code ADT ITEM
; returns lines of ICD code, DX, narative, infection, op date, prv code
; returns BDGA array
PAD(D,L) ;EP -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
PRVCODE(IEN) ; return provider code for procedure ien
WRAP(X,DIWL,DIWR) ; -- print text fields in word-wrap mode
PRCLINE2(VISIT) ;EP; called by procedure code ADT ITEM
; returns lines of ICD code, CPT, DX, narrative, op date, prv code
; returns BDGA array
PRINT ; print this copy
DXLINE(VISIT) ;EP; called by diagnosis code ADT ITEM
; returns lines of ICD code, hosp acq and provider narrative
; returns BDGA array

External References

Name Field # of Occurrence
^BDGCPT EN+11
$$CONF^BDGF PRINT+9
$$LASTSRVN^BDGF1 PRINT+7
$$GET1^DIQ PRINT+6, PRINT+12, LOOP+15, DXLINE+6, DXLINE+8, DXLINE+11, ECLINE+6, ECLINE+7, ECLINE+10, ECLINE+16
, ECLINE+17, ECLINE+19, ECLINE+20, PRCLINE1+6, PRCLINE1+7, PRCLINE1+8, PRCLINE1+10, PRCLINE1+11, PRCLINE2+6, PRCLINE2+7
, PRCLINE2+8, PRCLINE2+9, PRCLINE2+10, PRCLINE2+12, PRCLINE2+21, PRVCODE+2, PRVCODE+4
^DIWP WRAP+1
$$ICDDX^ICDCODE ECLINE+9
$$REPEAT^XLFSTR PRINT+23, PAD+2
$$PATCH^XPDUTL ECLINE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: X," **",$$CONF^BDGF,"**"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,I,"_______ _________________________________"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: "____________________________________",!
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: $$PAD(HDR,LEN)
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: $$PAD(Y,LEN)
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: BDGA(I),!
  • Line Location: LOOP+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AUPNVPRC - [#9000010.08] GET1^DIQ
^BDGFRM - [#9009016.8] GET1^DIQ
^BDGITM - [#9009016.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV("AD" DXLINE+5, ECLINE+5
^AUPNVPRC("AD" PRCLINE1+5, PRCLINE2+5
^BDGFRM - [#9009016.8] PRINT+15, PRINT+16, PRINT+19, PRINT+22, PRINT+28, PRINT+31, LOOP+3, LOOP+7, LOOP+9, LOOP+10
^DD(9000010.08 PRVCODE+3
^UTILITY($J DXLINE+12, DXLINE+16, DXLINE+17, PRCLINE1+9, PRCLINE1+16, PRCLINE1+17, PRCLINE2+11, PRCLINE2+17, PRCLINE2+18, PRCLINE2+24!
, WRAP+1!

Label References

Name Line Occurrences
$$PAD LOOP+13, LOOP+17, SP+1, DXLINE+6, DXLINE+12, ECLINE+9, ECLINE+10, ECLINE+16, ECLINE+17, ECLINE+19
, ECLINE+20, PRCLINE1+6, PRCLINE1+9, PRCLINE1+10, PRCLINE1+11, PRCLINE1+12, PRCLINE2+6, PRCLINE2+9, PRCLINE2+11, PRCLINE2+12
, PRCLINE2+13
$$PRVCODE PRCLINE1+12, PRCLINE2+13
$$SP DXLINE+17, ECLINE+6, ECLINE+10, PRCLINE1+17, PRCLINE2+18, PRCLINE2+22
LOOP PRINT+25, PRINT+35
PRINT EN+10
WRAP DXLINE+11, PRCLINE1+8, PRCLINE2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGA LOOP+16!, LOOP+17, DXLINE+3!, ECLINE+3!, PRCLINE1+3!, PRCLINE2+3!
BDGA( LOOP+18, DXLINE+13*, DXLINE+17*, ECLINE+23*, PRCLINE1+13*, PRCLINE1+17*, PRCLINE2+14*, PRCLINE2+18*, PRCLINE2+22*
>> BDGCOP PRINT+3
>> BDGDT EN+14
>> BDGFIN EN+11, PRINT+37
>> BDGFRM PRINT+6, PRINT+15, PRINT+16, PRINT+19, PRINT+22, PRINT+28, PRINT+31, LOOP+3, LOOP+7, LOOP+9
, LOOP+10
>> BDGHALF PRINT+19, PRINT+28
BDGVST PRINT+1~, PRINT+12*
COUNT DXLINE+4~, DXLINE+13*, DXLINE+17*, ECLINE+4~, ECLINE+23*, PRCLINE1+4~, PRCLINE1+13*, PRCLINE1+17*, PRCLINE2+4~, PRCLINE2+14*
, PRCLINE2+18*, PRCLINE2+22*
D PAD~, PAD+2
DATA LOOP+5~, LOOP+15*, LOOP+16
>> DFN PRINT+7
>> DGPMCA PRINT+7, PRINT+11, PRINT+12
>> DGPMDA PRINT+11*
>> DIWF WRAP+1*
DIWL WRAP~
DIWR WRAP~
FILE PRVCODE+1~, PRVCODE+3*, PRVCODE+4
HDR LOOP+5~, LOOP+13*
>> I PRINT+31*, PRINT+32, LOOP+18*
IEN PRVCODE~, PRVCODE+2
IO EN+8
IOF EN+14, PRINT+3
ITEM LOOP+5~, LOOP+8*, LOOP+9*, LOOP+10
L PAD~, PAD+2
LEN LOOP+5~, LOOP+10*, LOOP+13, LOOP+17
LINE PRINT+1~, PRINT+15*, PRINT+16, DXLINE+4~, DXLINE+6*, DXLINE+10*, DXLINE+12*, DXLINE+13, ECLINE+4~, ECLINE+6*
, ECLINE+9*, ECLINE+10*, ECLINE+16*, ECLINE+17*, ECLINE+19*, ECLINE+20*, ECLINE+23, PRCLINE1+4~, PRCLINE1+6*, PRCLINE1+7*
, PRCLINE1+9*, PRCLINE1+10*, PRCLINE1+11*, PRCLINE1+12*, PRCLINE1+13, PRCLINE2+4~, PRCLINE2+6*, PRCLINE2+7*, PRCLINE2+8*, PRCLINE2+9*
, PRCLINE2+11*, PRCLINE2+12*, PRCLINE2+13*, PRCLINE2+14
LN PRINT+1~, PRINT+16*, PRINT+19, PRINT+22, PRINT+28, PRINT+31, LOOP+3, LOOP+7, LOOP+9, LOOP+10
N SP~, SP+1, DXLINE+4~, DXLINE+5*, DXLINE+6, DXLINE+8, DXLINE+11, ECLINE+4~, ECLINE+5*, ECLINE+6
, ECLINE+7, ECLINE+10, ECLINE+16, ECLINE+17, ECLINE+19, ECLINE+20, PRCLINE1+4~, PRCLINE1+5*, PRCLINE1+6, PRCLINE1+7
, PRCLINE1+8, PRCLINE1+10, PRCLINE1+11, PRCLINE1+12, PRCLINE2+4~, PRCLINE2+5*, PRCLINE2+6, PRCLINE2+7, PRCLINE2+8, PRCLINE2+9
, PRCLINE2+10, PRCLINE2+12, PRCLINE2+13, PRCLINE2+21
NARR DXLINE+4~, DXLINE+11*, ECLINE+4~, PRCLINE1+4~, PRCLINE1+8*, PRCLINE2+4~, PRCLINE2+10*
NODE LOOP+5~, LOOP+10*, LOOP+13, LOOP+15
ORD LOOP+5~, LOOP+6*, LOOP+7*, LOOP+9
TYPE LOOP~, LOOP+3, LOOP+12
U PRINT+19, PRINT+22, PRINT+28, PRINT+31, LOOP+3, LOOP+10, LOOP+13, ECLINE+9, PRVCODE+3
VISIT DXLINE~, DXLINE+3, DXLINE+5, ECLINE~, ECLINE+3, ECLINE+5, PRCLINE1~, PRCLINE1+3, PRCLINE1+5, PRCLINE2~
, PRCLINE2+3, PRCLINE2+5
X PRINT+1~, PRINT+6*, PRINT+7*, PRINT+9, PRINT+31*, DXLINE+4~, DXLINE+8*, DXLINE+10, DXLINE+16*, DXLINE+17
, ECLINE+4~, ECLINE+7*, ECLINE+9, PRCLINE1+4~, PRCLINE1+16*, PRCLINE1+17, PRCLINE2+4~, PRCLINE2+17*, PRCLINE2+18, PRCLINE2+21*
, PRCLINE2+22, WRAP~
Y LOOP+16*, LOOP+17, PRVCODE+1~, PRVCODE+2*, PRVCODE+4
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 |  Local Variables |  All