DGPREBJ1 ;ALB/SCK/EG/PC - PreRegistration Background job cont. ;Jul 25, 2019@14:53
Source file <DGPREBJ1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Interactive entry (from option)
; Variables ; DGPTOD - Todays date from DT ; DGPNL - No. of lines in message array ; DGPTXT - Message array from ADDNEW procedure ; DGPP - Default date to look for appointments ; I1,X1-2 - Local variables for counters and date manipulation |
|
| ENQ | ||
| ADDNEW(DGPREI,DGPDT1) | ; Searches for appointments to add to the Call List
; Variables ; Input: ; DGPREI - Flag indicating how the procedure was called. ; 0 - called by background job ; 1 - called by option (interactive) ; DGPDT1 - Date to look for appointments, Required when ; DGPREI = 1 |
|
| EXIT | ;
|
|
| SDAMAPI(DGPREI,DGPDT1) | ;
; Input: DGPDT1 - Date to look for appointments |
|
| FIELDS | ;;.1///^S X=$P($G(^SC(DGPN1,0)),U,15);1///^S X=$E(VADM(1))_VA("BID");2///^S X=DGPPH;3///^S X=$G(DGPPRDT);5///^S X=DGPN1;6///^S X=DGPAPT;7///^S X=$P(^SC(DGPN1,0),U,8)
|
|
| MSG1 | ;;The 'DAYS TO PULL' is not filled in, unable to determine appointment date.
|
|
| MSG2 | ;;The call list is currently not being generated for weekends.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGS(41.42 - [#41.42] | Classic Fileman Calls |
