PRSPESR2 ;WOIFO/JAH - PTP ESR Edit-Calls from ScreenMan Form ;07/28/05
Source file <PRSPESR2.m>
| 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. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
