Routine: PSOARX1

Information

PSOARX1 ;BHAM ISC/SAB prints archive index only ; 01/20/95

Source file <PSOARX1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSOARX1+2
Function Call: WRITE	Prompt: !,$C(7),"There is no data to print!" Line Location: PSOARX1+3
Function Call: WRITE	Prompt: !,$C(7),"There is no data to print!" Line Location: PSOARX1+8
Function Call: WRITE	Prompt: ! Line Location: HDR+0
Function Call: WRITE	Prompt: !!,"************There is no data to print**************",! Line Location: EN+0
Function Call: WRITE	Prompt: !?($L(NM)+3) Condition for execution: ($X+$L(ZII)+1)>(IOM-5) Line Location: EN+6
Function Call: WRITE	Prompt: $P(^PSRX(ZII,0),"^"),"," Line Location: EN+6
Function Call: WRITE	Prompt: @IOF,!!?(IOM-$L(PSOACDS)\2),PSOACDS,?$X+10," Page: "_PSOAPG Line Location: HD+1
Function Call: WRITE	Prompt: !?(IOM-$L($E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3))\2),$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),! Line Location: HD+2