Routine: PSOARCIN

Information

PSOARCIN ;BHAM ISC/LGH,SAB - tape index search ; 07/07/92

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Must select a MAGTAPE device",!! Line Location: PQ+0
Function Call: WRITE	Prompt: !! Line Location: PQ+1
Function Call: WRITE	Prompt: !! Line Location: PQ+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: R2+1
Function Call: WRITE	Prompt: !,X Line Location: R2+1
Function Call: WRITE	Prompt: @%MT("REW") Line Location: R2+2
Function Call: WRITE	Prompt: !! Line Location: RN+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: R+0
Function Call: READ	Variable: S Timeout: $P(X,"^",2)="NEW" Line Location: R+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: R5+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: R1+0
Function Call: WRITE	Prompt: @PSOACPF,!,"The following scripts were archived on this tape for : ",!! Line Location: P+1
Function Call: WRITE	Prompt: $P(^TMP($J,"ZRX",I),"^",2) Line Location: P+2
Function Call: WRITE	Prompt: !!,NM_" does not have archived scripts on this tape." Line Location: NOT+0
Function Call: WRITE	Prompt: !!,"Enter the name or Social Security Number of the patient whose archived",!,"prescriptions you wish to retrieve. Social Security Number must be in the",!,"form : ######### (NO DASHES)!!" Line Location: QNM+0