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

Package: Registration

Routine: DG53688P


Information

DG53688P ;ALB/CKN,BAJ,ERC - Patch DG*5.3*688 Install Utility Routine ; 8/15/08 12:03pm

Source Information

Source file <DG53688P.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 4 START^DG53688A  START^DG53688B  ($$ADD,$$UPD)^DGENDBS  $$SITE^VASITE  
VA FileMan 3 (FILE,UPDATE)^DIE  ENALL^DIK  $$GET1^DIQ  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
EP ;Entry point - Driver
ISTHERE(FILE,DGDATA,GLOBAL) ;
HECMSG ; Send message to HEC Legacy that install is complete.
506() ; Update entry #506 in the INCONSISTENT DATA ELEMENTS file (#38.6)
88() ; Add entry #88 TEMP. ADDRESS DATA INCOMPLETE
ENRSTAT() ;Add NOT APPLICABLE to the Enrollment Status file (#27.15)
NEWSTAT ;set .01 and .02 fields
; .01 - NOT APPLICABLE
; .02 - N:NOT ENROLLED
CHKSTAT ;check to see if existing NOT APPLICABLE entry has "N" for .02 field
SETSTAT ;set .02 field (Enr Category) to "N" (Not Enrolled) on existing N/A entry
ERR ;set error message into DGMSG for installation message
MSG(DGB) ;generate installation message
CREF ;index fuile #35 with new "C" cross reference
TEXT ;FILE#;FIELD#~VALUE;FIELD#~VALUE;FIELD#~VALUE.....

External References

Name Field # of Occurrence
START^DG53688A EP+4
START^DG53688B EP+5
$$ADD^DGENDBS EP+15
$$UPD^DGENDBS 506+11
FILE^DIE SETSTAT+4
UPDATE^DIE 88+22, NEWSTAT+9
ENALL^DIK CREF+3
$$GET1^DIQ HECMSG+7
$$SITE^VASITE HECMSG+6
$$FMTE^XLFDT HECMSG+15
$$NOW^XLFDT HECMSG+15
^XMD HECMSG+18
BMES^XPDUTL EP+30, EP+31, ISTHERE+5, HECMSG+19, 506+5, 506+12, 506+15, 88+4, 88+12, 88+14
, 88+24, 88+26, 88+28, MSG+2
MES^XPDUTL 506+13, 88+9, 88+10, 88+11, 88+25, MSG+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(35 - [#35] Classic Fileman Calls
^HLCS(869.3 - [#869.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGEN(27.15 - [#27.15] ENRSTAT+6, ENRSTAT+7, ENRSTAT+12, CHKSTAT+1
^DGIN(38.6 - [#38.6] 88+7, 88+8, 88+10

Label References

Name Line Occurrences
$$506 EP+20
$$88 EP+21
$$ENRSTAT EP+26
$$ISTHERE EP+13
CHKSTAT ENRSTAT+8
CREF HECMSG+3
ERR NEWSTAT+10, SETSTAT+5
MSG ENRSTAT+9, ENRSTAT+11, ENRSTAT+13, NEWSTAT+11, ERR+5, ERR+6
SETSTAT ENRSTAT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT EP+1~, EP+7*, EP+8, EP+15*, EP+20*, EP+21*, EP+24, EP+26*, EP+28, 506+3~
, 506+4*, 506+14*, 506+15, 506+16, 88+1~, 88+2*, 88+7, 88+13*, 88+27*, 88+28
, 88+29
ACTION EP+1~, EP+7*, EP+20*, EP+26*, EP+30
DATA EP+10*, EP+11, 506+3~, 506+11, 88+1~
DATA( 506+6*
DATA(2 506+7*
DATA(50 506+8*
DGABORT EP+25~, ENRSTAT+4*, ENRSTAT+6, ENRSTAT+9, ENRSTAT+10, ENRSTAT+11, ENRSTAT+14*, NEWSTAT+10, NEWSTAT+12*, NEWSTAT+13
, CHKSTAT+1*, SETSTAT+5*, SETSTAT+6*
DGB MSG~, MSG+2
DGC ERR+1~, ERR+2*, ERR+3*, ERR+4, ERR+5
DGCAT ENRSTAT+1~, ENRSTAT+3*, NEWSTAT+6, SETSTAT+2
DGCC ERR+1~, ERR+2*, ERR+4*, ERR+5
DGDATA EP+10!, EP+13, EP+15, ISTHERE~
DGDATA( EP+12*, EP+17, ISTHERE+5
DGENDA 506+3~, 506+4*, 506+11
DGERR 506+3~, 506+11, 506+13, 88+1~, 88+23, NEWSTAT+8!, NEWSTAT+10, SETSTAT+3!, SETSTAT+5, SETSTAT+6
, ERR+7!
DGERR("DIERR" 88+25, ERR+3, ERR+4, ERR+5
DGFDA 88+1~, NEWSTAT+4~, SETSTAT+1~
DGFDA( SETSTAT+2*
DGFDA(1 NEWSTAT+5*, NEWSTAT+6*
DGIEN 88+1~, NEWSTAT+4~, NEWSTAT+7*
DGIEN(1 88+2*
DGMSG ENRSTAT+1~, ENRSTAT+9*, ENRSTAT+11*, ENRSTAT+13*, NEWSTAT+11*, ERR+5*, MSG+2, MSG+3
DGSTAT ENRSTAT+1~, ENRSTAT+2*, NEWSTAT+5
DGTITL 506+3~, 506+4*, 506+12, 506+15, 88+1~, 88+3*, 88+24, 88+28
DGWP 506+3~, 88+1~
DGWP(1 506+9*, 88+18*
DGWP(2 506+10*, 88+19*
DGWP(3 88+20*
DGWP(4 88+21*
DIFROM HECMSG+5~
DIK CREF+1~, CREF+2*
DIK(1 CREF+2*
DMSG EP+1~, EP+7*, EP+17*, EP+20*, EP+21*, EP+26*, EP+30
DUZ HECMSG+11
ELEMNT EP+1~, EP+8*, EP+9, EP+10
EXIST EP+1~, EP+9*, EP+10, EP+13*, EP+14
FILE EP+9*, EP+13, EP+15, ISTHERE~, ISTHERE+5, 506+3~, 506+4*, 506+11
FOUND ISTHERE+1~, ISTHERE+2*, ISTHERE+6*, ISTHERE+7
GLOB ISTHERE+1~, ISTHERE+3*, ISTHERE+4
GLOBAL EP+7*, EP+13, ISTHERE~, ISTHERE+3
I EP+1~, EP+8*, 88+1~, 88+16*
J EP+1~, EP+10*
MSG HECMSG+5~
MSG(1 HECMSG+13*, HECMSG+14*, HECMSG+15*, HECMSG+16*, HECMSG+17*
PRODFLG HECMSG+5~, HECMSG+7*, HECMSG+10, HECMSG+11, HECMSG+16
QUIT 88+1~, 88+2*
ROOT 88+1~, 88+5*, 88+6, 88+8, 88+11, 88+15, 88+16, 88+17
SITE HECMSG+5~, HECMSG+6*
STATN HECMSG+5~, HECMSG+6*, HECMSG+9, HECMSG+14
>> SUB EP+10*, EP+11*, EP+12, EP+13
U HECMSG+6, HECMSG+13, HECMSG+14, HECMSG+15, HECMSG+16, HECMSG+17, 88+8, ENRSTAT+7, ENRSTAT+12, CHKSTAT+1
>> VALUE EP+11*, EP+12
XMDUZ HECMSG+5~, HECMSG+8*, HECMSG+9
XMSUB HECMSG+5~, HECMSG+9*
XMTEXT HECMSG+5~, HECMSG+12*
XMY HECMSG+5~
XMY( HECMSG+11*
XMY("S.IVMB*2 *860 MESSAGE@IVM.DOMAIN.EXT" , HECMSG+10*
>> XPDABORT EP+29*

Marked Items

Name Field # of Occurrence
$T(TEXT+I EP+8
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All