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

Package: Lexicon Utility

Routine: LEXQDRG3


Information

LEXQDRG3 ;ISL/KER - Query - DRG Calc. (DGPT) ;12/19/2014

Source Information

Source file <LEXQDRG3.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 (,$$FIND1)^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
Lexicon Utility 2 ($$DX,$$PR,$$SR,DCD,ICDDXPR,WRT)^LEXQDRG4  $$IMPDATE^LEXU  
DRG Grouper 1 ^ICDDRG  

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
EFF(X) ; Effective date
PAT(X) ; Patient
EN ; Main Entry Point
GETPAT(X) ; Get Patient Values
EFH1 ; Effective Date Help #1
EFH2 ; Effective Date Help #2
VAS(X) ; VA Patient File #2 Screen (live/service connected)
VAP(X) ; VA Patient File #2

External References

Name Field # of Occurrence
^DIC VAP+5
$$FIND1^DIC GETPAT+7
$$GET1^DIQ VAP+3, VAS+2, VAS+3, VAS+4, GETPAT+5, GETPAT+10, GETPAT+12, GETPAT+14, GETPAT+16, GETPAT+18
, GETPAT+19
^DIR EFF+9, PAT+6
^ICDDRG EN+14
$$DX^LEXQDRG4 GETPAT+21
$$PR^LEXQDRG4 GETPAT+23
$$SR^LEXQDRG4 GETPAT+22
DCD^LEXQDRG4 EN+14
ICDDXPR^LEXQDRG4 GETPAT+24
WRT^LEXQDRG4 EN+14
$$IMPDATE^LEXU EFF+2
$$DT^XLFDT EFF+2, PAT+2, VAP+2
$$FMADD^XLFDT EFF+2, EFF+4, PAT+2, VAP+2
$$FMTE^XLFDT EFF+3, EFF+5
$$UP^XLFSTR EFF+3, EFF+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ",$P(LEXVAP,"^",2)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!," Patient not selected"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!," ",$P(X,"^",2)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!," 'Effective date' missing or invalid"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!," ",$P(LEXOK,"^",2)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!," 'Patient treatment information' missing or invalid"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !," Enter the effective date of the patient's diagnosis"
  • Line Location: EFH1+1
Function Call: WRITE
  • Prompt: !!," Select a date from ",LEXMNE," to ",LEXMXE
  • Line Location: EFH1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EFH2+1
Function Call: WRITE
  • Prompt: !," JAN 20 2012 or 20 JAN 12 or 1/20/12 or 012012"
  • Line Location: EFH2+2
Function Call: WRITE
  • Prompt: !," T (for TODAY), T+1 (for TOMORROW), T+2, etc."
  • Line Location: EFH2+3
Function Call: WRITE
  • Prompt: !," T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc."
  • Line Location: EFH2+4
Function Call: WRITE
  • Prompt: !," If the year is omitted, the computer uses CURRENT"
  • Line Location: EFH2+5
Function Call: WRITE
  • Prompt: !," YEAR. Two digit year assumes no more than 20 "
  • Line Location: EFH2+6
Function Call: WRITE
  • Prompt: !," years in the future, or 80 years in the past."
  • Line Location: EFH2+7
Function Call: WRITE
  • Prompt: !," Enter ""^"" to abort."
  • Line Location: EFH2+9
Routine Call
  • DIC
  • Line Location:
    • GETPAT+7
Routine Call
  • DIC
  • Line Location:
    • VAP+5
