©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGPREBJ1 ;ALB/SCK/EG - PreRegistration Background job cont. ; 1/21/05 7:03am
Source file <DGPREBJ1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | WAIT^DICD FILE^DICN ^DIE ^DIR |
| Registration | 2 | SETTEXT^DGPREBJ (DEM,INP)^VADPT |
| Kernel | 1 | ($$DOW,$$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT |
| Scheduling | 1 | $$SDAPI^SDAMA301 |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 2 | DGPRE UPDATE CALL LIST DGPREBJ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SDAMAPI(DGPREI,DGPDT1) | ;
; Input: DGPDT1 - Date to look for appointments |
|
| 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 |
|
| MSG1 | ;;The 'DAYS TO PULL' is not filled in, unable to determine appoinment date.
|
|
| MSG2 | ;;The call list is currently not being generated for weekends.
|
|
| 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)
|
|
| 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 |
|
| ENQ | ||
| EXIT | ;
|
| Name | Field # of Occurrence |
|---|---|
| SETTEXT^DGPREBJ | ADDNEW+35, ADDNEW+88, ADDNEW+89, ADDNEW+90, ADDNEW+91, ADDNEW+92, ADDNEW+93, ADDNEW+94, ADDNEW+95, ADDNEW+96 , ADDNEW+97, SDAMAPI+6, SDAMAPI+16, SDAMAPI+17 |
| WAIT^DICD | EN+19 |
| FILE^DICN | ADDNEW+76 |
| ^DIE | ADDNEW+84 |
| ^DIR | EN+16 |
| $$SDAPI^SDAMA301 | SDAMAPI+22 |
| DEM^VADPT | ADDNEW+65 |
| INP^VADPT | ADDNEW+58 |
| $$DOW^XLFDT | SDAMAPI+13 |
| $$FMADD^XLFDT | EN+13, ADDNEW+43, SDAMAPI+9 |
| $$FMDIFF^XLFDT | ADDNEW+63 |
| $$FMTE^XLFDT | EN+14, SDAMAPI+17 |
| $$NOW^XLFDT | EN+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGS(41.42 - [#41.42] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | EN+12, ADDNEW+48, ADDNEW+49, ADDNEW+53, ADDNEW+55, ADDNEW+62, SDAMAPI+3, SDAMAPI+14 |
| ^DGS(41.41 - [#41.41] | ADDNEW+61 |
| ^DGS(41.42 - [#41.42] | ADDNEW+72, ADDNEW+79, ADDNEW+80 |
| ^DPT - [#2] | ADDNEW+45, ADDNEW+54, ADDNEW+66, ADDNEW+68 |
| ^TMP($J | ENQ!, ADDNEW+35, ADDNEW+40, ADDNEW+41, ADDNEW+42, ADDNEW+74, ADDNEW+82 |
| ^XUSEC("DGPRE SUPV" | EN+8 |
| Name | Line Occurrences |
|---|---|
| ADDNEW | EN+21 |
| ENQ | EN+8, EN+17 |
| EXIT | SDAMAPI+4, SDAMAPI+14 |
| FIELDS | ADDNEW+75, ADDNEW+83 |
| MSG1 | SDAMAPI+5, SDAMAPI+6 |
| MSG2 | SDAMAPI+15, SDAMAPI+16 |
| SDAMAPI | EN+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CKAPDT | ADDNEW+38~, ADDNEW+42*, ADDNEW+43 |
| DA | ADDNEW+79*, ADDNEW+80, ADDNEW+86! |
| DD | ADDNEW+73! |
| DFN | ADDNEW+58!*, ADDNEW+65!*, ADDNEW+72, ADDNEW+74, ADDNEW+79, ADDNEW+86! |
| DGARRAY | ENQ!, SDAMAPI+19~, SDAMAPI+22 |
| DGARRAY("FLDS" | SDAMAPI+22* |
| DGARRAY(1 | SDAMAPI+20*, SDAMAPI+21* |
| DGPADD | ADDNEW+37~, ADDNEW+39*, ADDNEW+77*, ADDNEW+95 |
| DGPAELG | ADDNEW+52~, ADDNEW+54*, ADDNEW+55 |
| DGPAPT | ADDNEW+37~, ADDNEW+74*, ADDNEW+82* |
| DGPDT | EN+11~, ADDNEW+63, SDAMAPI+8*, SDAMAPI+9*, SDAMAPI+13, SDAMAPI+17, SDAMAPI+21 |
| DGPDT1 | EN+18*, EN+20, EN+21, ADDNEW~, ADDNEW+42, ADDNEW+43, ADDNEW+74, ADDNEW+82, SDAMAPI~, SDAMAPI+8 , SDAMAPI+20 |
| DGPDW | ADDNEW+38~, SDAMAPI+13*, SDAMAPI+14 |
| DGPEXCL | ADDNEW+38~, ADDNEW+47*, ADDNEW+48, ADDNEW+49*, ADDNEW+50, ADDNEW+52*, ADDNEW+53, ADDNEW+55*, ADDNEW+56 |
| DGPINP | ADDNEW+37~, ADDNEW+39*, ADDNEW+59*, ADDNEW+90 |
| DGPN1 | ADDNEW+37~, ADDNEW+40*, ADDNEW+41, ADDNEW+42, ADDNEW+49, ADDNEW+74, ADDNEW+82 |
| DGPN5 | ADDNEW+38~, ADDNEW+47*, ADDNEW+48*, ADDNEW+49, ADDNEW+52*, ADDNEW+53*, ADDNEW+55 |
| DGPNDTW | ADDNEW+38~, ADDNEW+62*, ADDNEW+63 |
| DGPNDY | SDAMAPI+3~*, SDAMAPI+4, SDAMAPI+9 |
| DGPNL | EN+11~, EN+18* |
| DGPP | EN+11~, EN+13*, EN+14 |
| DGPPH | ADDNEW+38~, ADDNEW+66*, ADDNEW+67, ADDNEW+68*, ADDNEW+69*, ADDNEW+70* |
| DGPPRDT | ADDNEW+38~, ADDNEW+61*, ADDNEW+63 |
| DGPPT | ADDNEW+38~, ADDNEW+41*, ADDNEW+42, ADDNEW+45, ADDNEW+54, ADDNEW+58, ADDNEW+61, ADDNEW+65, ADDNEW+66, ADDNEW+68 , ADDNEW+82 |
| DGPREI | ADDNEW~, SDAMAPI~, SDAMAPI+5, SDAMAPI+6, SDAMAPI+8, SDAMAPI+13, SDAMAPI+15, SDAMAPI+16, SDAMAPI+20, SDAMAPI+21 |
| DGPTCE | ADDNEW+37~, ADDNEW+39*, ADDNEW+50*, ADDNEW+91 |
| DGPTDTH | ADDNEW+37~, ADDNEW+39*, ADDNEW+45*, ADDNEW+93 |
| DGPTNC | ADDNEW+37~, ADDNEW+39*, ADDNEW+63*, ADDNEW+89 |
| DGPTOD | EN+11~, EN+18*, ADDNEW+61 |
| DGPTOT | ADDNEW+37~, ADDNEW+39*, ADDNEW+44*, ADDNEW+88 |
| DGPTPE | ADDNEW+37~, ADDNEW+39*, ADDNEW+56*, ADDNEW+92 |
| DGPTXT | EN+11~, EN+22 |
| DGPTXT( | EN+23 |
| DGPUPD | ADDNEW+37~, ADDNEW+39*, ADDNEW+85*, ADDNEW+96 |
| DIC | ADDNEW+73*, ADDNEW+86! |
| DIC("DR" | ADDNEW+75* |
| DIC(0 | ADDNEW+73* |
| DIE | ADDNEW+81*, ADDNEW+86! |
| DIR | EN+16! |
| DIR("A" | EN+15* |
| DIR("B" | EN+14* |
| DIR(0 | EN+15* |
| DIROUT | ENQ! |
| DIRUT | EN+17, ENQ! |
| DO | ADDNEW+73! |
| DR | ADDNEW+83*, ADDNEW+86! |
| DT | EN+18, SDAMAPI+9, SDAMAPI+13, SDAMAPI+21 |
| DTOUT | ENQ! |
| DUOUT | ENQ! |
| DUZ | EN+8 |
| I1 | EN+11~, EN+23* |
| SCDNT | ENQ! |
| SDCNT | SDAMAPI+19~, SDAMAPI+22* |
| U | EN+12, ADDNEW+45, ADDNEW+49, ADDNEW+54, ADDNEW+55, ADDNEW+62, ADDNEW+66, ADDNEW+68, ADDNEW+80, SDAMAPI+3 , SDAMAPI+14 |
| VA | ADDNEW+86! |
| VADM | ADDNEW+86! |
| VAERR | ADDNEW+86! |
| VAIN | ADDNEW+86! |
| VAIN(1 | ADDNEW+59 |
| X | EN+11~, ADDNEW+74* |
| X1 | EN+11~, EN+12*, EN+13 |
| X2 | EN+11~, EN+12*, EN+13 |
| Y | EN+11~, EN+18 |
| Name | Field # of Occurrence |
|---|---|
| $T(FIELDS | ADDNEW+75, ADDNEW+83 |
| $T(MSG1 | SDAMAPI+5, SDAMAPI+6 |
| $T(MSG2 | SDAMAPI+15, SDAMAPI+16 |