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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRSNAA01

Package: PAID

Routine: PRSNAA01


Information

PRSNAA01 ;WOIFO/DWA - Pay period approval for Nurse POC records;10/5/2009

Source Information

Source file <PRSNAA01.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for approval of POC records for a pay period.
SETPPD ; back up default of current pay period if it doesn't have any data
PREV ;
DSPREV ; Display previous pay period records
APPROV(PRSPD,PRSIEN) ; Complete approval process
APPREV ; Process previous pay periods
SETREC(REC,PAYPD) ; Set up record for display
DSPREC(REC) ; Display the record
DSPMM(PRSIEN,PRSPD) ; Display mismatch report
ACTION(A,B) ; Approve or bypass current record
HDR(PAYPD,IEN450) ;
CLEANUP ;

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 POC records to approve for this "_$S(PRSPRM="N":"Nurse Location.",1:"T&L Unit.")
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!
  • Line Location: PREV+27
Function Call: WRITE
  • Prompt: !!,"The following previous pay periods have unapproved POC records"
  • Line Location: DSPREV+2
Function Call: WRITE
  • Prompt: !,"in this "_$S(PRSPRM="N":"Nurse Location",1:"T&L Unit")_":",!!
  • Line Location: DSPREV+3
Function Call: WRITE
  • Prompt: "Pay period ",$P(^PRST(458,PREVPD,0),U),!
  • Line Location: DSPREV+6
Function Call: WRITE
  • Prompt: $P($P(REC(A,B),U,12)," "),?12,$P(REC(A,B),U),?21,$P(REC(A,B),U,3)
  • Line Location: DSPREC+5
Function Call: WRITE
  • Prompt: ?28,$P(REC(A,B),U,4),?38,$P($P(REC(A,B),U,5)," ")
  • Line Location: DSPREC+6
Function Call: WRITE
  • Prompt: ?51,$P($P(REC(A,B),U,6)," "),?64,$P($P(REC(A,B),U,8)," ")
  • Line Location: DSPREC+7
Function Call: WRITE
  • Prompt: ?77,$P(REC(A,B),U,7),!
  • Line Location: DSPREC+8
Function Call: WRITE
  • Prompt: $P($P(REC(A,B),U,12)," ",2,999),?12,$P(REC(A,B),U,2),?38
  • Line Location: DSPREC+9
Function Call: WRITE
  • Prompt: $P($P(REC(A,B),U,5)," ",2),?51,$P($P(REC(A,B),U,6)," ",2),?64
  • Line Location: DSPREC+10
Function Call: WRITE
  • Prompt: $P($P(REC(A,B),U,8)," ",2),!
  • Line Location: DSPREC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPREC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPREC+14
Function Call: WRITE
  • Prompt: !!,?5,"Return to Approvals.",!
  • Line Location: DSPMM+3
Function Call: WRITE
  • Prompt: $$GET1^DIQ(450,PRSIEN,.01),?26,"Approve Pay Period POC Records"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?66,"Pay Pd: ",PRSPDE,!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "Date",?12,"Start/",?20,"Meal",?26,"Type of",?38,"Location",?51
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Type of",?66,"OT",?76,"OT",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?12,"Stop",?27,"Time",?52,"Work",?64,"Reason",?75,"Mand",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] GET1^DIQ
^PRSN(451 - [#451] Classic Fileman Calls
^PRST(458 - [#458] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call