Routine: LEXQDRG4

Information

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

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

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