Routine: QAOSPSM1

Information

QAOSPSM1 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART I ;11/20/92 15:39

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J(QAOSSEQ,2)," (",X,")" Line Location: LOOP1+1
Function Call: WRITE	Prompt: !!,"COMMENTS:" Line Location: LOOP1+4
Function Call: WRITE	Prompt: !!?TAB,X,!?TAB,$TR($J("",$L(X))," ","-") Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"MEDICAL CENTER: ",$S(QAOBLANK:$E(UNDL,1,64),1:QAOSSITE) Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"PERSON PREPARING REPORT: ",$E(UNDL,1,55) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"TITLE & CORRESPONDENCE SYMBOL OF THE ABOVE: ",$E(UNDL,1,36) Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"FTS TELEPHONE: ",$E(UNDL,1,27)," TELEFAX: ",$E(UNDL,1,28) Line Location: HDR+7
Function Call: WRITE	Prompt: !!,"REPORTING PERIOD: ",$S(QAOBLANK:$E(UNDL,1,62),1:QAQ2HED),! Line Location: HDR+8
Function Call: WRITE	Prompt: !,"\|CRITERION\|--# OF OCCURRENCES---\|--OUTCOME OF PEER REVIEW---\|-# OF OCCURRENCES-\|" Line Location: HDR+9
Function Call: WRITE	Prompt: !,"\| SCREEN \| REVIEWED REFERRED \|LEVEL LEVEL LEVEL PENDING\| REFERRED FOR \|" Line Location: HDR+10
Function Call: WRITE	Prompt: !,"\| \| CLINICALLY TO PEER \| 1 2 3 \| SYSTEM EQUIPMENT\|" Line Location: HDR+11
Function Call: WRITE	Prompt: !,"\|=========\|=====================\|===========================\|==================\|" Line Location: HDR+12