Routine: NURARWL8

Information

NURARWL8 ;HIRMFO/MD-HOSPITAL TOTAL ROUTINE FOR WORKLOAD STATISTICS REPORTS ;9/20/96

Name	Comments	DBIA/ICR reference
HTOT	; HOSPITAL TOTALS
AVG	;CENSUS AVG
HEADER	; PRINT REPORT HEADING FOR AMIS WORKLOAD REPORTS
DATE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ?48,$J($P(NHREQ,U,2),4,1),?54,$J($P(NHFTEE,U,2),4,1) Line Location: HTOT+6
Function Call: WRITE	Prompt: ?92,$J($P(NHPROD,U,3),3,0) Condition for execution: NURSZAP'>6 ?67,$J($P(NHPROD,U,2),3,0) W ?74,$J($P(NHREQ,U,3),4,1),?80,$J($P(NHFTEE,U,3),4,1),?86,$J($P(NHVAR,U,3),5,1) W:NURSZAP'>6 Line Location: HTOT+7
Function Call: WRITE	Prompt: !,?61,$S($G(NPFAC)=" BLANK":"NO FACILITY",1:$G(NPFAC)) Line Location: HEADER+4
Function Call: WRITE	Prompt: ?124,"PAGE: ",NPCT Line Location: HEADER+7
Function Call: WRITE	Prompt: ?29,"RN FTEE",?57,"LPN FTEE",?83,"NA FTEE" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"UNIT" Line Location: HEADER+9
Function Call: WRITE	Prompt: ?39,"%/PRO" Condition for execution: '$D(NURSUMSW) ?16,"SECT" W ?22,"REQ S OD VAR" W:NURSZAP'>6 Line Location: HEADER+9
Function Call: WRITE	Prompt: ?49,"REQ S OD VAR" Line Location: HEADER+9
Function Call: WRITE	Prompt: ?91,"%/PRO" Condition for execution: NURSZAP'>6 ?66,"%/PRO" W ?75,"REQ S OD VAR" W:NURSZAP'>6 Line Location: HEADER+9
Function Call: WRITE	Prompt: ?99,"PC1 PC2 PC3 PC4 PC5 PTOT" Line Location: HEADER+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",132) Line Location: HEADER+10
Function Call: WRITE	Prompt: !,?61," " Line Location: DATE+1
Function Call: WRITE	Prompt: !,?61,$$REPEAT^XLFSTR("-",13) Line Location: DATE+1