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

Package: Lexicon Utility

Routine: LEXQDRG


Information

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

Source Information

Source file <LEXQDRG.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call