Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRSNAC01

Package: PAID

Routine: PRSNAC01


Information

PRSNAC01 ;WOIFO/DWA - Approval for Corrected Nurse POC records;10/5/2009

Source Information

Source file <PRSNAC01.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for approval of POC records for a pay period.
LOCCOR ;
DISPTM ;Display the time records
GRPLOC ; Find records for selected group
TLLOC ; Find records for selected T&L Unit
SETREC(REC) ; Set up current record for display
DSPREC(REC) ; Display current record
DSPMM ; Display the mismatch report before asking for approval
ACTION ; Approve or Bypass current record
HDR ; Header for display of records

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no groups assigned or selected."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"There are no corrected records to approve.",!!
  • Line Location: LOCCOR+26
Function Call: WRITE
  • Prompt: !,?(80-26)/2,"** Previous Time Record **",!
  • Line Location: DISPTM+2
Function Call: WRITE
  • Prompt: !,?(80-26)/2,"** Current Time Record **",!
  • Line Location: DISPTM+4
Function Call: WRITE
  • Prompt: ?(80-20)/2,"Time Record Deleted",!
  • Line Location: DSPREC+3
Function Call: WRITE
  • Prompt: $P($P(REC(A),U,12)," "),?12,$P(REC(A),U),?21,$P(REC(A),U,3)
  • Line Location: DSPREC+5
Function Call: WRITE
  • Prompt: ?28,$P(REC(A),U,4),?38,$P($P(REC(A),U,5)," ")
  • Line Location: DSPREC+6
Function Call: WRITE
  • Prompt: ?51,$P($P(REC(A),U,6)," "),?64,$P($P(REC(A),U,8)," ")
  • Line Location: DSPREC+7
Function Call: WRITE
  • Prompt: ?77,$P(REC(A),U,7),!
  • Line Location: DSPREC+8
Function Call: WRITE
  • Prompt: $P($P(REC(A),U,12)," ",2,999),?12,$P(REC(A),U,2),?38
  • Line Location: DSPREC+9
Function Call: WRITE
  • Prompt: $P($P(REC(A),U,5)," ",2),?51,$P($P(REC(A),U,6)," ",2),?64
  • Line Location: DSPREC+10
Function Call: WRITE
  • Prompt: $P($P(REC(A),U,8)," ",2),!
  • Line Location: DSPREC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPREC+13
Function Call: WRITE
  • Prompt: !!,?5,"Return to Approvals.",!
  • Line Location: DSPMM+3
Function Call: WRITE
  • Prompt: $P(^PRSPC(PRSIEN,0),U),?(80-28)/2,"Approve Corrected POC Record"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?63,$S(PRSPRM="N":"Location: "_GRPNM,1:"T&L Unit: "_GRPNM),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?58,"SSN: ",$E($P(^PRSPC(PRSIEN,0),U,9)),"XXXXX",$E($P(^PRSPC(PRSIEN,0),U,9),6,9),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "Date",?12,"Start/",?20,"Meal",?26,"Type of",?38,"Location",?51
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Type of",?66,"OT",?76,"OT",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?12,"Stop",?27,"Time",?52,"Work",?64,"Reason",?75,"Mand",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+8
Info |  Source |  Entry Points |  Interaction Calls