Routine: QAOSPAD1

Information

QAOSPAD1 ;HISC/DAD-ADVERSE FINDINGS REPORT ;2/12/93 15:13

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: QAOSPAD1+3
Function Call: WRITE	Prompt: !!,PAT,?32,SSN,?43,Y,?56,SCRN,?63,STATUS,?71,FIND Line Location: LOOP2+2
Function Call: WRITE	Prompt: !,$E(ATTEND,1,25),?27,$E(TEAM,1,25),?54,$E(PROV,1,25) Line Location: LOOP2+3
Function Call: WRITE	Prompt: !,"-ATTRIBUTION(INDIVIDUAL)-",?27,"-ATTRIBUTION(MEDICAL TEAM)-",?56,"-ATTRIBUTION(HOSP LOC)-" Line Location: LOOP2+6
Function Call: WRITE	Prompt: ! Line Location: LOOP3+1
Function Call: WRITE	Prompt: $E(X,1,25) Line Location: INDIV+1
Function Call: WRITE	Prompt: ?27,$E(X,1,25) Line Location: TEAM+1
Function Call: WRITE	Prompt: ?56,$E(X,1,25) Line Location: HOSPL+1
Function Call: WRITE	Prompt: !!?32,"ADVERSE FINDINGS",?68,TODAY,!?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE Line Location: HEAD+2
Function Call: WRITE	Prompt: !,UNDL Line Location: HEAD+4
Function Call: WRITE	Prompt: !!?3,"SERVICE: ",$S(SERV["~":$P(SERV,"~",2),1:SERV) Line Location: SUBHEAD+1