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

Package: IHS Changes To ADT

Routine: BDGCPT


Information

BDGCPT ; IHS/ANMC/LJF - LIST CPT CODES FOR INPT STAY ; [ 07/22/2002 1:16 PM ]

Source Information

Source file <BDGCPT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Changes To ADT 2 (AMB,PRV,TRAN)^BDGCPT1  $$HRCN^BDGF2  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
IHS VA Utilities 1 ENPM^XBDIQ1  
Lab Service 1 ($$EN,EN)^LRZBILL  
Patient Care Component Reports 1 $$SC^APCLV  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To ADT 2 BDGCPT1  BDGCRB1  

Entry Points

Name Comments DBIA/ICR reference
SET(LINE,SECTION,DATE,IEN) ; -- put display line into date order under section
MED ; -- find all v med entries
RAD ; -- find all v radiology entries
PAD(D,L) ; -- SUBRTN to pad length of data
; -- D=data L=length
SP(N) ; -- SUBRTN to pad N number of spaces
SECTION ;;
TRAN ; -- find all trans codes
IMM ; -- find all v immunization entries
COST(IEN,QTY,TOTAL) ; -- find total cost for supply item(s)
LAB ; -- find all v lab entries
HDG2(CAT) ; -- heading for each category
HEAD ; -- page heading
PRV ; -- find all providers
DSCDT(ADM)
SUP ; -- get pyxis supply items
PRINT ; -- print line
DATE(FILE,IEN) ; -- find date for item
CPT ; -- find all v cpt entries
AMB(V) ; -- is this visit an ambulatory one?

External References

