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

Package: Lexicon Utility

Routine: LEXQDRG3


Information

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

Source Information

Source file <LEXQDRG3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry Point
EFF(X) ; Effective date
EFH1 ; Effective Date Help #1
EFH2 ; Effective Date Help #2
PAT(X) ; Patient
VAP(X) ; VA Patient File #2
VAS(X) ; VA Patient File #2 Screen (live/service connected)
GETPAT(X) ; Get Patient Values

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
^DGPT - [#45] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call