PRSPESR ;WOIFO/JAH - part-time physicians ESR Edit ;11/16/04
Source file <PRSPESR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; main entry point called from ESR edit option
|
|
| BLDPICK(PL,PRSIEN) | ; Build option pick list with memo, prior ESR,
; current ESR and next ESR actions in the PL array |
|
| PPICHK(PRIARY,PPCH) | ; Check if Current or next is already in prior array
; RETURN PPI IF FOUND |
|
| BLDMACT(MIEN,ZNODE) | ;with zero node of memo build the item screen
; Sample appearance for menu item |
|
| CHOICE(PL,DEF) | ; return users choice from array of items in PL
; return 0 for abort |
|
| GETMEMOS(MIEN,PRSIEN,MSTAT) | ; Return IEN subscripted array of
; memorandums in a single status (MSTAT) ; INPUT: EMPLOYEE IEN (PRSIEN) ; STATUS OF MEMORANDUM desired (MSTAT) ; 1:NOT STARTED; 2:ACTIVE; 3:RECONCILIATION STARTED; ; 4:RECONCILED; ; OUTPUT: returns MIEN array as follows: ; MIEN(0) = 0 when no reconcile actions: ; OR ; MIEN(0) = integer # of memos that requires reconcile action: ; MIEN(IEN 1)=start date^end date^termination date ; MIEN(IEN n)=start date n ^end date n ^termination date n |
|
| MEMO(PRSIEN,LIST) | ; CALL OPTION TO RECONCILE A MEMO
|
|
| ESR(PRSIEN,PPI,MIEN,OUT) | ; DISPLAY PAY PERIOD AND ASK USER TO PICK A DAY
; WHEN THEY PICK A DAY CALL code to start up a ScreenMan ; form for the day record |
|
| CANPOST(PPI,PRSIEN,PRSD,SHMSG) | ; Can this day be posted by a PTP?
; i show message set to 1 then show message on can't post |
|
| WSS(PRSIEN,PPI,MIEN) | ; WORK SUMMARY SCREEN
|
|
| WHICHDAY(PPI,PRSIEN,DEF) | ; ASK USER TO SELECT A PAY PERIOD DAY
; return 0 for abort OR -1 for double abort "^^" |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
