Routine: PRSNRUT0

Information

PRSNRUT0 ;WOIFO/DAM - Report for POC Data;060409

Name	Comments	DBIA/ICR reference
POCDSPLY(PRSIEN,BEG,END)	;Entry point to gather POC data from 451
DEFAULTL()	;Find external value-nurse's default location
HDRINFO	;Find nurse information to display in report header
HDR	;Display header for report of Individual Nurse Activity
GETDAY(PRSNDAY,PRSNDY,PRSDT)	;Find external value of Day Number
DATA	;Extract display data from POCD array
PRNT	;Print report
INITIAL	; Set up external date range

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: PRSNAME,?32,PRSNL,?48,"T&L"_" "_PRSNTL,?48,?68,$E(PRSNSSN,6,9) Line Location: HDR+4
Function Call: WRITE	Prompt: !,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: !,"Date",?11,"Tour Time",?27,"Location",?57,"OT Mandatory" Line Location: HDR+7
Function Call: WRITE	Prompt: !,?11,"-Exceptions",?27,"-Work Type",?57,"-OT Reason" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: PRNT+2
Function Call: WRITE	Prompt: PRSNDY Line Location: PRNT+3
Function Call: WRITE	Prompt: ?11,$G(PRSNST)_"-"_$G(PRSNSP),?27,$G(PRSNPOC1),?57,$G(PRSNM) Line Location: PRNT+4
Function Call: WRITE	Prompt: ! Line Location: PRNT+5
Function Call: WRITE	Prompt: PRSDT Line Location: PRNT+6
Function Call: WRITE	Prompt: ?11,"-"_$G(PRSNTT)_" "_$G(PRSNLNG),?27,"-"_$G(PRSNTW)_" "_$G(PRSNTWD),?57,"-"_$G(PRSNREC)_" "_$G(PRSNRE) Line Location: PRNT+7
Function Call: WRITE	Prompt: ! Line Location: PRNT+8