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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGPREBJ1

Package: Registration

Routine: DGPREBJ1


Information

DGPREBJ1 ;ALB/SCK/EG - PreRegistration Background job cont. ; 1/21/05 7:03am

Source Information

Source file <DGPREBJ1.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPRE UPDATE CALL LIST  DGPREBJ  

Entry Points

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 ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not have the DG PREREGISTRATION Key allocated, contact your MAS ADPAC."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"Results of updating the Call List with new entries",!
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: !,DGPTXT(I1)
  • Line Location: EN+23
Routine Call
  • DIE
  • Line Location:
    • ADDNEW+84
Routine Call
  • DIR
  • Line Location:
    • EN+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGS(41.42 - [#41.42] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(FIELDS ADDNEW+75, ADDNEW+83
$T(MSG1 SDAMAPI+5, SDAMAPI+6
$T(MSG2 SDAMAPI+15, SDAMAPI+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All