Routine: QAOSPWT0

Information

QAOSPWT0 ;HISC/DAD-PATIENTS AWAITING CLINICAL REVIEW ;4/30/93 09:41

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: QAOSPWT0+5
Function Call: WRITE	Prompt: !!,"NO PATIENTS FOUND AWAITING CLINICAL REVIEW" Line Location: ENTSK+20
Function Call: WRITE	Prompt: !!,NAME,?33,SSN,?45,Y,?59,$S(WARD["~":$P(WARD,"~",2),1:WARD) Line Location: ENTSK+27
Function Call: WRITE	Prompt: !?1,SCRN,?8,$E(SCRNTXT,1,50),?59,WARD(0) Line Location: ENTSK+28
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !!?23,"PATIENTS AWAITING CLINICAL REVIEW",?68,TODAY Line Location: HEAD+2
Function Call: WRITE	Prompt: !?QAQTART,QAQ2HED,?68,"PAGE: ",PAGE Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"PATIENT / SCREEN",?33,"SSN",?45,"DATE" Line Location: HEAD+5
Function Call: WRITE	Prompt: ?59,$S(QAOSSORT="C":"CURR/OCCUR",1:"OCCUR/CURR")," WARD/CLIN" Line Location: HEAD+6
Function Call: WRITE	Prompt: !,UNDL Line Location: HEAD+7