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

Package: DRG Grouper

Routine: ICDEXLK6


Information

ICDEXLK6 ;SLC/KER - ICD Extractor - Lookup, Miscellaneous ;12/19/2014

Source Information

Source file <ICDEXLK6.m>

Entry Points

Name Comments DBIA/ICR reference
DX9 ; Fileman Lookup ICD-9 Diagnosis (interactive)
DX10 ; Fileman Lookup ICD-10 Diagnosis (interactive)
DX ; Fileman Lookup Diagnosis (interactive)
PR9 ; Fileman Lookup ICD-9 Procedures (interactive)
PR10 ; Fileman Lookup ICD-10 Procedures (interactive)
PR ; Fileman Lookup Procedure (interactive)
DIM(X) ; Check MUMPS Code
FILE(FILE,SYS) ; File
FILT(X) ; File Transform
FILN(X) ; File Number
FILH ; File Help
SYS(FILE,SYS) ; System
CDT(CDT,SYS) ; Date
CDTT(X) ; Date Transform
CDTH ; Date Help
DIC0(X) ; Correct DIC(0) for a versioned file
DICU ; Undo DIC
DIE ; Set for DIE call
DICS(ICDS) ; Check DIC("S")
SAV(X,DIC) ; Save Defaults
RET(DIC) ; Retrieve Defaults
PA(ICD,X) ; Parse Array
OUT(X,Y,Z,ARY) ; Output Array
XT(X) ; Input Transform for X
TM(X,Y) ; Trim Y

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?10,FI,?16,CD,?20,NM,?41,RT
  • Line Location: FILH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter a date to be used to determine the appropriate codes"
  • Line Location: CDTH+1
Function Call: WRITE
  • Prompt: !,?5,"and terms that were in use on the date specified. ",!
  • Line Location: CDTH+2
Function Call: WRITE
  • Prompt: !,?5,"Date must be from ",BEG," to ",END,!
  • Line Location: CDTH+6
Function Call: WRITE
  • Prompt: !,?5,"Examples of Valid Dates:",!
  • Line Location: CDTH+7
Function Call: WRITE
  • Prompt: !,?9,MO," ",DY," ",YR," or "
  • Line Location: CDTH+8
Function Call: WRITE
  • Prompt: DY," ",MO," ",$S($L(YR)=2:YR,$L(YR)=4:$E(YR,3,4),1:"")," or "
  • Line Location: CDTH+9
Function Call: WRITE
  • Prompt: +($E(LO,6,7)),"/",$E(LO,4,5),"/",$E((1700+$E(LO,1,3)),3,4)," or "
  • Line Location: CDTH+10
Function Call: WRITE
  • Prompt: $E(LO,4,5),$E(LO,6,7),$E((1700+$E(LO,1,3)),3,4)
  • Line Location: CDTH+11
Function Call: WRITE
  • Prompt: !,?5,"Examples of Valid Dates:",!
  • Line Location: CDTH+13
Function Call: WRITE
  • Prompt: !,?9,"JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"
  • Line Location: CDTH+14
Function Call: WRITE
  • Prompt: !,?9," T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc."
  • Line Location: CDTH+15
Function Call: WRITE
  • Prompt: !,?9," T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc.",!
  • Line Location: CDTH+16
Function Call: WRITE
  • Prompt: !,?5,"This date is sometimes called the 'versioning date' (VistA) or"
  • Line Location: CDTH+17
Function Call: WRITE
  • Prompt: !,?5,"the 'date service was provided to the patient' (HIPAA)"
  • Line Location: CDTH+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^ICD9 - [#80] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call