Routine: LRAUS

Information

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

Source file <LRAUS.m>

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