Routine: PRSNRAS1

Information

PRSNRAS1 ;WOIFO/DAM - POC GROUP ACTIVITY SUMMARY REPORT ;060409

Name	Comments	DBIA/ICR reference
DSPLY(PRSIEN,BEG,END,EXTBEG,EXTEND,STOP)	; gather POC data from 451
INFO	;Find nurse information to display in report
HDR(EXTBEG,EXTEND)	;Display header for report of Individual Nurse Activity
DATA	;Extract display data from POCD array
PRTLOOP(EXTBEG,EXTEND)	; Loop through Totals array and print each one
PPP(EXTBEG,EXTEND)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: ?25,"GROUP ACTIVITY SUMMARY REPORT" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?15,EXTBEG_" - "_EXTEND,?45,"Run Date: ",TODAY,?70,"Page: ",$J(PG,3) Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Nurse Name",?21,"Type of",?32,"Type of",?48,"Location",?68,"# of",?75,"T&L" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Skill Mix",?22,"Time",?33,"Work",?68,"Hours",?75,"Unit" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------",! Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: PRTLOOP+14
Function Call: WRITE	Prompt: !,$E(PRSNAME,1,19) Line Location: PPP+1
Function Call: WRITE	Prompt: ?21,TT,?32,$E(TWD,1,14),?48,$E(POC,1,16),?66,$J(HOURS,7,2),?75,PRSNTL Line Location: PPP+2
Function Call: WRITE	Prompt: ! Line Location: PPP+3
Function Call: WRITE	Prompt: " ",$E(SKILMIX,1,17) Line Location: PPP+4