Routine: PRSNREV1

Information

PRSNREV1 ;WOIFO/DAM - Nursing Education Validation Report II;060409

Name	Comments	DBIA/ICR reference
DSPLY(PRSIEN,PRSNOPT,NURSE,STOP)	; Entry point to gather POC Nurse ; Education Data from file 450
HDR(PRSNOPT)	;Display header
DATA(PRSIEN,PRSNOPT,NURSE,STOP)	;Extract display data from POCD array and get external date
PRT(PRSNOPT)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: $P("Nursing Education Validation Report^Nurse Position and Pay Information",U,PRSNOPT)," Report" Line Location: HDR+4
Function Call: WRITE	Prompt: " Run Date: ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3)," Page: ",$J(PG,3) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,"Nurse Name",?21,"BOC/",?27,"Assignment Code",?47,"PAID Education Level" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"Last 4 SSN",?21,"OCC",?27,"Nurse Role",?47,"Year Degree Earned" Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"Nurse Name",?21,"BOC/",?27,"Assignment Code",?47,"Grade/Step",?60,"Salary" Line Location: HDR+13
Function Call: WRITE	Prompt: !,"Last 4 SSN",?13,"CC",?21,"OCC",?27,"Nurse Role",?47,"Yr. of Ser.",?60,"Salary Start Date" Line Location: HDR+14
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDR+16
Function Call: WRITE	Prompt: !!,$E(PRSNAME,1,19),?21,BOC,"/",?27,$E(ASN,1,19),?47,$E(EDU,1,30) Line Location: PRT+3
Function Call: WRITE	Prompt: !,$E(PRSNSSN,6,9),?21,OCC,?27,$E(ROLE,1,19),?47,YEAR Line Location: PRT+4
Function Call: WRITE	Prompt: !!,$E(PRSNAME,1,19),?21,BOC,"/",?27,$E(ASN,1,19),?47,$P(PRSNA,U,14),"-",$P(PRSNA,U,39),?60,"$",$P(PRSNA,U,29) Line Location: PRT+7
Function Call: WRITE	Prompt: !,$E(PRSNSSN,6,9),?13,$P(JOB,U,4),?21,OCC,?27,$E(ROLE,1,19),?49,YEAR,?60,$P(PRSNA,U,28) Line Location: PRT+8