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

Package: Lexicon Utility

Routine: LEXQDRG


Information

LEXQDRG ;ISL/KER - Query - DRG Calc. ;12/19/2014

Source Information

Source file <LEXQDRG.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lexicon Utility 4 ($$GETPRE,$$HASPRE,$$PDX,$$PRO,$$SEC)^LEXQDRG2  ($$EFF,EN)^LEXQDRG3  (DCD,WRT)^LEXQDRG4  $$IMPDATE^LEXU  
Kernel 3 HOME^%ZIS  ($$DT,$$FMADD)^XLFDT  $$UP^XLFSTR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
DRG Grouper 1 ^ICDDRG  

Entry Points

Name Comments DBIA/ICR reference
PAT(X) ; Patient
EN ; Main Entry Point
UC(X) ; Use Previously Saved Values
AGE(X) ; What is the patient's age
SXTMP ; Show ^XTMP DX/PR
EV(X) ; Check environment
SEXH ; What is the sex of the patient Help
UCP(X) ; Use Previously Saved Values (Preprocess)
ASK(X) ; Ask for input parameters
AGEH ; What is the patient's age Help
EXP(X) ; Did the patient die during episode of care
SEX(X) ; What is the sex of the patient
TRS(X) ; Was the patient transferred to acute care
DMS(X) ; Discharged against medical advice

External References

Name Field # of Occurrence
HOME^%ZIS EV+1
$$GET1^DIQ EV+2
^DIR UC+7, AGE+7, SEX+8, DMS+6, TRS+7, EXP+6, PAT+6
^ICDDRG EN+14
$$GETPRE^LEXQDRG2 EN+8
$$HASPRE^LEXQDRG2 EN+8
$$PDX^LEXQDRG2 ASK+9
$$PRO^LEXQDRG2 ASK+10
$$SEC^LEXQDRG2 ASK+9
$$EFF^LEXQDRG3 ASK+2
EN^LEXQDRG3 EN+7
DCD^LEXQDRG4 EN+15
WRT^LEXQDRG4 EN+15
$$IMPDATE^LEXU ASK+1
$$DT^XLFDT UC+3, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2, EV+1
$$FMADD^XLFDT UC+3, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2
$$UP^XLFSTR UCP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ",$P(LEXPTF,"^",2)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!," ",$P(LEXOK,"^",2)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!," Missing or invalid input variables"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!," ",$P(LEXOK,"^",2)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!," Missing or invalid input variables"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !," Enter the patient's age, 0-124."
  • Line Location: AGEH+1
Function Call: WRITE
  • Prompt: !," Answer M for Male or F for Female."
  • Line Location: SEXH+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LEXCT=1
  • Line Location: SXTMP+8
Function Call: WRITE
  • Prompt: !,LEXNN,"=",@LEXNN
  • Line Location: SXTMP+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LEXCT=1
  • Line Location: SXTMP+13
Function Call: WRITE
  • Prompt: !,LEXNN,"=",@LEXNN
  • Line Location: SXTMP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SXTMP+14
Function Call: WRITE
  • Prompt: !!,?5,"DUZ not defined"
  • Line Location: EV+1
Function Call: WRITE
  • Prompt: !!,?5,"DUZ not valid"
  • Line Location: EV+2
Routine Call
  • %ZIS
  • Line Location:
    • EV+1
