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: LEXQDRG4

Package: Lexicon Utility

Routine: LEXQDRG4


Information

LEXQDRG4 ;ISL/KER - Query - DRG Calc. (DGPT - DX/SR/PR) ;05/23/2017

Source Information

Source file <LEXQDRG4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 (ENDR,KILL)^%ZISS  ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 ($$CODEC,$$DRG,$$DRGDES,$$GETDATE,$$ICDDX,$$ICDOP,$$VCC)^ICDEX  
Lexicon Utility 1 ($$IMPDATE,PR)^LEXU  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lexicon Utility 2 LEXQDRG  LEXQDRG3  

Entry Points

Name Comments DBIA/ICR reference
DX(X)
CC(X) ; Complication/Comorbidity
SR(X) ; LEXSR Surgery String SR^SR^SR
DCD ; Display Codes Used
POA(X) ; Present on Admission
KATTR ; Kill Screen Attributes
WRT(X,Y) ; Write Output
TM(X,Y) ; Trim Y
PR(X) ; LEXPR Procedures String PR^PR^PR
ICDDXPR ; Create ICDDX() and ICDPRC() arrays
; ICDDX(n) Diagnosis Array (n)=IEN
ATTR ; Screen Attributes

External References

Name Field # of Occurrence
ENDR^%ZISS ATTR+1
KILL^%ZISS KATTR+1
$$GET1^DIQ DX+3, DX+8, DX+18, DX+21, DX+22, SR+3, SR+6, SR+10, PR+3, PR+6
, PR+14, PR+17
$$CODEC^ICDEX DX+19, DCD+4, DCD+18, DCD+30
$$DRG^ICDEX WRT+2
$$DRGDES^ICDEX WRT+8
$$GETDATE^ICDEX DX+9, PR+7
$$ICDDX^ICDEX DX+10, ICDDXPR+6, DCD+11, DCD+25
$$ICDOP^ICDEX SR+11, PR+8, PR+18, ICDDXPR+12, ICDDXPR+19, DCD+32
$$VCC^ICDEX CC+2
$$IMPDATE^LEXU DCD+2
PR^LEXU DCD+12, DCD+26, DCD+32
$$DT^XLFDT ICDDXPR+4, DCD+2
$$FMTE^XLFDT WRT+3
$$UP^XLFSTR DCD+12, DCD+26, DCD+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Principal DX:"
  • Line Location: DCD+10
Function Call: WRITE
  • Prompt: !?10,"Effective Date: "," ",$$FMTE^XLFDT($P(LEXDT,".",1),"5Z")
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !," Diagnosis Related Group: ",$J(LEXDRG,6),?41,"Avg len of stay: ",$J($P(LEXD,"^",8),6)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !?18,"Weight: ",$J($P(LEXD,"^",2),6),?41,"Local Breakeven: ",$J($P(LEXD,"^",12),6)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?13," Low day(s): ",$J($P(LEXD,"^",3),6),?40,"Local low day(s): ",$J($P(LEXD,"^",9),6)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !?14," High days: ",$J($P(LEXD,"^",4),6),?41,"Local High days: ",$J($P(LEXD,"^",10),6)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !!," DRG: ",$G(BOLD),LEXDRG,$G(NORM)," - "
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?12,LEXDES(LEXI),!
  • Line Location: WRT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPT - [#45] GET1^DIQ
45.01 GET1^DIQ
45.02 GET1^DIQ
45.05 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] DX+14, DX+15, SR+3, SR+4, PR+11

Label References

