Routine: IBQLR2A

Information

IBQLR2A ;LEB/MRY - PATIENT REPORT ; 1-JUN-95

Source file <IBQLR2A.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?20,"<<< NO PATIENTS TO PRINT >>>" Line Location: PRINT+5
Function Call: WRITE	Prompt: !!,IBSUBH,! Line Location: PLINE+3
Function Call: WRITE	Prompt: !,IBSSN,?11 Line Location: PLINE+4
Function Call: WRITE	Prompt: $J(IBDT,8) Line Location: PLINE+4
Function Call: WRITE	Prompt: $J(IBDT,8) Line Location: PLINE+4
Function Call: WRITE	Prompt: $J(IBDT,8) Line Location: PLINE+4
Function Call: WRITE	Prompt: ?29,IBADIAG,?37,IBENRLL,?45,$P(IBRAD," "),?52,$P(IBRAD," ",2),?58,$J(IBLOS,4),?63,$J(IBSACNT,4),?68,$J(IBSNCNT,4) Line Location: PLINE+5
Function Call: WRITE	Prompt: !,IBTDT,?(IOM-$L(IBHDR)/2),IBHDR,?(IOM-10),"PAGE ",IBPAG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(IBHDR1)/2),IBHDR1,!,?(IOM-$L(IBHDR2)/2),IBHDR2 Line Location: HDR+3
Function Call: WRITE	Prompt: !!,?11,"ADMIT",?20,"DISCH",?37,"ENRLL",?45,"ADM. REASONS",?63,"#AC",?68,"#N-AC" Line Location: HDR+4
Function Call: WRITE	Prompt: ?76,"C O N T I N U E D S T A Y R E A S O N S" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"SSN",?11,"DATE",?20,"DATE",?29,"DIAG",?37,"R-D-L",?45,"1",?52,"2",?58,"#LOS",?63,"DAYS",?68,"DAYS" Line Location: HDR+8
Function Call: WRITE	Prompt: ?73 Line Location: HDR+9
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","-") Line Location: HDR+11
Function Call: WRITE	Prompt: @IOF Line Location: CHKL+1