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
Print Page as PDF
Routine: LRAUSICD

Package: Lab Service

Routine: LRAUSICD


Information

LRAUSICD ;AVAMC/REG - AUTOPSY ICD SEARCH ;8/15/95 09:01

Source Information

Source file <LRAUSICD.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
LRDFN
SN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?20,LRO(68)," SEARCH BY ICD CODE"
  • Line Location: LRAUSICD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Beginning and Ending dates must both be prior to "_LR("I10DTE")_"(ICD-9)"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"or both be on or after "_LR("I10DTE")_"(ICD-10)."
  • Line Location: ASK+5
Info |  Source |  Entry Points |  Interaction Calls