Name Line Occurrences
$$CC DCD+5, DCD+19
$$POA DCD+5, DCD+19
$$TM DCD+14, DCD+28, DCD+34
ATTR WRT+2
KATTR WRT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOLD WRT+9, ATTR+1*, KATTR+1!
ICDDATE DCD+2, CC+2, TM+1~
ICDDX ICDDXPR+2!
ICDDX( ICDDXPR+7*, DCD+15, DCD+17, CC+1
ICDDX(1 DCD+3
ICDPOA TM+1~
ICDPOA( POA+1
ICDPRC ICDDXPR+2!
ICDPRC( ICDDXPR+14*, ICDDXPR+18, ICDDXPR+21*, DCD+29, DCD+30
ICDPRC(" " ICDDXPR+14, ICDDXPR+21
IOINHI ATTR+1~, KATTR+1!
IOINORM ATTR+1~, KATTR+1!
LEX1 DX+1~, DX+15*, DX+17
LEXC DCD+1~, DCD+15*, DCD+24*, DCD+29*, DCD+31*
LEXC2 DCD+1~, DCD+3*, DCD+13, DCD+27, DCD+33
LEXC3 DCD+1~, DCD+3*, DCD+13, DCD+14, DCD+27, DCD+28, DCD+33, DCD+34
LEXCC DCD+1~, DCD+5*, DCD+6, DCD+7, DCD+8, DCD+16~, DCD+19*, DCD+20, DCD+21, DCD+22
LEXCODE DCD+1~, DCD+4*, DCD+13, DCD+16~, DCD+18*, DCD+27, DCD+30~*, DCD+31, DCD+33
LEXD WRT+1~, WRT+2*, WRT+4, WRT+5, WRT+6, WRT+7
LEXDCH DX+1~, DX+3*, DX+5, DX+13, SR+1~, SR+3*, SR+11, PR+1~, PR+3*, PR+4
, PR+10, PR+18
LEXDES WRT+1~, WRT+8~
LEXDES( WRT+10
LEXDRG WRT+1~*, WRT+2, WRT+4, WRT+8, WRT+9
LEXDT DX+1~, DX+8~, DX+9*, DX+10, DX+14~*, DX+15, PR+1~, PR+6~, PR+7*, PR+8
, ICDDXPR+2~, ICDDXPR+3*, ICDDXPR+4*, ICDDXPR+6, ICDDXPR+12, ICDDXPR+19, WRT+1~*, WRT+2, WRT+3, WRT+8
LEXDX ICDDXPR+4, ICDDXPR+5, ICDDXPR+6, ICDDXPR+7, ICDDXPR+9~
LEXEXT DCD+1~, DCD+6*, DCD+7*, DCD+8*, DCD+9*, DCD+11, DCD+16~, DCD+20*, DCD+21*, DCD+22*
, DCD+23*, DCD+25
LEXFL DX+1~, DX+6~, DX+7*, DX+8, DX+16*, DX+18, PR+1~, PR+5~*, PR+6, PR+12~
, PR+16*, PR+17
LEXFLG ICDDXPR+2~, ICDDXPR+17~*, ICDDXPR+18*, ICDDXPR+19
LEXGDAT ICDDXPR+2~, ICDDXPR+3
LEXI DCD+1~, DCD+15*, DCD+17, DCD+19, DCD+29*, DCD+30, WRT+1~, WRT+8~*, WRT+10*
LEXI1 SR+1~, SR+4*, SR+5, SR+7, SR+8, SR+13*, SR+14, PR+1~, PR+11*, PR+13
, PR+15, PR+21*, PR+22, ICDDXPR+2~, ICDDXPR+5~*, ICDDXPR+6, ICDDXPR+7, ICDDXPR+10~, ICDDXPR+11*, ICDDXPR+16~*
LEXI2 SR+1~, SR+9~, SR+10*, SR+14~*, PR+1~, PR+22*, ICDDXPR+2~, ICDDXPR+17~*, ICDDXPR+18*
LEXI3 ICDDXPR+2~, ICDDXPR+14~*, ICDDXPR+21~*
LEXIEN DX+1~, DX+10*, DX+17~, DX+18*, DX+19, PR+1~, PR+12~, PR+17~*, PR+18, DCD+1~
, DCD+3*, DCD+4, DCD+11, DCD+16~, DCD+17*, DCD+18, DCD+25, DCD+30~*, DCD+32
LEXIENS DX+1~, DX+17~*, DX+18, SR+1~, SR+5~*, SR+6, SR+10, PR+1~, PR+12~, PR+13*
, PR+14, PR+17
LEXIPT DX+1~, DX+8~*, DX+9, DX+10
LEXIT DX+1~, DX+6~*, DX+7, DX+9*
LEXLEN DCD+1~, DCD+3*, DCD+12, DCD+26, DCD+32
LEXN WRT+1~, WRT+8~*
LEXPDX DX+1~, DX+21*, DX+23
LEXPOA DCD+1~, DCD+5*, DCD+7, DCD+8, DCD+16~, DCD+19*, DCD+21, DCD+22
LEXPR PR+2!, PR+3*, PR+9*, PR+21*, PR+23*, PR+24!, ICDDXPR+9, ICDDXPR+11
LEXPR( PR+15, PR+16*, PR+20*, PR+21, PR+22
LEXPR1 PR+1~, PR+6~*, PR+8, PR+9, PR+22~*, PR+23, ICDDXPR+2~, ICDDXPR+10~, ICDDXPR+11*, ICDDXPR+12
, ICDDXPR+14, ICDDXPR+16~*, ICDDXPR+18, ICDDXPR+19, ICDDXPR+21
LEXPRDT PR+1~, PR+12~, PR+14*, PR+15*, PR+16, PR+20
LEXPRE DX+1~, DX+22*, DX+23
LEXPRS PR+1~, PR+22~*
LEXPTF DX+1~, DX+2*, DX+3, DX+8, DX+9, DX+14, DX+15, DX+17, DX+21, DX+22
, SR+1~, SR+2*, SR+3, SR+4, SR+5, PR+2~*, PR+3, PR+6, PR+7, PR+11
, PR+13
LEXS DCD+14~*, DCD+28~*, DCD+34~*
LEXSDX DX+2~*, DX+11*, DX+20*, DX+23*, DX+24!
LEXSR SR+1~, SR+2!, SR+13*, SR+15*, SR+16!, ICDDXPR+15, ICDDXPR+16
LEXSR( SR+7, SR+8, SR+9*, SR+12*, SR+13, SR+14
LEXSR1 SR+1~, SR+7~, SR+10*, SR+11, SR+12, SR+14~*, SR+15
LEXSRDT SR+1~, SR+6*, SR+7*, SR+8*, SR+9, SR+12
LEXSRS SR+2~, SR+5~, SR+14~*
LEXSTR DCD+1~, DCD+11*, DCD+12, DCD+16~, DCD+25*, DCD+26
LEXSYS DCD+1~, DCD+2*, DCD+5, DCD+19
LEXT DCD+1~, DCD+15*
LEXTD DCD+1~, DCD+2*, DCD+11, DCD+25, DCD+32
LEXTI DCD+1~, DCD+13*, DCD+14, DCD+27*, DCD+28, DCD+33*, DCD+34
LEXTMP DX+2~, DX+8~, DX+10*, DX+11, DX+15~, DX+16*, DX+19*, DX+20, SR+2~, SR+11~*
, SR+12, PR+2~, PR+8*, PR+9, PR+17~, PR+18*, PR+19, PR+20, ICDDXPR+2~, ICDDXPR+6~*
, ICDDXPR+7, ICDDXPR+12~*, ICDDXPR+13, ICDDXPR+17~, ICDDXPR+19*, ICDDXPR+20
LEXTX DCD+1~, DCD+12!, DCD+16~, DCD+26!, DCD+32!
LEXTX( DCD+13, DCD+14, DCD+27, DCD+28, DCD+33, DCD+34
LEXTX(1 DCD+12*, DCD+13, DCD+26*, DCD+27, DCD+32*, DCD+33
NORM WRT+9, ATTR+1*, KATTR+1!
X DX~, DX+2, DX+24*, DX+25, SR~, SR+2, SR+16*, SR+17, PR~, PR+2
, PR+24*, PR+25, POA~, POA+1*, POA+2*, POA+3, CC~, CC+1*, CC+2*, CC+3*
, CC+4, WRT~, WRT+1, TM~, TM+1*, TM+2*, TM+3, ATTR+1~*
Y WRT~, WRT+1, TM~, TM+1*, TM+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 |  Local Variables |  All