Routine: DG53632P

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
FileMan Files Accessed Via FileMan Db Call
Global Variables Directly Accessed
Label References
Local Variables

Information

DG53632P ;ALB/LBD - Post install routine for DG*5.3*632; 1 NOV 2004

Source Information

Source file <DG53632P.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	(,STAT)^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
Registration	3	($$FINDCUR,$$GET)^DGENA EN^DGMTCOR $$SITE^VASITE
VA Fileman	2	UPDATE^DIE $$GET1^DIQ
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
QUETASK	; Queue the Unemp/POW Vet update job
FVINC	; Add new entry #86 to the INCONSISTENT DATA ELEMENTS file (#38.6)
ACTIVE(TASK)	; Check if task is running ; Input -- TASK = Task number ; Output -- 1 = Task is running ; 0 = Task is not running
UNEMP(DFN)	; Is veteran Unemployable Priority 1?
EN	; Entry point for queued process
UPRX(DFN,EX)	; Update RX Copay status in Annual Means Test file (#408.31) ; and Billing Patient file (#354) ; INPUT - DFN = Patient IEN ; EX = Exemption type, either POW or UNEMP
POW(DFN)	; Is veteran a POW?
UNEMPOW	; Run update process for Unemployable and POW Veterans
POST	; Post install entry point
CHK()	; Check if Unemp Vet update process should be run
SENDMSG	; Send Mailman bulletin when process completes

External References

Name	Field # of Occurrence
^%ZTLOAD	QUETASK+4
STAT^%ZTLOAD	ACTIVE+6
$$FINDCUR^DGENA	UNEMP+2
$$GET^DGENA	UNEMP+3
EN^DGMTCOR	UPRX+10
UPDATE^DIE	FVINC+24
$$GET1^DIQ	UPRX+6, UPRX+7, SENDMSG+3
$$SITE^VASITE	SENDMSG+2
$$FMADD^XLFDT	CHK+2
$$FMTE^XLFDT	EN+2, EN+13
$$NOW^XLFDT	QUETASK+2, EN+2, EN+13
^XMD	SENDMSG+24
BMES^XPDUTL	FVINC+3, FVINC+6, FVINC+11, FVINC+26, FVINC+28, FVINC+30, UNEMPOW+1, QUETASK+6, CHK+7, CHK+12
MES^XPDUTL	FVINC+7, FVINC+8, FVINC+9, FVINC+10, FVINC+27

FileNo	Call Tags
^IBA(354 - [#354]	GET1^DIQ
^HLCS(869.3 - [#869.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGIN(38.6 - [#38.6]	FVINC+5, FVINC+7, FVINC+9
^DPT - [#2]	POW+2, POW+3, POW+4
^DPT("AENRC"	EN+6
^IBA(354 - [#354]	UPRX+5
^XTMP("DG53632P"	QUETASK+4, EN+2, EN+8, EN+11, EN+13, EN+14, UPRX+11, UPRX+12, CHK+2*, CHK+3 , CHK+4, CHK+8, SENDMSG+12, SENDMSG+16, SENDMSG+17, SENDMSG+19, SENDMSG+20, SENDMSG+22, SENDMSG+23

Name	Line Occurrences
$$ACTIVE	CHK+9
$$CHK	UNEMPOW+2
$$POW	EN+7
$$UNEMP	EN+10
FVINC	POST+1
QUETASK	UNEMPOW+3
SENDMSG	EN+15
UNEMPOW	POST+2
UPRX	EN+9, EN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDT	CHK+1~, CHK+4*, CHK+6
DFN	EN+4~, EN+5, EN+6, EN+7, EN+9, EN+10, EN+12, POW~, POW+1, POW+2 , POW+3, POW+4, UNEMP~, UNEMP+2, UPRX~, UPRX+5, UPRX+6, UPRX+7, UPRX+12
>> DGENR	UNEMP+3
>> DGENR("ELIG"	UNEMP+5, UNEMP+6
>> DGENR("PRIORITY"	UNEMP+4
DGENRIEN	UNEMP+1~, UNEMP+2*, UNEMP+3
DGERR	FVINC+1~, FVINC+25
DGERR("DIERR"	FVINC+27
DGFDA	FVINC+1~
DGIEN	FVINC+1~
DGIEN(1	FVINC+23*
DGINC	FVINC+1~, FVINC+4*, FVINC+7, FVINC+10, FVINC+14, FVINC+26, FVINC+30
DGWP	FVINC+1~
DGWP(1	FVINC+18*
DGWP(2	FVINC+19*
DGWP(3	FVINC+20*
DGWP(4	FVINC+21*
DGWP(5	FVINC+22*
DT	CHK+2
DUZ	SENDMSG+5
EX	UPRX~, UPRX+8, UPRX+9, UPRX+11, UPRX+12
MSG	SENDMSG+1~
MSG(	SENDMSG+10, SENDMSG+18, SENDMSG+21*
MSG(1	SENDMSG+7*
MSG(10	SENDMSG+17*
MSG(11	SENDMSG+19*
MSG(12	SENDMSG+20*
MSG(13	SENDMSG+22*
MSG(14	SENDMSG+23*
MSG(2	SENDMSG+8*
MSG(3	SENDMSG+9*
MSG(4	SENDMSG+11*
MSG(5	SENDMSG+12*
MSG(6	SENDMSG+13*
MSG(7	SENDMSG+14*
MSG(8	SENDMSG+15*
MSG(9	SENDMSG+16*
REAS	UPRX+4~, UPRX+7*, UPRX+8, UPRX+9
ROOT	FVINC+1~, FVINC+13*, FVINC+14, FVINC+15, FVINC+16, FVINC+17
SITE	SENDMSG+1~, SENDMSG+2*
SITENM	SENDMSG+1~, SENDMSG+2*, SENDMSG+14
STAT	UPRX+4~, UPRX+6, UPRX+9, ACTIVE+4~, ACTIVE+5, ACTIVE+8, ACTIVE+9, ACTIVE+10
STATN	SENDMSG+1~, SENDMSG+2, SENDMSG+3, SENDMSG+4, SENDMSG+13
TASK	CHK+1~, CHK+8*, CHK+9, CHK+10, ACTIVE~, ACTIVE+5
TXT	QUETASK+1~, QUETASK+5*, QUETASK+6, CHK+1~, CHK+7, CHK+12
TXT(1	CHK+5, CHK+10
TXT(2	CHK+6, CHK+11
U	FVINC+7, FVINC+9, EN+2, EN+13, POW+2, CHK+2, CHK+4, ACTIVE+8, ACTIVE+9, SENDMSG+2 , SENDMSG+16, SENDMSG+17
XMDUZ	SENDMSG+1~, SENDMSG+4*
XMSUB	SENDMSG+1~, SENDMSG+4*
XMTEXT	SENDMSG+1~, SENDMSG+6*
XMY	SENDMSG+1~
XMY(	SENDMSG+5*
XMY("linda.desmond@med.va.gov"	SENDMSG+5*
XPDABORT	POST+1, FVINC+2!, FVINC+12, FVINC+29
Y	ACTIVE+4~, ACTIVE+7*, ACTIVE+8, ACTIVE+9
ZTDESC	QUETASK+1~, QUETASK+3*
ZTDTH	QUETASK+1~, QUETASK+2*
ZTIO	QUETASK+1~, QUETASK+2*
>> ZTREQ	EN+1*
ZTRTN	QUETASK+1~, QUETASK+2*
ZTSK	QUETASK+1~, QUETASK+4, QUETASK+5, EN+1, ACTIVE+4~, ACTIVE+5*
ZTSK(1	ACTIVE+7

Customize PDF page

Package: Registration

Routine: DG53632P

Call Graph Total: 9