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

Package: Lexicon Utility

Routine: LEXQDRG2


Information

LEXQDRG2 ;ISL/KER - Query - DRG Calc. (PDX/SDX/PRO/PRE) ;12/19/2014

Source Information

Source file <LEXQDRG2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 ($$CODEC,$$HAC,$$POAE,$$ROOT)^ICDEX  
Lexicon Utility 1 $$IMPDATE^LEXU  

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

Package Total Caller Graph
Lexicon Utility 1 LEXQDRG  

Entry Points

Name Comments DBIA/ICR reference
POAH1 ; Present On Admission ? Help
POAH2 ; Present On Admission ?? Help
SETPRE ; Set Previous Values
HASPRE(X) ; User Has Previous Values
POA(X) ; Present On Admission
PRO(X) ; Procedures
SEC(X) ; Seconary DX
PDX(X) ; Principal DX
PURPRE ; Purge Saved Values
GETPRE(X) ; Get Previous Values

External References

Name Field # of Occurrence
EN^DDIOL POA+12
^DIC PDX+10, SEC+15, PRO+12
$$GET1^DIQ POA+8, POA+9
^DIR POA+6, POA+13
$$CODEC^ICDEX PDX+5, SEC+12, PRO+9
$$HAC^ICDEX POA+2
$$POAE^ICDEX POA+2
$$ROOT^ICDEX PDX+7, SEC+9, PRO+7
$$IMPDATE^LEXU PDX+3, SEC+3, PRO+3, GETPRE+4, SETPRE+3, PURPRE+1
$$DT^XLFDT PDX+4, SEC+4, PRO+6, GETPRE+3, SETPRE+2
$$FMADD^XLFDT PDX+4, SEC+4, PRO+6, SETPRE+2
$$NOW^XLFDT SETPRE+17
$$UP^XLFSTR POA+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: POA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: POA+12
Function Call: WRITE
  • Prompt: !,?9,"Was the diagnosis present on admission? Answer Yes, No,"
  • Line Location: POAH1+1
Function Call: WRITE
  • Prompt: !,?9,"Apply the Present on Admission (POA) indicator for each diagnosis"
  • Line Location: POAH2+2
Function Call: WRITE
  • Prompt: !,?9,"and external cause of injury code(s) reported as the final set of"
  • Line Location: POAH2+3
Function Call: WRITE
  • Prompt: !,?9,"diagnosis codes assigned. One of the following values should be"
  • Line Location: POAH2+4
Function Call: WRITE
  • Prompt: !,?9,"assigned in accordance with the official coding guidelines:"
  • Line Location: POAH2+5
Function Call: WRITE
  • Prompt: !,?9,""
  • Line Location: POAH2+6
Function Call: WRITE
  • Prompt: !,?9,"Y = present at the time of inpatient admission;"
  • Line Location: POAH2+7
Function Call: WRITE
  • Prompt: !,?9,"N = not present at the time of inpatient admission;"
  • Line Location: POAH2+8
Function Call: WRITE
  • Prompt: !,?9,"U = documentation is insufficient to determine if"
  • Line Location: POAH2+9
Function Call: WRITE
  • Prompt: !,?9," condition is present on admission;"
  • Line Location: POAH2+10
Function Call: WRITE
  • Prompt: !,?9,"W = provider is unable to clinically determine"
  • Line Location: POAH2+11
Function Call: WRITE
  • Prompt: !,?9," whether condition was present on admission or not"
  • Line Location: POAH2+12
Routine Call
  • DIC
  • Line Location:
    • PDX+10
    • SEC+15
    • PRO+12
Routine Call
  • DIR
  • Line Location:
    • POA+6
    • POA+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] POA+1
