Routine: LRAPJNC

Information

LRAPJNC ;AVAMC/REG - INCOMPLETE PATH RPTS ;2/10/98 20:30 ;

Source file <LRAPJNC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,LRO(68)," Incomplete Reports" Line Location: LRAPJNC+2
Function Call: WRITE	Prompt: !!,"There are no incomplete reports within specified time." Line Location: QUE+2
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,$J(Z,5),?7,$J($P(Y,"^"),8),?18,$E($P(Y,"^",2),1,20),?39,$P(Y,"^",3),?44,$P(Y,"^",4),?62,$E($P(Y,"^",5),1,18) Line Location: W+0
Function Call: WRITE	Prompt: !?62,$E($P(Y,"^",6),1,18) Condition for execution: $P(Y,"^",6)]"" Line Location: W+0
Function Call: WRITE	Prompt: !,"Incomplete ",LRO(68)," (",LRABV,") Reports",!,LRABV,?23,"FROM ",LRSTR," TO ",LRLST,!,"Acc #",?7,"Date",?18,"Patient",?39,"ID",?44,"Location",?62,$S(LRSS="AU":"Pathologist(s)",1:"Pathologist"),!,LR("%") Line Location: H+1