Routine Call
  • DIR
  • Line Location:
    • EFF+9
    • PAT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^DGPT - [#45] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( EFF+3, EFF+13*, PAT+3, PAT+10*, VAP+3, VAP+8*

Label References

Name Line Occurrences
$$EFF EN+9
$$GETPAT EN+11
$$VAP EN+7
EFH1 EFH2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE EN+1~, GETPAT+2!, GETPAT+20*, GETPAT+29, GETPAT+31!
DFN EN+1~, EFF+9, EFF+13~, VAP+8*
DIC EN+1~, VAP+1~, VAP+4*
DIC("A" VAP+4*
DIC("S" VAP+4*
DIC(0 VAP+4*
DIR EN+1~, EFF+1~, PAT+1~
DIR("?" EFF+7*, PAT+5*
DIR("??" EFF+7*
DIR("A" EFF+8*, PAT+4*
DIR("B" EFF+3*, EFH2+8, PAT+3*
DIR("PRE" PAT+6*
DIR(0 EFF+6*, PAT+4*
DIROUT EN+1~, EFF+1~, EFF+10, PAT+1~, PAT+8
DIRUT EN+1~, EFF+1~, EFF+10, PAT+1~, PAT+8
DT EFF+4, GETPAT+20
DTOUT EN+1~, EFF+1~, EFF+9, PAT+1~, PAT+7, VAP+1~, VAP+5
DUOUT EN+1~, EFF+1~, EFF+10, PAT+1~, PAT+8, VAP+1~, VAP+6
DUZ EFF+2, PAT+2, VAP+2
ICDDATE EN+1~, EN+11*, EN+14
ICDDMS EN+1~, GETPAT+2!, GETPAT+12*, GETPAT+27, GETPAT+31!
ICDDRG EN+1~, EN+14
ICDDX EN+1~, GETPAT+2!, GETPAT+31!
ICDDX(0 GETPAT+30
ICDEXP EN+1~, GETPAT+2!, GETPAT+10*, GETPAT+12*, GETPAT+14, GETPAT+25, GETPAT+31!
ICDPRC EN+2~, GETPAT+2!, GETPAT+31!
ICDTRS EN+2~, GETPAT+2!, GETPAT+14*, GETPAT+26, GETPAT+31!
IOF EN+14
LEX1 EN+2~
LEXB EN+2~, EFF+1~, EFF+3*, PAT+1~, PAT+3*, VAP+1~, VAP+3*
LEXC EN+2~
LEXCODE EN+2~
LEXD EN+2~
LEXDCH EN+2~, GETPAT+1~, GETPAT+18*, GETPAT+20
LEXDES EN+2~
LEXDFN EN+2~, VAP+1~, VAS+1~*, GETPAT+1~, GETPAT+3*, GETPAT+4, GETPAT+5, GETPAT+16, GETPAT+19
LEXDOB EN+2~, GETPAT+1~, GETPAT+19*, GETPAT+20
LEXDRG EN+3~
LEXDT EN+3~
LEXDX EN+3~, GETPAT+21!*
LEXF EN+3~, EFF+1~, EFF+2*, EFF+13, PAT+1~, PAT+2*, PAT+10, VAP+1~, VAP+2*, VAP+8
LEXFL EN+3~
LEXFLG EN+3~
LEXGDAT EN+3~, EN+11*
>> LEXHAS EFF+9
LEXI EN+3~
LEXI1 EN+3~
LEXI2 EN+3~
LEXI3 EN+3~
LEXID EN+4~, EFF+1~, EFF+2*, EFF+3, EFF+13, PAT+1~, PAT+2*, PAT+3, PAT+10, VAP+1~
, VAP+2*, VAP+3, VAP+8
LEXIEN EN+4~
LEXIENS EN+4~
LEXIMP EFF+1~, EFF+2*, EFF+4
LEXIPT EN+4~
LEXIT EN+4~
LEXLEXP EN+3~, VAP+1~, VAS+1~, VAS+3*
LEXMN EN+4~, EFF+1~, EFF+4*, EFF+5, EFF+6
LEXMNE EN+4~, EFF+1~, EFF+5*, EFF+6*, EFH1+2, EFH1+3
LEXMX EN+4~, EFF+1~, EFF+4*, EFF+5, EFF+6
LEXMXE EN+4~, EFF+1~, EFF+5*, EFF+6*, EFH1+2, EFH1+3
LEXN EN+4~, EFF+1~, EFF+2*, EFF+13, PAT+1~, PAT+2*, PAT+10, VAP+1~, VAP+2*, VAP+8
LEXNAM EN+4~, VAP+1~, VAS+1~, VAS+2*, GETPAT+1~, GETPAT+5*, GETPAT+6, GETPAT+7
LEXOK EN+5~, EN+11*, EN+12, EN+13
LEXOUT EN+5~, GETPAT+1~, GETPAT+3*, GETPAT+25*, GETPAT+26*, GETPAT+27*, GETPAT+28*, GETPAT+29*, GETPAT+30*, GETPAT+31
, GETPAT+32
LEXPDX EN+5~
LEXPR EN+5~, GETPAT+23!*
LEXPR1 EN+5~
LEXPRDT EN+5~
LEXPRE EN+5~
LEXPRS EN+5~
LEXPTF EN+5~, GETPAT+1~, GETPAT+7*, GETPAT+8, GETPAT+10, GETPAT+12, GETPAT+14, GETPAT+18, GETPAT+21, GETPAT+22
, GETPAT+23
LEXSCC EN+5~, VAP+1~, VAS+1~, VAS+4*
LEXSDX EN+6~
LEXSR EN+6~, GETPAT+22!*
LEXSR1 EN+6~
LEXSRDT EN+6~
LEXSRS EN+6~
LEXT EN+6~
LEXTD EN+6~
LEXTMP EN+6~
LEXVAP EN+6~, EN+7*, EN+8, EN+11*
SEX EN+6~, GETPAT+2!, GETPAT+16*, GETPAT+28, GETPAT+31!
X EN+6~, EN+9*, EN+10, EN+11, EFF~, EFF+10, EFF+11*, EFF+14*, PAT~, PAT+8
, PAT+9*, PAT+11*, PAT+12, VAP~, VAP+6*, VAP+7*, VAP+8*, VAP+9, VAS~, GETPAT~
, GETPAT+3, GETPAT+32*, GETPAT+33
Y EN+6~, EFF+1~, EFF+12*, EFF+13, EFF+14, PAT+1~, PAT+8, PAT+10, PAT+11, VAP+1~
, VAP+7, VAP+8, VAS+1, VAS+2, VAS+3, VAS+4
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