Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRSPUT3

Package: PAID

Routine: PRSPUT3


Information

PRSPUT3 ;WOIFO/MGD,JAH - PART TIME PHYSICIAN UTILITIES #1 ;03/23/07

Source Information

Source file <PRSPUT3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
PAID 5 ONE^PRS8  E2^PRS8VW  ^PRS8VW2  DAT^PRSAPPU  (A1,INDEX)^PRSPUT1  
VA FileMan 4 DD^%DT  (,C)^%DTC  MSG^DIALOG  UPDATE^DIE  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
PAID 18 PRSALVR  PRSALVX  PRSAPPO  PRSARC03  PRSASC1  PRSASR1  PRSPBRP  PRSPDEM  
PRSPDM  PRSPEEM  PRSPEM  PRSPESR  PRSPLVU  PRSPRM  PRSPRM1  PRSPTM  
PRSPUT1  PRSXP134  

Entry Points

Name Comments DBIA/ICR reference
PTP(PRSIEN) ;Check for potential PTP (has a memo on file)
; input PRSIEN = employee IEN (file 450)
; result = 1 or 0, true (1) if employee has any memos on file
AL(PRSIEN,ARRAY,INDEX) ;
GETACCRU(PRSIEN,EOLYD,LDP) ; Calculate AL accrucal from last day of
; pp processed in 459 (LDP) to end of leave year (EOLYD)
GETLOSE(APALHRS,ALBAL,ACCRUAL,MAXOVER) ; Calculate potential hours to be lost
GETLDOYR() ; Calculate last day of the last pp of current year (EOLY)
GETAPALH(PRSIEN,PPPIN,EOLYD) ; Approved AL hrs
ESRUPDT(PPI,PRSIEN,DAY) ;
MEMCPP(MIEN) ; Memo Certified PP
; This utility determine the last certified PP and the number of
; certified PPs for a given memo.
; input
; MIEN - internal entry number of a memo in file 458.7
; returns a string value
; = last certified PP (external value)^number of certified PPs
; example "05-01^3"
PP8BAMT(PPAMT,PPI,PRSIEN) ; array TIMEAMTS passed by reference
; subscripted w/ types of time CODE and type of time activity
; from PRS8VW2 table. This routine sets each node of TIMEAMTS array
; to the total hours (week one and two) in the pp
; for that type of time activity.
GET8B(PPI,PRSIEN) ; get 8b from 5 node unless corrected timecard
; has been done then we need to recompute 8B
CORRECT(PPI,PRSIEN) ; return true if any corrected timecards exist for
EXTR8BT(S,T) ; EXTRACT THE 8B TYPE OF TIME FROM THE STUB AND RETURN THE
; AMOUNT OF TIME FROM WEEK ONE AND TWO FOR THIS TYPE OF TIME
; INPUT: S-8B STUB
; T-TYPE OF TIME TO FIND ^ LENGTH OF DATA IN 8B
WKTT(T,TA,WK) ; GET 8B STRING TIMECODE FOR WEEK ONE OR TWO AND LENGTH OF
; THE DATA IN THE 8B STRING
; Input:
; T- type of time code from file 457.3
; TA-time activity from the table in PRS8VW2 (e.g. Leave Without Pay)
; WK-1 or 2 for the desired timecode week

External References

