Routine: QAOSPDQ1

Information

QAOSPDQ1 ;HISC/DAD-DELINQUENT REVIEWS REPORT ;9/14/92 10:39

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: QAOSPDQ1+3
Function Call: WRITE	Prompt: !!?3,"SERVICE: ",$S(QAOSSERV["~":$P(QAOSSERV,"~",2),1:QAOSSERV),! Line Location: LOOP1+1
Function Call: WRITE	Prompt: !,QAOSNAME,?32,QAOSDT,?45,QAOSSCRN,?53,QAOSPDUE,?68,QAOSMDUE Line Location: LOOP2+2
Function Call: WRITE	Prompt: !,QAOSSN Line Location: LOOP2+2
Function Call: WRITE	Prompt: ?53,$S(Y]"":Y,1:" ---") Line Location: PLOOP+1
Function Call: WRITE	Prompt: ?53,$S(Y]"":Y,1:" ---") Line Location: MLOOP+1
Function Call: WRITE	Prompt: !!?31,"DELINQUENT REVIEWS",?68,TODAY,!?31,"AS OF ",TODAY,?68,"PAGE: ",PAGE,!?QAQTART,QAQ2HED Line Location: HEAD+2
Function Call: WRITE	Prompt: !,"PATIENT",?32,"OCCURRENCE",?45,"SCREEN",?53,"PEER:",?68,"MANAGEMENT:",!,"SSN",?32,"DATE",?53,"DUE DATE",?68,"DUE DATE",!?53,"COMPLETED",?68,"COMPLETED",!,UNDL Line Location: HEAD+3