Name Field # of Occurrence
$$SC^APCLV AMB+1
AMB^BDGCPT1 BDGCPT+29
PRV^BDGCPT1 PRV+1
TRAN^BDGCPT1 TRAN+1
$$HRCN^BDGF2 HEAD+1
$$GET1^DIQ BDGCPT+15, TRAN+6, TRAN+7, TRAN+8, TRAN+9, TRAN+10, RAD+5, RAD+6, RAD+7, RAD+8
, MED+9, MED+15, MED+16, MED+17, MED+19, MED+38, MED+44, MED+45, MED+46, MED+47
, MED+60, MED+61, MED+62, SUP+8, SUP+13, SUP+14, SUP+15, COST+2, COST+4, CPT+4
, CPT+5, CPT+6, CPT+7, CPT+8, CPT+9, IMM+4, IMM+5, LAB+11, LAB+12, LAB+13
, LAB+14, LAB+20, LAB+23, LAB+24, LAB+29, LAB+30, LAB+31, LAB+35, DATE+2, DATE+3
, DATE+4, DSCDT+3, DSCDT+4, HEAD+2, HEAD+3
$$EN^LRZBILL LAB+7
EN^LRZBILL LAB+6
ENPM^XBDIQ1 MED+51
$$FMTE^XLFDT TRAN+4, RAD+3, MED+24, MED+43, MED+59, SUP+12, CPT+3, IMM+3, LAB+17, LAB+32
$$REPEAT^XLFSTR HEAD+4, PAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^TMP("BDGCPT",$J,DGI,DGDT,DGN)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"CPT DATA FOR HOSPITALIZATION: #",$$HRCN^BDGF2(DFN,DUZ(2))
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: " ",$E($$GET1^DIQ(2,DFN,.01),1,20)
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: " ",$$GET1^DIQ(405,DGPMCA,.01)
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",80),!
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,$P($T(SECTION+X),";;",3)
  • Line Location: HDG2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPM - [#405] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^AUPNVLAB - [#9000010.09] GET1^DIQ
^AUPNVIMM - [#9000010.11] GET1^DIQ
^AUPNVMED - [#9000010.14] GET1^DIQ
^AUPNVCPT - [#9000010.18] GET1^DIQ
^AUPNVRAD - [#9000010.22] GET1^DIQ
^AUPNVMIC - [#9000010.25] GET1^DIQ
^AUPNVTC - [#9000010.33] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVCPT("AD" CPT+2
^AUPNVIMM("AD" IMM+2
^AUPNVLAB("AD" LAB+2
^AUPNVMED("AD" MED+58
^AUPNVMIC("AD" LAB+28
^AUPNVRAD("AD" RAD+2
^AUPNVSIT("AD" BDGCPT+23
^AUPNVTC("AD" TRAN+3
^DIZ(111700 COST+2
^TMP("BDGCPT" BDGCPT+13!, BDGCPT+35!, PRINT+1, PRINT+4, PRINT+5, PRINT+6, SET+1*
^VEFS(19234.2 MED+10, MED+14
^VEFS(19234.3 SUP+9, SUP+10
^VEFS(19234.35 MED+39, MED+40

Label References

Name Line Occurrences
$$AMB TRAN+5, RAD+4, LAB+18, LAB+33
$$COST SUP+17
$$DATE TRAN+4, RAD+3, MED+59, CPT+3, IMM+3, LAB+17, LAB+32
$$DSCDT MED+8, MED+37, SUP+7
$$PAD TRAN+6, TRAN+7, TRAN+9, TRAN+10, RAD+5, RAD+6, RAD+7, RAD+8, MED+25, MED+26
, MED+27, MED+28, MED+44, MED+45, MED+46, MED+47, MED+60, MED+61, MED+62, SUP+13
, SUP+16, SUP+17, CPT+4, CPT+5, CPT+7, CPT+8, CPT+9, IMM+4, IMM+5, LAB+19
, LAB+20, LAB+34, LAB+35, SP+1
$$SP MED+53, SUP+20, LAB+25
@( BDGCPT+19, BDGCPT+20, BDGCPT+25, BDGCPT+26
HDG2 PRINT+2
HEAD BDGCPT+32, PRINT+7
PRINT BDGCPT+33, BDGCPT+34
SET TRAN+11, RAD+9, MED+29, MED+48, MED+54, MED+63, SUP+18, SUP+20, CPT+10, IMM+6
, LAB+21, LAB+25, LAB+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM DSCDT~, DSCDT+3
ARRAY MED+3~, MED+11!, MED+51!
ARRAY( MED+18*, MED+22, MED+23, MED+26, MED+52, MED+53
ARRAY1 MED+3~, MED+11!
ARRAY1( MED+19*, MED+25
>> BDGFIN BDGCPT+19, BDGCPT+25, BDGCPT+33, TRAN+1
CAT HDG2~, HDG2+3
CPT LAB+1~, LAB+6, LAB+7*, LAB+10, LAB+11*, LAB+12*, LAB+13*, LAB+14*, LAB+19, LAB+29*
, LAB+30, LAB+34
D PAD~, PAD+2
DATE MED+3~, MED+24*, MED+29, MED+32~, MED+43*, MED+48, MED+54, SUP+1~, SUP+12*, SUP+18
, DATE+1~, DATE+2*, DATE+3*, DATE+4*, DATE+5, SET~, SET+1
>> DFN MED+10, MED+14, MED+39, MED+40, SUP+9, SUP+10, HEAD+1, HEAD+2
DGDT PRINT+3*, PRINT+4*, PRINT+5, PRINT+6, TRAN+2~, TRAN+4*, TRAN+11, RAD+1~, RAD+3*, RAD+9
, MED+57~, MED+59*, MED+63, CPT+1~, CPT+3*, CPT+10, IMM+1~, IMM+3*, IMM+6, LAB+1~
, LAB+17*, LAB+21, LAB+25, LAB+32*, LAB+36
DGI BDGCPT+14~, BDGCPT+19*, BDGCPT+20*, BDGCPT+25*, BDGCPT+26*, BDGCPT+33*, BDGCPT+34*, PRINT+1, PRINT+2, PRINT+4
, PRINT+5, PRINT+6
DGN PRINT+5*, PRINT+6, TRAN+2~, TRAN+3*, TRAN+4, TRAN+6, TRAN+7, TRAN+8, TRAN+9, TRAN+10
, TRAN+11, RAD+1~, RAD+2*, RAD+3, RAD+5, RAD+6, RAD+7, RAD+8, RAD+9, MED+57~
, MED+58*, MED+59, MED+60, MED+61, MED+62, MED+63, CPT+1~, CPT+2*, CPT+3, CPT+4
, CPT+5, CPT+6, CPT+7, CPT+8, CPT+9, CPT+10, IMM+1~, IMM+2*, IMM+3, IMM+4
, IMM+5, IMM+6, LAB+1~, LAB+2*, LAB+7, LAB+11, LAB+12, LAB+13, LAB+14, LAB+17
, LAB+20, LAB+21, LAB+23, LAB+24, LAB+25, LAB+28*, LAB+29, LAB+30, LAB+31, LAB+32
, LAB+35, LAB+36
>> DGPMCA BDGCPT+15, MED+8, MED+9, MED+37, MED+38, SUP+7, SUP+8, HEAD+3
DGV BDGCPT+14~, BDGCPT+15*, BDGCPT+18, BDGCPT+23
DGVN BDGCPT+14~, BDGCPT+23*, BDGCPT+24
DGVV BDGCPT+14~, BDGCPT+18*, BDGCPT+24*, TRAN+3, TRAN+5, RAD+2, RAD+4, MED+58, CPT+2, IMM+2
, LAB+2, LAB+18, LAB+28, LAB+33
DRUGID MED+3~, MED+16*, MED+18, MED+19, MED+22*, MED+23, MED+25, MED+26, MED+27, MED+29
DSC DSCDT+2~, DSCDT+3*, DSCDT+4
DT MED+8, MED+37, SUP+7
DUZ(2 HEAD+1
FIELD LAB+1~, LAB+22*, LAB+23, LAB+24, LAB+25
FILE DATE~, DATE+2, DATE+3
IEN MED+3~, MED+14*, MED+15, MED+16, MED+17, MED+19, MED+32~, MED+40*, MED+44, MED+45
, MED+46, MED+47, MED+48, MED+51, MED+54, SUP+1~, SUP+10*, SUP+13, SUP+14, SUP+15
, SUP+17, SUP+18, COST~, COST+2, DATE~, DATE+2, DATE+3, SET~, SET+1
IOF HEAD+1
IOSL PRINT+7
ITEM COST+1~, COST+2*, COST+3, COST+4
L PAD~, PAD+2
LAST MED+3~, MED+9*, MED+10, MED+32~, MED+38*, MED+39, SUP+1~, SUP+8*, SUP+9
LINE TRAN+2~, TRAN+4*, TRAN+5*, TRAN+6*, TRAN+7*, TRAN+9*, TRAN+10*, TRAN+11, RAD+1~, RAD+3*
, RAD+4*, RAD+5*, RAD+6*, RAD+7*, RAD+8*, RAD+9, MED+3~, MED+24*, MED+25*, MED+26*
, MED+27*, MED+28*, MED+29, MED+32~, MED+43*, MED+44*, MED+45*, MED+46*, MED+47*, MED+48
, MED+53*, MED+54, MED+57~, MED+59*, MED+60*, MED+61*, MED+62*, MED+63, SUP+1~, SUP+12*
, SUP+13*, SUP+14*, SUP+16*, SUP+17*, SUP+18, SUP+20, CPT+1~, CPT+3*, CPT+4*, CPT+5*
, CPT+6*, CPT+7*, CPT+8*, CPT+9*, CPT+10, IMM+1~, IMM+3*, IMM+4*, IMM+5*, IMM+6
, LAB+1~, LAB+17*, LAB+18*, LAB+19*, LAB+20*, LAB+21, LAB+32*, LAB+33*, LAB+34*, LAB+35*
, LAB+36, SET~, SET+1
MEDSTN MED+3~, MED+17*, MED+18, MED+19, MED+23*, MED+25, MED+26, MED+28, MED+29
N SP~, SP+1
QTY MED+3~, MED+15*, MED+18, SUP+1~, SUP+15*, SUP+16, SUP+17, COST~, COST+5, COST+6
RDT MED+3~, MED+8*, MED+10*, MED+14, MED+24, MED+32~, MED+37*, MED+39*, MED+40, MED+43
, SUP+1~, SUP+7*, SUP+9*, SUP+10, SUP+12
SECTION SET~, SET+1
TOTAL SUP+1~, SUP+2*, SUP+17, SUP+20, COST~, COST+5*
TRAN TRAN+2~, TRAN+8*, TRAN+11
UNITCOST COST+1~, COST+4*, COST+5, COST+6
V AMB~, AMB+1
X MED+52*, MED+53, MED+54, LAB+1~, LAB+23*, LAB+24, LAB+25, HDG2+1~, HDG2+2*
>> Y LAB+24*

Marked Items

Name Field # of Occurrence
$T(EN^LRZBILL LAB+6
$T(SECTION+X HDG2+2, HDG2+3
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 |  Marked Items |  All