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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PRSPESR2

Package: PAID

Routine: PRSPESR2


Information

PRSPESR2 ;WOIFO/JAH - PTP ESR Edit-Calls from ScreenMan Form ;07/28/05

Source Information

Source file <PRSPESR2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
PAID 3 CNV^PRSATIM  V0^PRSATP1  $$ELAPSE^PRSPESR2  
VA FileMan 2 (HLP,REFRESH)^DDSUTL  PUT^DDSVAL  
Kernel 1 ($$FMADD,$$FMDIFF)^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: 12

Package Total Caller Graph
PAID 12 PRSARC07  PRSARC08  PRSASR1  PRSNROLD  PRSNROLS  PRSPCPP1  PRSPDESR  PRSPESR1  
PRSPESR2  PRSPLVA  PRSPSAP2  PRSPSAPU  

Entry Points

Name Comments DBIA/ICR reference
ELAPSE(MEAL,START,STOP) ; CALCULATE THE HOURS BETWEEN 2 TIMES
FIVE(TIME) ;ENSURE ELAPSE IS A FIVE CHAR STRING--04:15 OR 02:00
TWENTY4(TIME) ;CONVERT TIME TO TWENTY FOUR HOUR TIME
MEALESS(HHMM,MEAL) ;Remove meal time from hours total
; (subtract a 15 minute increment from length of time
; in hh:mm format, i.e. hh:mm - mm
MEALIN ;convert 15 minute meal to a digit
MEALOUT ; convert meal digit to minutes
VALIDTT ; Set DDSERROR if not a valid type of time.
VALIDLV(SSCH,SPST) ; Set DDSERROR if any posting is outside the
; tour time segements inappropriately
MARRAY(MARRAY,SEGS) ; BUILD MINUTE ARRAY
; INPUT : SEGS--tour of duty segments in global format
; OUTPUT: MARRAY--array by reference of tour segments in minutes
; from midnight format
; EXAMPLE:
; 2 segment tour will look like the following:
; MARRAY(945,1)=1140^03:45P^07:00P
; MARRAY(1140,6)=1305^07:00P^09:45P
; MARRAY(1320,11)=1380^10:00P^11:00P
PSTML(ROW) ; AUTO POST MEAL TIME
; if the time segment row that we are on in a form covers
; the tour then post a meal.
; ROW - is passed as the
; Z is in the form of NODE 5 in the 458.02 day mult
; it changes with edits on the form
; like Z=09:00A^NOON^RG^^30^NOON^08:00P^RG^^^08:00P^MID^CU^15
OVEREAT(ROW) ; Display warning on POST ACTION ON CHANGE for the
; meal field on the form if lunch more than allotted for tour
BURP(PRSN5) ; return ESR WORK NODE with no blank pieces
; PRSN5--esr work node $G(^PRST(458,PPI,"E",PRSIEN,"D",PRSD,5)
; if there's only a meal with a zero then skip that too.

External References

Name Field # of Occurrence
HLP^DDSUTL VALIDTT+8, VALIDTT+10, VALIDTT+14, OVEREAT+12, OVEREAT+18
REFRESH^DDSUTL PSTML+21, PSTML+46
PUT^DDSVAL PSTML+20, PSTML+45
CNV^PRSATIM MARRAY+20
V0^PRSATP1 MARRAY+21
$$ELAPSE^PRSPESR2 OVEREAT+7
$$FMADD^XLFDT ELAPSE+11
$$FMDIFF^XLFDT ELAPSE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,I,": ",TSEG
  • Line Location: BURP+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(457.1 - [#457.1] PSTML+30
^PRST(458 - [#458] VALIDTT+10, VALIDTT+11

Label References

Name Line Occurrences
$$FIVE ELAPSE+22, MEALESS+20
$$MEALESS ELAPSE+21
$$TWENTY4 ELAPSE+6, ELAPSE+8
MARRAY VALIDLV+10, PSTML+32, PSTML+33
MEALIN MEALESS+13, MEALESS+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANY MARRAY+12~, MARRAY+13*, MARRAY+14, MARRAY+17*, MARRAY+18
BASE PSTML+8~, PSTML+11*, PSTML+13, PSTML+15, PSTML+18, PSTML+26, PSTML+47, OVEREAT+2~, OVEREAT+5*, OVEREAT+7
, OVEREAT+14
>> DA PSTML+20, PSTML+45
>> DDSERROR VALIDTT+7*, VALIDTT+10*, VALIDTT+13*, OVEREAT+9*
DECR MEALESS+4~, MEALESS+14*, MEALESS+16
>> DIE PSTML+20, PSTML+45
DT ELAPSE+11, ELAPSE+13, ELAPSE+14, VALIDTT+11
DY2 PSTML+24~, PSTML+31*
ELAPSE ELAPSE+3~, ELAPSE+4*, ELAPSE+5, ELAPSE+15*, ELAPSE+17*, ELAPSE+20*, ELAPSE+21*, ELAPSE+22*, ELAPSE+23
FIVE FIVE+1~, FIVE+8*, FIVE+9
FLDNUM PSTML+8~, PSTML+15*, PSTML+20, PSTML+45
HH FIVE+1~, FIVE+3*, FIVE+4*, FIVE+8, MEALESS+9*, MEALESS+17*, MEALESS+20
HHMM MEALESS~, MEALESS+5, MEALESS+7, MEALESS+9
I MEALESS+4~, MEALESS+16*, VALIDLV+6~, VALIDLV+7*, VALIDLV+11*, VALIDLV+12, VALIDLV+13, MARRAY+12~, MARRAY+14*, MARRAY+17
, MARRAY+19, MARRAY+22, BURP+5~, BURP+7*, BURP+8
I2 VALIDLV+6~, VALIDLV+12*, VALIDLV+13
J VALIDLV+6~, VALIDLV+15*, VALIDLV+16*, VALIDLV+17
K OVEREAT+2~, OVEREAT+15*
LV VALIDLV+6~, VALIDLV+7*, VALIDLV+11, VALIDLV+14*, VALIDLV+20
MARRAY MARRAY~
MARRAY( MARRAY+22*
MEAL ELAPSE~, ELAPSE+21, MEALESS~, MEALESS+7, MEALESS+14
MM FIVE+1~, FIVE+3*, FIVE+5*, FIVE+6*, FIVE+7*, FIVE+8, MEALESS+5*, MEALESS+7, MEALESS+13, MEALESS+19*
, MEALESS+20
MSA VALIDLV+6~, VALIDLV+10
MSA( VALIDLV+16, VALIDLV+17
MTOT OVEREAT+2~, OVEREAT+13*, OVEREAT+15*, OVEREAT+16
OBJ MEALESS+4~, MEALESS+13*, MEALESS+15*, MEALESS+17, MEALESS+18*, MEALESS+19
OK VALIDLV+6~, VALIDLV+7*, VALIDLV+11, VALIDLV+14*, VALIDLV+16, VALIDLV+18*, VALIDLV+20
P1 VALIDLV+6~, VALIDLV+12*, VALIDLV+18, PSTML+24~, PSTML+36*, PSTML+37, PSTML+38, PSTML+44
P2 VALIDLV+6~, VALIDLV+12*, VALIDLV+18, PSTML+24~, PSTML+38*, PSTML+39, PSTML+44
POST PSTML+24~, PSTML+32
POST( PSTML+38
POST(0 PSTML+36
>> PPI VALIDTT+5, VALIDTT+10, VALIDTT+11
>> PRSD VALIDTT+5, VALIDTT+10, VALIDTT+11
>> PRSIEN VALIDTT+5, VALIDTT+10
>> PRSML PSTML+9, PSTML+20, PSTML+45, PSTML+47, OVEREAT+16
>> PRSML2 OVEREAT+16
>> PRSN1 PSTML+19, PSTML+27, PSTML+33
PRSN5 BURP~, BURP+8
PRSZ OVEREAT+2~, OVEREAT+14*, OVEREAT+15
RNG PSTML+8~
ROW PSTML~, PSTML+11, OVEREAT~, OVEREAT+4, OVEREAT+5
S1 VALIDLV+6~, VALIDLV+17*, VALIDLV+18, PSTML+24~, PSTML+40*, PSTML+41, PSTML+42, PSTML+44
S2 VALIDLV+6~, VALIDLV+17*, VALIDLV+18, PSTML+24~, PSTML+42*, PSTML+44
SCH PSTML+24~, PSTML+33
SCH( PSTML+42
SCH(0 PSTML+40
SCHED PSTML+24~, PSTML+27*
SEGS MARRAY~, MARRAY+17, MARRAY+19, MARRAY+22
SN BURP+5~, BURP+6*, BURP+11*, BURP+12
SPST VALIDLV~
SPST( VALIDLV+11, VALIDLV+12, VALIDLV+13
SSCH VALIDLV~, VALIDLV+10
ST2SP PSTML+8~, PSTML+18*, PSTML+19, PSTML+26*, PSTML+32
START ELAPSE~, ELAPSE+5, ELAPSE+6*, ELAPSE+10, ELAPSE+14*, ELAPSE+15
STOP ELAPSE~, ELAPSE+5, ELAPSE+8*, ELAPSE+10, ELAPSE+11*, ELAPSE+13*, ELAPSE+15
STR OVEREAT+2~, OVEREAT+10*, OVEREAT+11*, OVEREAT+12, OVEREAT+17*, OVEREAT+18
TIME FIVE~, FIVE+2, FIVE+3, FIVE+6, TWENTY4~, TWENTY4+4, TWENTY4+5, TWENTY4+7, TWENTY4+8
>> TOD PSTML+30
TSEG BURP+5~, BURP+8*, BURP+10, BURP+11
TWO PSTML+24~, PSTML+30*, PSTML+31
U VALIDTT+6, VALIDTT+9, VALIDTT+11, VALIDTT+12, VALIDLV+12, VALIDLV+13, VALIDLV+17, MARRAY+17, MARRAY+19, MARRAY+20
, MARRAY+22, PSTML+13, PSTML+18, PSTML+19, PSTML+26, PSTML+27, PSTML+30, PSTML+33, PSTML+38, PSTML+42
, PSTML+47, OVEREAT+7, OVEREAT+14, OVEREAT+15, BURP+8
VALIDLV VALIDLV+6~, VALIDLV+8*, VALIDLV+20*, VALIDLV+21
WORK OVEREAT+2~, OVEREAT+7*, OVEREAT+8
X MEALESS+4~, MEALESS+13*, MEALESS+14*, MEALIN+1*, MEALIN+2, MEALIN+3*, MEALIN+5!, VALIDTT+5, VALIDTT+6, VALIDTT+9
, VALIDTT+12, MARRAY+12~, MARRAY+19*, OVEREAT+4, OVEREAT+7, OVEREAT+11, OVEREAT+14
Y TWENTY4+3*, TWENTY4+5*, TWENTY4+7*, TWENTY4+9*, TWENTY4+14*, TWENTY4+15*, TWENTY4+16, MEALESS+4~, MEALOUT+1*, MARRAY+12~
, MARRAY+20
>> Z PSTML+13, PSTML+18, PSTML+26, PSTML+47*, OVEREAT+4, OVEREAT+7, OVEREAT+14
Z1 MARRAY+12~, MARRAY+20*, MARRAY+22
Z2 MARRAY+12~, MARRAY+20*, MARRAY+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All