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

Package: Lab Service

Routine: LRAUS


Information

LRAUS ;AVAMC/REG - PRINT ICD SEARCH ;9/13/89 18:55 ;

Source Information

Source file <LRAUS.m>

Entry Points

Name Comments DBIA/ICR reference
N
T
D
H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NUMBER OF AUTOPSIES SEARCHED WITH ",$P(^TMP($J,0,1)," ",1)," CODING: ",LRPAT1
  • Line Location: LRAUS+4
Function Call: WRITE
  • Prompt: !,$P(LRND,"^"),?9,$E($P(LRND,"^",4),1,18),?28,$P(LRND,"^",5),?34,$P(LRND,"^",3),?38,$P(LRND,"^",2),?41,$J($P(LRND,"^",6),5)
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: A>0
  • Line Location: T+0
Function Call: WRITE
  • Prompt: ?47,$E(^(T),1,16)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B>0
  • Line Location: D+0
Function Call: WRITE
  • Prompt: ?65,$E(^(M),1,15)
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,T(0)," SEARCH (",LRSTR,"=>",LRLST,")",!,^TMP($J,0,1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"ACC NUM",?9,"NAME",?28,"ID",?33,"SEX",?37,"AGE",?41,"MO/DA",!,LR("%")
  • Line Location: H+2
Info |  Source |  Entry Points |  Interaction Calls