Routine: QAOSSFR1

Information

QAOSSFR1 ;HISC/DAD-OCCURRENCE SCREEN / MONITORING SYSTEM AUTO ENROLL SPECIAL FUNCTIONS ROUTINE ;11/8/93 09:54

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No patients found meeting this screen." Line Location: ENTSK+8
Function Call: WRITE	Prompt: !!,QAOSPAT,?34,$P(X,"^") Line Location: ENTSK+17
Function Call: WRITE	Prompt: ?49,$S($D(^SC(+$P(X,"^",2),0))#2:$P(^(0),"^"),1:$P(X,"^",2)) Line Location: ENTSK+18
Function Call: WRITE	Prompt: !?3,$P(X,"^",3) Line Location: ENTSK+19
Function Call: WRITE	Prompt: ?37,Y Line Location: ENTSK+19
Function Call: WRITE	Prompt: !!,"Number of occurrences: ",QAOCOUNT,!,@IOF Line Location: DONE+1
Function Call: WRITE	Prompt: !!?20,"AUTO ENROLLED OCCURRENCE SCREEN PATIENTS",?65,QAOTODAY,!?26,"OCCURRENCE DATE: ",QAOSOCDT,?65,"PAGE: ",QAOSPAGE Line Location: HEAD+2
Function Call: WRITE	Prompt: !?80-$L(X)/2,X Line Location: HEAD+4
Function Call: WRITE	Prompt: !," (* Denotes that this occurrence has already been entered into the system)" Line Location: HEAD+6
Function Call: WRITE	Prompt: !!,"Patient Name",?34,"SSN",?49,"Ward/Clinic",!?3,"Admitting Diagnosis",?37,"Previous Movement",!,QAOSUNDL Line Location: HEAD+7
Function Call: WRITE	Prompt: !!?5,"Screen: ",QAOSSCRN," ",QAOSSCRN(0),! Line Location: HEAD+8