^XTMP( PDX+5, PDX+12!, PDX+15!, PDX+18!, PDX+29*, SEC+11, SEC+18!, SEC+25*, SEC+30!, PRO+8
, PRO+15!, PRO+19*, PRO+24!, GETPRE+2, GETPRE+5, GETPRE+6, GETPRE+9, GETPRE+10, GETPRE+12, GETPRE+14
, GETPRE+16, GETPRE+18, GETPRE+20, SETPRE+7*, SETPRE+12*, SETPRE+14*, SETPRE+16*, SETPRE+18*, SETPRE+20*, SETPRE+22*
, SETPRE+24*, PURPRE+2!, PURPRE+3!, PURPRE+4!, HASPRE+1, HASPRE+2, HASPRE+3, HASPRE+4, HASPRE+5, HASPRE+6
, HASPRE+7, HASPRE+8

Label References

Name Line Occurrences
$$POA PDX+22, SEC+22
POAH1 POAH2+1
PURPRE SETPRE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE GETPRE+13*, GETPRE+23, SETPRE+13
DIC PDX+1~, PDX+7*, SEC+1~, SEC+8~, SEC+9*, PRO+1~, PRO+7~*
DIC("A" PDX+8*, SEC+13*, PRO+10*
DIC("B" PDX+6*, SEC+12*, PRO+9*
DIC("S" PDX+9*, SEC+14*, PRO+11*
DIC(0 PDX+7*, SEC+9*, PRO+7*
DICA SEC+1~, SEC+2!, SEC+13, SEC+20*, PRO+1~, PRO+2!, PRO+10, PRO+17*
DIR POA+1~, POA+3!, POA+13!
DIR("?" POA+5*
DIR("??" POA+5*
DIR("A" POA+3*, POA+13*
DIR("B" POA+4*, POA+13*
DIR("PRE" POA+4*
DIR(0 POA+3*, POA+13*
DIROUT POA+1~, POA+6, POA+13
DIRUT POA+1~
DTOUT PDX+1~, PDX+19, SEC+1~, SEC+19, SEC+26, PRO+1~, PRO+16, PRO+20, POA+1~, POA+6
, POA+13
DUOUT PDX+1~, PDX+11*, PDX+20, SEC+1~, SEC+16*, SEC+19, PRO+1~, PRO+13*, PRO+16, POA+1~
, POA+6, POA+13
DUZ PDX+4, PDX+12, PDX+14, PDX+17, SEC+10, SEC+17, SEC+29, PRO+8, PRO+14, PRO+18
, PRO+23, GETPRE+2, GETPRE+5, GETPRE+6, GETPRE+9, GETPRE+10, GETPRE+12, GETPRE+14, GETPRE+16, GETPRE+18
, GETPRE+20, SETPRE+6, SETPRE+11, SETPRE+13, SETPRE+15, SETPRE+17, SETPRE+19, SETPRE+21, SETPRE+23, PURPRE+2
, PURPRE+3, PURPRE+4, HASPRE+1, HASPRE+2, HASPRE+3, HASPRE+4, HASPRE+5, HASPRE+6, HASPRE+7, HASPRE+8
ICDDATE PDX+1~, PDX+2*, PDX+3, SEC+1~, SEC+2*, SEC+3, PRO+1~, PRO+2*, PRO+3, GETPRE+3*
, GETPRE+4, GETPRE+8, SETPRE+3, SETPRE+8, SETPRE+17, PURPRE+1, PURPRE+2
>> ICDDMS GETPRE+17*, GETPRE+25, SETPRE+19
ICDDX GETPRE+1!
ICDDX( SEC+5, SEC+6!, SEC+24*, SEC+31!, GETPRE+7*, SETPRE+4, SETPRE+5
ICDDX(" " GETPRE+7
ICDDX("B" PDX+27*, SEC+6!, SEC+24*, SEC+31!
ICDDX(1 PDX+27*, GETPRE+22
>> ICDEXP GETPRE+21*, GETPRE+27, SETPRE+23
>> ICDPOA( SEC+24*
>> ICDPOA(1 PDX+28*
ICDPRC GETPRE+1!
ICDPRC( PRO+4, PRO+5!, PRO+18*, PRO+25!, GETPRE+11*, SETPRE+9, SETPRE+10
ICDPRC(" " GETPRE+11
ICDPRC("B" PRO+5!, PRO+18*, PRO+25!
>> ICDTRS GETPRE+19*, GETPRE+26, SETPRE+21
LEX9 HASPRE+1~*, HASPRE+2
LEXAI SEC+29~, SEC+31*, PRO+23~, PRO+25*
LEXB PDX+11~
LEXBG PDX+13*, PDX+16*, SEC+1~, SEC+16~*, SEC+28~*, PRO+1~, PRO+13~*, PRO+22~*
LEXC PDX+1~, PDX+5*, PDX+6, SEC+1~, SEC+8~, SEC+12*, PRO+1~, PRO+7~, PRO+9*
LEXF PDX+1~, PDX+4*, PDX+29, SEC+1~, SEC+4*, SEC+25, PRO+1~, PRO+6*, PRO+19, SETPRE+1~
, SETPRE+2*, SETPRE+7, SETPRE+12, SETPRE+14, SETPRE+16, SETPRE+18, SETPRE+20, SETPRE+22, SETPRE+24
LEXHAC POA+1~, POA+2*, POA+4, POAH1+2, POAH1+3, POAH2+13
LEXI GETPRE+1~, GETPRE+5*, GETPRE+6, GETPRE+9*, GETPRE+10, SETPRE+1~, SETPRE+4*, SETPRE+5, SETPRE+6, SETPRE+9*
, SETPRE+10, SETPRE+11, PURPRE+1~, PURPRE+3*, PURPRE+4*
LEXID PDX+1~, PDX+4*, PDX+5, PDX+11~, PDX+12*, PDX+14~*, PDX+15, PDX+17~*, PDX+18, PDX+29
, SEC+1~, SEC+10*, SEC+11, SEC+17~*, SEC+18, SEC+25, SEC+29~*, SEC+30, PRO+1~, PRO+8*
, PRO+14~*, PRO+15, PRO+18*, PRO+19, PRO+23~*, PRO+24, SETPRE+1~, SETPRE+6*, SETPRE+7, SETPRE+11*
, SETPRE+12, SETPRE+13*, SETPRE+14, SETPRE+15*, SETPRE+16, SETPRE+17*, SETPRE+18, SETPRE+19*, SETPRE+20, SETPRE+21*
, SETPRE+22, SETPRE+23*, SETPRE+24
LEXIEN PDX+1~, PDX+5*, PDX+14~, PDX+15*, PDX+17~, PDX+18*, SEC+1~, SEC+6~*, SEC+8~, SEC+11*
, SEC+12, SEC+17~, SEC+18*, SEC+29~, SEC+30*, SEC+31, PRO+1~, PRO+5~*, PRO+7~, PRO+8*
, PRO+9, PRO+14~, PRO+15*, PRO+23~, PRO+24*, PRO+25, POA+1~*, POA+2, POA+8, POA+9
LEXIMP GETPRE+1~, GETPRE+4*, GETPRE+8, SETPRE+1~, SETPRE+3*, SETPRE+8, PURPRE+1~*, PURPRE+2
LEXIT PDX+1~, PDX+2*, PDX+21*, PDX+22*, PDX+23, SEC+1~, SEC+5*, SEC+7, SEC+8*, SEC+19*
, SEC+22, SEC+28~*, SEC+30*, PRO+1~, PRO+4*, PRO+6*, PRO+7*, PRO+16*, PRO+22~*, PRO+24*
LEXIT2 SEC+8~, SEC+21*, SEC+22*, SEC+23
LEXLS SEC+1~, SEC+5*, SEC+6, SEC+7*, SEC+25*, SEC+28, PRO+1~, PRO+4*, PRO+5, PRO+6*
, PRO+19*, PRO+22
LEXN PDX+1~, PDX+4*, PDX+29, SEC+1~, SEC+4*, SEC+25, PRO+1~, PRO+6*, PRO+19, SETPRE+1~
, SETPRE+2*, SETPRE+7, SETPRE+12, SETPRE+14, SETPRE+16, SETPRE+18, SETPRE+20, SETPRE+22, SETPRE+24
LEXPDX PDX+1~, PDX+21*, PDX+22, PDX+26, PDX+27, PDX+29
LEXPOA PDX+1~, PDX+21*, PDX+22*, PDX+24, PDX+25, PDX+28, SEC+8~, SEC+21*, SEC+22*, SEC+23
, SEC+24
LEXPOAE POA+1~, POA+2*
LEXPR POA+1~, POA+12
LEXPR(1 POA+9*
LEXPR(2 POA+10*
LEXPR(3 POA+11*
LEXQ PDX+11~, PDX+13*, PDX+15*, PDX+16*, PDX+18*, SEC+16~*, SEC+18*, PRO+13~*, PRO+15*, POA+1~
, POAH2+1*
LEXS PDX+13*, PDX+14, PDX+16*, PDX+17, SEC+1~, SEC+7*, SEC+8, SEC+10, SEC+16~*, SEC+17
, SEC+24, SEC+25, SEC+28~*, SEC+29, PRO+1~, PRO+6*, PRO+7, PRO+8, PRO+13~*, PRO+14
, PRO+18, PRO+19, PRO+22~*, PRO+23, GETPRE+1~, GETPRE+7*, GETPRE+11*
LEXSEC SEC+8~, SEC+21*, SEC+22
LEXSYS PDX+1~, PDX+3*, PDX+4, PDX+12, PDX+14, PDX+17, PDX+22, PDX+24, PDX+25, PDX+28
, SEC+1~, SEC+3*, SEC+10, SEC+17, SEC+21, SEC+23, SEC+29, PRO+1~, PRO+3*, PRO+8
, PRO+14, PRO+18, PRO+23, GETPRE+1~, GETPRE+4*, GETPRE+5, GETPRE+6, GETPRE+8*, GETPRE+9, GETPRE+10
, SETPRE+1~, SETPRE+3*, SETPRE+6, SETPRE+8*, SETPRE+11, PURPRE+1~*, PURPRE+2*, PURPRE+3
LEXV SETPRE+1~, SETPRE+5~*, SETPRE+6, SETPRE+7, SETPRE+10~*, SETPRE+11, SETPRE+12, SETPRE+13*, SETPRE+14, SETPRE+15*
, SETPRE+16, SETPRE+17*, SETPRE+18, SETPRE+19*, SETPRE+20, SETPRE+21*, SETPRE+22, SETPRE+23*, SETPRE+24
LEXX GETPRE+1~, GETPRE+2*, GETPRE+3*, GETPRE+6~*, GETPRE+7, GETPRE+10~*, GETPRE+11, GETPRE+12*, GETPRE+13*, GETPRE+14*
, GETPRE+15*, GETPRE+16*, GETPRE+17*, GETPRE+18*, GETPRE+19*, GETPRE+20*, GETPRE+21*, HASPRE+1~, HASPRE+2*, HASPRE+3*
, HASPRE+4*, HASPRE+5*, HASPRE+6*, HASPRE+7*, HASPRE+8*
>> SEX GETPRE+15*, GETPRE+24, SETPRE+15
X PDX~, PDX+2, PDX+10, SEC~, SEC+2, SEC+15, SEC+19, SEC+27, PRO~, PRO+2
, PRO+12, PRO+16, PRO+21, POA~, POA+1, POA+7, POA+16*, POA+17, GETPRE~, HASPRE~
Y PDX+1~, PDX+21, SEC+1~, SEC+19, SEC+21, SEC+24, SEC+25, PRO+1~, PRO+16, PRO+18
, PRO+19, POA+1~, POA+13*, POA+14*, POA+15*, POA+16
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