Routine Call
  • DIR
  • Line Location:
    • UC+7
    • AGE+7
    • SEX+8
    • DMS+6
    • TRS+7
    • EXP+6
    • PAT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( UC+6, UC+13*, UC+14*, AGE+3, AGE+10*, SEX+3, SEX+9*, DMS+3, DMS+10*, TRS+3
, TRS+10*, EXP+3, EXP+10*, PAT+3, PAT+10*

Label References

Name Line Occurrences
$$AGE ASK+3
$$ASK EN+11
$$DMS ASK+7
$$EV EN+4
$$EXP ASK+5
$$PAT EN+5
$$SEX ASK+4
$$TRS ASK+8
$$UC EN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE EN+1~, ASK+3*
DIC EN+1~
DIR EN+1~, UC+1~, AGE+1~, SEX+1~, DMS+1~, TRS+1~, EXP+1~, PAT+1~
DIR("?" AGE+5*, SEX+6*, DMS+5*, TRS+5*, EXP+5*, PAT+5*
DIR("??" AGE+5*, SEX+6*
DIR("A" UC+4*, AGE+4*, SEX+5*, DMS+4*, TRS+4*, EXP+4*, PAT+4*
DIR("B" UC+6*, AGE+3*, SEX+4*, DMS+3*, TRS+3*, EXP+3*, PAT+3*
DIR("PRE" UC+5*, AGE+6*, SEX+7*, DMS+6*, TRS+6*, EXP+6*, PAT+6*
DIR(0 UC+4*, UCP+2, AGE+4*, SEX+5*, DMS+4*, TRS+4*, EXP+4*, PAT+4*
DIROUT EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~
, TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DIRUT EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~
, TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DT EV+1*
DTOUT EN+1~, UC+1~, UC+7, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+7, TRS+1~
, TRS+7, EXP+1~, EXP+7, PAT+1~, PAT+7
DUOUT EN+1~, UC+1~, UC+8, AGE+1~, AGE+7, SEX+1~, SEX+8, DMS+1~, DMS+8, TRS+1~
, TRS+8, EXP+1~, EXP+8, PAT+1~, PAT+8
DUZ UC+2, AGE+2, SEX+2, DMS+2, TRS+2, EXP+2, PAT+2, SXTMP+5, SXTMP+10, EV+1
, EV+2
ICDDATE EN+1~, EN+15, ASK+2*, ASK+3, ASK+9, ASK+10
ICDDMS EN+1~, ASK+6*, ASK+7*
ICDDRG EN+1~, EN+14, EN+15
ICDDX EN+1~, ASK+9!
ICDDX("B" ASK+10!
ICDEXP EN+1~, ASK+5*, ASK+6, ASK+7, ASK+8
ICDPOA EN+1~
ICDPRC EN+2~, ASK+10!
ICDPRC("B" ASK+10!
ICDTRS EN+2~, ASK+6*, ASK+8*
IOF EN+15
LEX EN+2~, EV+1~, EV+2*
LEXB EN+2~, UC+1~, UC+6*, AGE+1~, AGE+3*, SEX+1~, SEX+3*, SEX+4*, DMS+1~, DMS+3*
, TRS+1~, TRS+3*, EXP+1~, EXP+3*, PAT+1~, PAT+3*
LEXBG EN+2~
LEXC EN+2~
LEXCT SXTMP+2~*, SXTMP+8*, SXTMP+13*
LEXCUR EN+2~, EN+5*, EN+8*, EN+9, EN+10, EN+11
LEXDEV EN+5, EV+1~
LEXENV EN+2~, EN+4*
LEXF EN+2~, UC+1~, UC+3*, UC+13, AGE+1~, AGE+2*, AGE+10, SEX+1~, SEX+2*, SEX+9
, DMS+1~, DMS+2*, DMS+10, TRS+1~, TRS+2*, TRS+10, EXP+1~, EXP+2*, EXP+10, PAT+1~
, PAT+2*, PAT+10
LEXGDAT EN+2~, ASK+2*
LEXHAS EN+2~, EN+8*
LEXI EN+3~
LEXID EN+3~, UC+1~, UC+2*, UC+6, UC+13, UC+14, AGE+1~, AGE+2*, AGE+3, AGE+10
, SEX+1~, SEX+2*, SEX+3, SEX+9, DMS+1~, DMS+2*, DMS+3, DMS+10, TRS+1~, TRS+2*
, TRS+3, TRS+10, EXP+1~, EXP+2*, EXP+3, EXP+10, PAT+1~, PAT+2*, PAT+3, PAT+10
, SXTMP+4~, SXTMP+5*, SXTMP+6, SXTMP+10~*, SXTMP+11
LEXIEN EN+3~
LEXIMP ASK+1~*, ASK+3
LEXIN SXTMP+2~, SXTMP+3*, SXTMP+5, SXTMP+9*, SXTMP+10
LEXIT EN+3~
LEXLS EN+3~
LEXN EN+3~, UC+1~, UC+3*, UC+13, AGE+1~, AGE+2*, AGE+10, SEX+1~, SEX+2*, SEX+9
, DMS+1~, DMS+2*, DMS+10, TRS+1~, TRS+2*, TRS+10, EXP+1~, EXP+2*, EXP+10, PAT+1~
, PAT+2*, PAT+10
LEXNC SXTMP+4~, SXTMP+6*, SXTMP+7, SXTMP+10~, SXTMP+11*, SXTMP+12
LEXNN SXTMP+4~, SXTMP+6*, SXTMP+7*, SXTMP+8, SXTMP+10~, SXTMP+11*, SXTMP+12*, SXTMP+13
LEXOK EN+3~, EN+5*, EN+8*, EN+9, EN+10, EN+11*, EN+12
LEXPTF EN+3~, EN+5*, EN+6, EN+7
LEXS EN+3~
LEXSYS SXTMP+1~*, SXTMP+5, SXTMP+10
LEXV EN+3~, UC+1~, UC+12*, UC+14
LEXX EN+3~, AGE+1~, AGE+8, AGE+9
SEX EN+3~, ASK+4*
U EN+5*, EV+1*
X EN+3~, UC~, UC+5*, UC+8, UC+9*, UC+12*, UC+15, UCP~, UCP+1*, UCP+2
, UCP+3, ASK~, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+7*, ASK+8*, ASK+9*, ASK+10*
, AGE~, AGE+7, AGE+8, AGE+9, AGE+11*, AGE+12, SEX~, SEX+8, SEX+10*, SEX+11
, DMS~, DMS+8, DMS+9*, DMS+11*, DMS+12, TRS~, TRS+8, TRS+9*, TRS+11*, TRS+12
, EXP~, EXP+8, EXP+9*, EXP+11*, EXP+12, PAT~, PAT+8, PAT+9*, PAT+11*, PAT+12
, EV~
Y EN+3~, UC+1~, UC+10*, UC+11, UC+12, AGE+1~, AGE+8, AGE+9, AGE+10, AGE+11
, SEX+1~, SEX+9, SEX+10, DMS+1~, DMS+8, DMS+10, DMS+11, TRS+1~, TRS+8, TRS+10
, TRS+11, EXP+1~, EXP+8, EXP+10, EXP+11, PAT+1~, PAT+8, PAT+10, PAT+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All