Routine: PRSNAA01

Package	Total	Call Graph
PAID	8	CHECKTLE^PRSADP2 $$ASK^PRSLIB00 UPDTPOC^PRSNCGR1 PPMM^PRSNRMM L1^PRSNRUT1 $$ISACTIVE^PRSNUT01 ACCESS^PRSNUT02 $$PRIMLOC^PRSNUT03
VA FileMan	3	^DIC $$GET1^DIQ ^DIR

Package	Total	Caller Graph
PAID	1	PRSN APPROV POC PAYPD

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	;

External References

Name	Field # of Occurrence
^DIC	SETPPD+8
$$GET1^DIQ	HDR+2, HDR+4
^DIR	ACTION+4
CHECKTLE^PRSADP2	PREV+22
$$ASK^PRSLIB00	DSPREC+13, DSPMM+4
UPDTPOC^PRSNCGR1	ACTION+7
PPMM^PRSNRMM	DSPMM+1
L1^PRSNRUT1	APPROV+5
$$ISACTIVE^PRSNUT01	SETREC+6
ACCESS^PRSNUT02	EN+5
$$PRIMLOC^PRSNUT03	PREV+10

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
Routine Call	DIC Line Location: SETPPD+8
Routine Call	DIR Line Location: ACTION+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSN(451 - [#451]	PREV+3, PREV+12, PREV+17
^PRSN(451.5 - [#451.5]	SETREC+7
^PRSN(451.6 - [#451.6]	SETREC+8
^PRSPC - [#450]	PREV+7, PREV+10, PREV+15
^PRST(455.5 - [#455.5]	PREV+16, PREV+23
^PRST(458 - [#458]	EN+13, SETPPD+10, PREV+21, DSPREV+6, SETREC+10
^TMP($J	EN+4!, SETPPD+1, PREV+13, PREV+25, DSPREV+5, APPREV+4, APPREV+6, CLEANUP+3!

Label References

Name	Line Occurrences
ACTION	APPROV+17
APPREV	SETPPD+16
APPROV	APPREV+7
CLEANUP	EN+21
DSPMM	APPROV+12
DSPREC	APPROV+15
DSPREV	PREV+26
HDR	APPROV+14, DSPREC+13
PREV	EN+17
SETPPD	EN+18
SETREC	APPROV+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EN+1~, APPREV+1~, APPREV+3, APPREV+4, APPREV+6, APPREV+7, SETREC+2~, SETREC+3, SETREC+4, SETREC+5 , SETREC+6, SETREC+7, SETREC+8, SETREC+10, DSPREC+1~, DSPREC+2, DSPREC+3*, DSPREC+4, DSPREC+5, DSPREC+6 , DSPREC+7, DSPREC+8, DSPREC+9, DSPREC+10, DSPREC+11, ACTION~, ACTION+2, CLEANUP+2!
B	EN+1~, APPREV+1~, APPREV+3, APPREV+4, APPREV+6, SETREC+2~, SETREC+3, SETREC+5, SETREC+6, SETREC+7 , SETREC+8, DSPREC+1~, DSPREC+2, DSPREC+4, DSPREC+5, DSPREC+6, DSPREC+7, DSPREC+8, DSPREC+9, DSPREC+10 , DSPREC+11, ACTION~, ACTION+2, CLEANUP+2!
C	APPREV+1~, APPREV+5, APPREV+6, APPREV+7
DAY	EN+1~, APPROV+1~, APPROV+3*, APPROV+5, APPROV+9
DAYREC	EN+1~, APPROV+1~, APPROV+4!, APPROV+5
DAYREC(	APPROV+8, APPROV+9
DAYREC(0	APPROV+6
DIC	EN+1~, SETPPD+3~, SETPPD+5*, CLEANUP+2!
DIC("A"	SETPPD+6*
DIC("B"	SETPPD+4*
DIC("S"	SETPPD+7*
DIC(0	SETPPD+5*
DIR	EN+1~, ACTION+1~
DIR("A"	ACTION+3*
DIR(0	ACTION+4*
DIRUT	EN+1~, ACTION+6
DSPFLG	EN+1~, APPROV+1~, APPROV+2, APPROV+7, APPROV+11, CLEANUP+2!
DT	EN+5, EN+13, SETREC+6
DTOUT	SETPPD+3~, SETPPD+9
DUOUT	SETPPD+3~, SETPPD+9
GROUP	EN+1~, EN+5, CLEANUP+1!
GROUP(	EN+11, EN+12, PREV+11, PREV+24
GROUP(0	EN+6, EN+9
GRPIEN	EN+1~, EN+11*, EN+12, PREV+11, PREV+24, CLEANUP+1!
GRPSC	EN+1~, EN+12*, CLEANUP+1!
I	EN+1~, HDR+9*
IEN200	EN+1~, CLEANUP+1!
IEN450	EN+2~, HDR~, HDR+2
IOF	HDR+3
IOSL	DSPREC+13
IOST	HDR+3
NURSNM	EN+2~, CLEANUP+1!
PAYPD	EN+2~, SETREC~, SETREC+10, ACTION+2*, ACTION+7, HDR~, HDR+2
PAYPRD	PREV+20~, PREV+21*, PREV+22
PML	PREV+9~, PREV+10*, PREV+11
PREVPD	EN+2~, PREV+1~, PREV+6, PREV+12, PREV+13, PREV+17, PREV+21, PREV+25, DSPREV+4, DSPREV+5* , DSPREV+6, CLEANUP+2!
PRSD	EN+2~, CLEANUP+2!
PRSFLG	EN+2~, EN+18, EN+19, PREV+2, PREV+13, PREV+25*, PREV+26, CLEANUP+2!
PRSIEN	EN+2~, PREV+2, PREV+3, PREV+7, PREV+10, PREV+12, PREV+13, PREV+15, PREV+17, PREV+22 , PREV+25, APPROV~, APPROV+5, APPROV+12, APPROV+14, APPROV+17, DSPREC+13, DSPMM~, DSPMM+1, ACTION+2* , ACTION+7, HDR+2*, HDR+4, CLEANUP+1!
PRSNAM	PREV+1~, PREV+7, PREV+8, PREV+13, PREV+25
PRSPD	EN+2~, APPROV~, APPROV+5, APPROV+10, APPROV+12, APPROV+14, APPROV+17, DSPREC+13, DSPMM~, DSPMM+1
PRSPDE	EN+2~, SETPPD+10, HDR+2, HDR+5, CLEANUP+1!
PRSPDI	EN+3~, EN+13, EN+14, EN+15, SETPPD+1, SETPPD+4, SETPPD+15*, PREV+12, PREV+17, APPREV+3 , CLEANUP+1!
PRSPRM	EN+3~, EN+9*, EN+12, EN+19, PREV+11, PREV+14, DSPREV+3, CLEANUP+2!
PRSSTAT	EN+3~, PREV+2*, CLEANUP+2!
REC	EN+3~, APPROV+1~, APPROV+10, APPROV+15, SETREC~, DSPREC~, CLEANUP+1!
REC(	APPROV+9, SETREC+4, SETREC+5, SETREC+6, SETREC+7, SETREC+8, SETREC+10*, DSPREC+3, DSPREC+4, DSPREC+5 , DSPREC+6, DSPREC+7, DSPREC+8, DSPREC+9, DSPREC+10, DSPREC+11
SEG	EN+3~, APPROV+1~, APPROV+7, APPROV+8, APPROV+9
STOP	EN+3~, EN+10, APPROV+13, APPROV+16, APPREV+4, APPREV+6, DSPREC+3, DSPREC+4, DSPREC+13, DSPMM+1 , DSPMM+2, DSPMM+4, ACTION+6
TLE	PREV+9~, PREV+15*, PREV+16, PREV+19, PREV+22, PREV+23
TLI	PREV+9~, PREV+16, PREV+23, PREV+24
U	EN+6, EN+9, EN+12, EN+14, SETPPD+10, PREV+7, PREV+10, PREV+15, PREV+21, DSPREV+6 , SETREC+6, SETREC+7, SETREC+8, SETREC+10, DSPREC+5, DSPREC+6, DSPREC+7, DSPREC+8, DSPREC+9, DSPREC+10 , DSPREC+11
X	SETPPD+3~, ACTION+1~, CLEANUP+2!
Y	SETPPD+3~, SETPPD+9, SETPPD+10, SETPPD+15, APPROV+1~, ACTION+1~, ACTION+5, ACTION+7, CLEANUP+2!

Customize PDF page

Package: PAID

Routine: PRSNAA01

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: