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

Package: Toolkit

Routine: XTLKTICD


Information

XTLKTICD ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC- DRIVER ROUTINE FOR ICD LOOKUP UTILITY ;04/06/95 14:19

Source Information

Source file <XTLKTICD.m>

Entry Points

Name Comments DBIA/ICR reference
KL
A
COMMON
LOOKUP ;
CODE ;;;S DIC=$S($E(XTLKTTYP)="D":80,1:80.1),DIC(0)="EQMZ" D ^DIC W ! Q
NARR ;;;W ! G ICDDX^XTLKKWLD:$E(XTLKTTYP)="D",ICDOP^XTLKKWLD

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: XTLKX
  • Timeout: DTIME
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,"NARRATIVE: "
  • Line Location: A+2
Function Call: READ
  • Prompt: "NARRATIVE: "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: COMMON+0
Function Call: WRITE
  • Prompt: !
  • Line Location: COMMON+0
Function Call: WRITE
  • Prompt: !
  • Line Location: COMMON+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CODE+0
Info |  Source |  Entry Points |  Interaction Calls