PRSPESR ;WOIFO/JAH - part-time physicians ESR Edit ;11/16/04
Source file <PRSPESR.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
PAID | 1 | PRSP ESR EDIT |
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 | Field # of Occurrence |
---|---|
DD^%DT | BLDMACT+7, BLDMACT+8 |
^DIR | CHOICE+12, WHICHDAY+6 |
$$NXTPP^PRSAPPU | BLDPICK+53 |
NX^PRSAPPU | BLDPICK+28, BLDPICK+54 |
PP^PRSAPPU | BLDPICK+40 |
$$ASK^PRSLIB00 | MAIN+21, MAIN+29, MEMO+5, CANPOST+12, CANPOST+20 |
$$GETSTAT^PRSPESR1 | CANPOST+14 |
ESRFRM^PRSPESR1 | ESR+9 |
$$TCSTAT^PRSPSAP2 | CANPOST+15 |
MAIN^PRSPSRC | MEMO+4 |
$$MIEN^PRSPUT1 | BLDPICK+29, BLDPICK+45, BLDPICK+57 |
HDR^PRSPUT1 | WSS+3 |
MEM^PRSPUT1 | WSS+4 |
$$ESIGC^PRSPUT2 | MAIN+29 |
$$PRSIEN^PRSPUT2 | MAIN+4 |
ESRSTAT^PRSPUT2 | WSS+6 |
AL^PRSPUT3 | WSS+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PRST(458 - [#458] | BLDPICK+23, BLDPICK+24, BLDPICK+32, BLDPICK+47, BLDPICK+55, BLDPICK+56, BLDPICK+62, CANPOST+8 |
^PRST(458.7 - [#458.7] | BLDPICK+16, GETMEMOS+16, GETMEMOS+17, GETMEMOS+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AMIEN | BLDPICK+8~, BLDPICK+29*, BLDPICK+30, BLDPICK+35, BLDPICK+39~, BLDPICK+45*, BLDPICK+46, BLDPICK+50, BLDPICK+57*, BLDPICK+58 , BLDPICK+65 |
CANPOST | CANPOST+2~, CANPOST+3*, CANPOST+4, CANPOST+6*, CANPOST+9*, CANPOST+10, CANPOST+16*, CANPOST+17, CANPOST+21 |
D1 | BLDPICK+28, BLDPICK+39~, BLDPICK+40*, BLDPICK+54 |
DAY | BLDPICK+39~ |
DEF | CHOICE~, CHOICE+4, CHOICE+5, WHICHDAY~, WHICHDAY+4 |
DIR | CHOICE+2~, WHICHDAY+2~ |
DIR("A" | CHOICE+8*, CHOICE+11*, WHICHDAY+5* |
DIR("B" | CHOICE+5*, WHICHDAY+4* |
DIR(0 | CHOICE+10*, WHICHDAY+3* |
DIRUT | CHOICE+2~, CHOICE+14, WHICHDAY+2~, WHICHDAY+7 |
DT | BLDPICK+40 |
DUM | CANPOST+5~, CANPOST+12*, CANPOST+20* |
EDT | BLDMACT+2~, BLDMACT+5*, BLDMACT+6*, BLDMACT+8*, BLDMACT+9 |
ESRDAY | ESR+3~, ESR+5, ESR+8*, ESR+9, ESR+10 |
ESRSTAT | CANPOST+5~, CANPOST+14*, CANPOST+16 |
FOUND | PPICHK+2~, PPICHK+3*, PPICHK+4, PPICHK+5*, PPICHK+6 |
FR | BLDPICK+8~, BLDPICK+33*, BLDPICK+34, BLDPICK+48*, BLDPICK+49, BLDPICK+63*, BLDPICK+64 |
I | WHICHDAY+2~ |
ICNT | CHOICE+2~, CHOICE+3*, CHOICE+9*, CHOICE+10 |
IOF | MAIN+17, ESR+6, CANPOST+11, CANPOST+18 |
ITEM | CHOICE+2~, CHOICE+6*, CHOICE+7*, CHOICE+8 |
LIST | MEMO~, MEMO+3 |
MAI | BLDPICK+8~, BLDPICK+14*, BLDPICK+15*, BLDPICK+16, BLDPICK+17 |
MENUTXT | BLDMACT+2~, BLDMACT+3*, BLDMACT+9*, BLDMACT+10 |
MIEN | BLDPICK+8~, BLDPICK+12, BLDMACT~, BLDMACT+3, GETMEMOS~, MEMO+2~, MEMO+3*, MEMO+4, ESR~, ESR+7 , WSS~, WSS+4 |
MIEN( | BLDPICK+15, BLDPICK+17, GETMEMOS+19* |
MIEN(0 | BLDPICK+13, GETMEMOS+13*, GETMEMOS+20* |
MSTAT | GETMEMOS~, GETMEMOS+14, GETMEMOS+16 |
MTXT | BLDPICK+8~, BLDPICK+34*, BLDPICK+35, BLDPICK+49*, BLDPICK+50, BLDPICK+64*, BLDPICK+65 |
NXPPE | BLDPICK+8~ |
OUT | MAIN+1~, MAIN+9*, MAIN+10, MAIN+21*, MAIN+22*, MAIN+25*, MAIN+29*, MAIN+31, MEMO+2~, MEMO+5* , ESR~, ESR+4*, ESR+10* |
OVRITE | BLDPICK+39~, BLDPICK+42*, BLDPICK+43, BLDPICK+59*, BLDPICK+60 |
PI | BLDPICK+8~, BLDPICK+9*, BLDPICK+17*, BLDPICK+31*, BLDPICK+35, BLDPICK+43*, BLDPICK+44*, BLDPICK+50, BLDPICK+60*, BLDPICK+61* , BLDPICK+65 |
PICK | MAIN+1~, MAIN+24*, MAIN+25, MAIN+26, MAIN+27, MAIN+31, CHOICE+13*, CHOICE+14*, CHOICE+15, WHICHDAY+8* , WHICHDAY+10*, WHICHDAY+11 |
PICKLIST | MAIN+1~ |
PL | BLDPICK~, BLDPICK+42, BLDPICK+59, CHOICE~ |
PL( | BLDPICK+17*, BLDPICK+35*, BLDPICK+50*, BLDPICK+65*, CHOICE+4, CHOICE+7, CHOICE+8 |
PLIST | MAIN+1~, MAIN+14!, MAIN+15, MAIN+19, MAIN+24 |
PLIST( | MAIN+26, MAIN+27, MAIN+31 |
PP4Y | BLDPICK+39~ |
PPCH | PPICHK~, PPICHK+5 |
PPDT1 | BLDPICK+8~, BLDPICK+28*, BLDPICK+29, BLDPICK+39~, BLDPICK+40*, BLDPICK+45, BLDPICK+54*, BLDPICK+57 |
PPE | BLDPICK+8~, BLDPICK+22*, BLDPICK+23*, BLDPICK+24, BLDPICK+34, BLDPICK+39~, BLDPICK+49, BLDPICK+53*, BLDPICK+55, BLDPICK+56 , BLDPICK+64 |
PPI | BLDPICK+24*, BLDPICK+25, BLDPICK+32, BLDPICK+35, BLDPICK+39~, BLDPICK+41, BLDPICK+42, BLDPICK+47, BLDPICK+50, BLDPICK+56* , BLDPICK+59, BLDPICK+62, BLDPICK+65, ESR~, ESR+7, ESR+8, ESR+9, CANPOST~, CANPOST+8, CANPOST+14 , CANPOST+15, WSS~, WSS+3, WSS+6, WHICHDAY~ |
PRIARY | PPICHK~ |
PRIARY( | PPICHK+4, PPICHK+5 |
PRNODE | PPICHK+2~, PPICHK+3*, PPICHK+4*, PPICHK+5 |
PRSD | CANPOST~, CANPOST+4, CANPOST+8, CANPOST+14 |
PRSIEN | MAIN+1~, MAIN+4*, MAIN+5, MAIN+15, MAIN+26, MAIN+31, BLDPICK~, BLDPICK+12, BLDPICK+23, BLDPICK+29 , BLDPICK+45, BLDPICK+57, GETMEMOS~, GETMEMOS+14, GETMEMOS+16, MEMO~, MEMO+4, ESR~, ESR+7, ESR+8 , ESR+9, CANPOST~, CANPOST+8, CANPOST+14, CANPOST+15, WSS~, WSS+3, WSS+4, WSS+5, WSS+6 , WHICHDAY~ |
PRTXT | BLDPICK+8~, BLDPICK+21*, BLDPICK+34 |
RANGE | BLDPICK+8~, BLDPICK+32*, BLDPICK+33, BLDPICK+47*, BLDPICK+48, BLDPICK+62*, BLDPICK+63 |
SCRTTL | WSS+1~, WSS+2*, WSS+3 |
SDT | BLDMACT+2~, BLDMACT+5*, BLDMACT+7*, BLDMACT+9 |
SHMSG | CANPOST~, CANPOST+10, CANPOST+17 |
TCSTAT | CANPOST+5~, CANPOST+15*, CANPOST+16, WHICHDAY+2~ |
TDT | BLDMACT+2~, BLDMACT+5*, BLDMACT+6, GETMEMOS+12~, GETMEMOS+18*, GETMEMOS+19 |
TMPMIEN | GETMEMOS+12~, GETMEMOS+15*, GETMEMOS+16*, GETMEMOS+17, GETMEMOS+18, GETMEMOS+19 |
TO | BLDPICK+8~, BLDPICK+33*, BLDPICK+34, BLDPICK+48*, BLDPICK+49, BLDPICK+63*, BLDPICK+64 |
TOUR | CANPOST+5~, CANPOST+8*, CANPOST+9 |
U | MAIN+26, MAIN+27, MAIN+31, BLDPICK+16, BLDPICK+33, BLDPICK+35, BLDPICK+48, BLDPICK+50, BLDPICK+63, BLDPICK+65 , PPICHK+5, BLDMACT+5, CHOICE+8, GETMEMOS+18, GETMEMOS+19, MEMO+3, CANPOST+8 |
Y | BLDMACT+2~, BLDMACT+7*, BLDMACT+8*, CHOICE+13, WHICHDAY+8, WHICHDAY+10 |
ZNODE | BLDMACT~, BLDMACT+5, GETMEMOS+12~, GETMEMOS+17*, GETMEMOS+19 |