Routine: DGPREBJ1

Information

DGPREBJ1 ;ALB/SCK/EG/PC - PreRegistration Background job cont. ;Jul 25, 2019@14:53

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DGPRE UPDATE CALL LIST DGPREBJ

Entry Points

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.

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

Customize PDF page

Package: Registration