Routine: QAOSPSY0

Information

QAOSPSY0 ;HISC/DAD-SYSTEM / EQUIPMENT PROBLEMS ;6/11/93 15:59

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: ENTSK+3
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,PAT,?32,SSN,?43,Y,?56,STATUS,?64,CONFIRM,!?1,SCRN,?8,$E(SCREEN,1,72) Line Location: PRT2+2
Function Call: WRITE	Prompt: !!?26,"SYSTEM / EQUIPMENT PROBLEMS",?68,TODAY,!?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"PATIENT / SCREEN",?32,"SSN",?43,"DATE",?56,"STATUS",?64,"CONFIRMED ISSUE",!,UNDL Line Location: HEAD+3
Function Call: WRITE	Prompt: !!?3,"SERVICE: ",$S(SERV["~":$P(SERV,"~",2),1:SERV) Line Location: SUBHEAD+1