Name Field # of Occurrence
DD^%DT AL+39
^%DTC GETACCRU+15
C^%DTC GETLDOYR+6
MSG^DIALOG ESRUPDT+27
UPDATE^DIE ESRUPDT+27
ONE^PRS8 GET8B+10
E2^PRS8VW WKTT+13
^PRS8VW2 WKTT+14, WKTT+19
DAT^PRSAPPU GETLDOYR+2
A1^PRSPUT1 AL+32, AL+37, AL+42
INDEX^PRSPUT1 AL+2
$$NOW^XLFDT ESRUPDT+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] AL+9, GETACCRU+5
^PRST(457.1 - [#457.1] ESRUPDT+16
^PRST(458 - [#458] AL+16, ESRUPDT+7, ESRUPDT+13, ESRUPDT+15, GET8B+13, CORRECT+6, CORRECT+7
^PRST(458.1 - [#458.1] GETAPALH+12, GETAPALH+14, GETAPALH+15, GETAPALH+21
^PRST(458.7 - [#458.7] PTP+3, MEMCPP+15, MEMCPP+16

Label References

Name Line Occurrences
$$CORRECT GET8B+3
$$EXTR8BT PP8BAMT+20, PP8BAMT+21
$$GET8B PP8BAMT+13
$$GETACCRU AL+25
$$GETAPALH AL+22
$$GETLDOYR AL+12
$$GETLOSE AL+28
$$WKTT PP8BAMT+18, PP8BAMT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GET8B+7~
ACCRUAL AL+25*, AL+28, GETLOSE~, GETLOSE+2
AINC AL+3~, GETACCRU+3~, GETACCRU+6*, GETACCRU+9*, GETACCRU+11*, GETACCRU+13*, GETACCRU+16
ALBAL AL+3~, AL+9*, AL+28, AL+33, GETLOSE~, GETLOSE+2
ALTBL AL+3~, GETLOSE+1~, GETLOSE+2*, GETLOSE+3
AMT EXTR8BT+4~, EXTR8BT+5*, EXTR8BT+9*, EXTR8BT+10, EXTR8BT+11, EXTR8BT+13*, EXTR8BT+14
AMT1 PP8BAMT+12~, PP8BAMT+20*, PP8BAMT+22
AMT2 PP8BAMT+12~, PP8BAMT+21*, PP8BAMT+22
APALHRS AL+3~, AL+22*, AL+28, AL+35, GETLOSE~, GETLOSE+2, GETAPALH+2~, GETAPALH+4*, GETAPALH+23*, GETAPALH+24
ARRAY AL~, AL+2
C0 GETACCRU+5*, GETACCRU+6, GET8B+7~
CHKLN WKTT+9~, WKTT+14*, WKTT+15, WKTT+16
CHUNK WKTT+9~, WKTT+16*, WKTT+17, WKTT+18, WKTT+23
CNT GET8B+7~
CO GETACCRU+3~
CORRECT CORRECT+2~, CORRECT+3*, CORRECT+6, CORRECT+8*, CORRECT+9
CT GET8B+7~
D GET8B+7~
DAY ESRUPDT~, ESRUPDT+3*, ESRUPDT+4, ESRUPDT+5, ESRUPDT+6*, ESRUPDT+7, ESRUPDT+9, ESRUPDT+12, ESRUPDT+13, ESRUPDT+15
, GET8B+7~
DB GETACCRU+3~, GETACCRU+6*, GETACCRU+9, GETACCRU+11, GETACCRU+13
DFN GET8B+4~, GET8B+8*
DT GETLDOYR+3, GETLDOYR+4
E WKTT+9~
E( WKTT+20
END ESRUPDT+2~, ESRUPDT+5*, ESRUPDT+6
EOLYD AL+3~, AL+12*, AL+22, AL+25, AL+38, GETACCRU~, GETACCRU+14, GETAPALH~, GETAPALH+5
EOLYDINV GETAPALH+2~, GETAPALH+5*, GETAPALH+19
FOUND WKTT+9~, WKTT+10*, WKTT+15, WKTT+21*, WKTT+24
HDR GET8B+7~
>> HOL( ESRUPDT+12
HRS EXTR8BT+4~, EXTR8BT+10*, EXTR8BT+13
HTOUR ESRUPDT+2~, ESRUPDT+13*, ESRUPDT+14, ESRUPDT+17, ESRUPDT+18
I GETLDOYR+1~, GETLDOYR+3*, ESRUPDT+17*, ESRUPDT+18, ESRUPDT+19, ESRUPDT+20, ESRUPDT+21, GET8B+7~, WKTT+9~, WKTT+15*
, WKTT+16
IENS ESRUPDT+2~, ESRUPDT+9*, ESRUPDT+11, ESRUPDT+19, ESRUPDT+20, ESRUPDT+21, ESRUPDT+22, ESRUPDT+23, ESRUPDT+24, ESRUPDT+25
, ESRUPDT+26
INC GETACCRU+3~, GETACCRU+16*, GETACCRU+17
INDEX AL~, AL+2, AL+43!
K GET8B+7~
LASTPP MEMCPP+9~, MEMCPP+12*, MEMCPP+18*, MEMCPP+21
LDP AL+16*, AL+17, AL+25, GETACCRU~, GETACCRU+14
LDPINV AL+3~, AL+17*, AL+22
LEN EXTR8BT+4~, EXTR8BT+8*, EXTR8BT+9, EXTR8BT+10, EXTR8BT+11
LRDATA GETAPALH+2~, GETAPALH+21*, GETAPALH+22, GETAPALH+23
LREND GETAPALH+2~, GETAPALH+11*, GETAPALH+12*, GETAPALH+14, GETAPALH+15
LRIEN GETAPALH+2~, GETAPALH+13*, GETAPALH+14*, GETAPALH+15, GETAPALH+21
LRSTRT GETAPALH+2~, GETAPALH+15*, GETAPALH+16*, GETAPALH+19
LVG AL+3~, GETACCRU+3~, GETACCRU+5*, GETACCRU+7, GETACCRU+8, GETACCRU+10, GETACCRU+12
MAXOVER AL+6*, AL+28, AL+36, GETLOSE~, GETLOSE+2
MAYLOSE AL+3~, AL+28*, AL+41
MEAL GET8B+7~
MIEN MEMCPP~, MEMCPP+10, MEMCPP+15, MEMCPP+16
ML GET8B+7~
MPPIEN MEMCPP+9~, MEMCPP+15*, MEMCPP+16
MT ESRUPDT+2~, ESRUPDT+15*, ESRUPDT+16*, ESRUPDT+24
NEXTYR GETLDOYR+1~, GETLDOYR+3*, GETLDOYR+4, GETLDOYR+5
NH GETACCRU+3~, GETACCRU+5*, GETACCRU+9, GETACCRU+11, GETACCRU+13
>> PDT ESRUPDT+12
POS EXTR8BT+4~, EXTR8BT+6*, EXTR8BT+7, EXTR8BT+9
PP GET8B+7~
PPAMT PP8BAMT~
PPAMT( PP8BAMT+15, PP8BAMT+17, PP8BAMT+22*
PPC MEMCPP+9~, MEMCPP+13*, MEMCPP+19*, MEMCPP+21
PPI ESRUPDT~, ESRUPDT+7, ESRUPDT+9, ESRUPDT+13, ESRUPDT+15, PP8BAMT~, PP8BAMT+13, GET8B~, GET8B+3, GET8B+9
, GET8B+13, CORRECT~, CORRECT+4, CORRECT+6, CORRECT+7
PPPIN GETAPALH~, GETAPALH+12, GETAPALH+19
PRSFDA ESRUPDT+2~, ESRUPDT+10!
PRSFDA( ESRUPDT+11*, ESRUPDT+19*, ESRUPDT+20*, ESRUPDT+21*, ESRUPDT+22*, ESRUPDT+23*, ESRUPDT+24*, ESRUPDT+25*, ESRUPDT+26*
PRSIEN PTP~, PTP+3, AL~, AL+1, AL+9, AL+22, AL+25, GETACCRU~, GETACCRU+5, GETAPALH~
, GETAPALH+12, GETAPALH+14, GETAPALH+15, ESRUPDT~, ESRUPDT+7, ESRUPDT+9, ESRUPDT+13, ESRUPDT+15, PP8BAMT~, PP8BAMT+13
, GET8B~, GET8B+3, GET8B+8, GET8B+13, CORRECT~, CORRECT+4, CORRECT+6, CORRECT+7
PRSX MEMCPP+9~, MEMCPP+16*, MEMCPP+17, MEMCPP+18
PRSYRDT GETLDOYR+1~, GETLDOYR+2*, GETLDOYR+3
PY GET8B+4~, GET8B+9*
QH EXTR8BT+4~, EXTR8BT+11*, EXTR8BT+12*, EXTR8BT+13
QT GET8B+7~
S EXTR8BT~, EXTR8BT+6, EXTR8BT+9
S8B GET8B+2~, GET8B+11*, GET8B+13*, GET8B+14
SSN GET8B+7~
ST GET8B+7~
START ESRUPDT+2~, ESRUPDT+4*, ESRUPDT+6, ESRUPDT+18*, ESRUPDT+19
STATUS ESRUPDT+2~, ESRUPDT+8*, ESRUPDT+11, CORRECT+2~, CORRECT+7*, CORRECT+8
STOP ESRUPDT+2~, ESRUPDT+18*, ESRUPDT+20
STR8B PP8BAMT+12~, PP8BAMT+13*, PP8BAMT+20, PP8BAMT+21
T EXTR8BT~, EXTR8BT+6, EXTR8BT+8, WKTT~, WKTT+8, WKTT+12
TA PP8BAMT+12~, PP8BAMT+16*, PP8BAMT+17*, PP8BAMT+18, PP8BAMT+19, PP8BAMT+22, WKTT~, WKTT+20
TABLEI WKTT+9~, WKTT+17*
TC PP8BAMT+12~, PP8BAMT+14*, PP8BAMT+15*, PP8BAMT+17, PP8BAMT+18, PP8BAMT+19, PP8BAMT+22
TCD CORRECT+2~, CORRECT+5*, CORRECT+6*, CORRECT+7
TCH1 WKTT+9~, WKTT+12*, WKTT+18
TEXT AL+3~, AL+31*, AL+33*, AL+34*, AL+35*, AL+36*, AL+40*, AL+41*
TOUR ESRUPDT+2~, ESRUPDT+7*, ESRUPDT+8
TT PP8BAMT+12~, GET8B+7~
TTABLE WKTT+9~, WKTT+19*, WKTT+20
TTEXT WKTT+9~
TYP GET8B+7~
U AL+9, AL+16, GETAPALH+22, GETAPALH+23, ESRUPDT+7, ESRUPDT+12, ESRUPDT+15, ESRUPDT+16, ESRUPDT+17, ESRUPDT+18
, MEMCPP+17, MEMCPP+18, CORRECT+7, EXTR8BT+6, EXTR8BT+8, WKTT+16, WKTT+23
VAL GET8B+4~, GET8B+11
WK WKTT~, WKTT+7*, WKTT+20
WK1CD PP8BAMT+12~, PP8BAMT+18*, PP8BAMT+20
WK2CD PP8BAMT+12~, PP8BAMT+19*, PP8BAMT+21
WKTTCODE WKTT+9~, WKTT+18*, WKTT+20, WKTT+23*, WKTT+24*, WKTT+25
X AL+3~, GETACCRU+16, GETLDOYR+1~, GETLDOYR+7, GET8B+7~
X1 AL+3~, GETACCRU+3~, GETACCRU+14*, GETLDOYR+1~, GETLDOYR+5*, GET8B+7~
X2 AL+3~, GETACCRU+3~, GETACCRU+14*, GETLDOYR+1~, GETLDOYR+5*
Y AL+3~, AL+38*, AL+40, GET8B+7~
Y1 GET8B+7~
Z GET8B+7~
Z0 GET8B+7~
Z1 GET8B+7~

Marked Items

Name Field # of Occurrence
$T(@(1)+0^PRS8VW2 WKTT+14
$T(DAT^PRSAPPU GETLDOYR+2
$T(TYP+TABLEI^PRS8VW2 WKTT+19
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All