Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call