Routine: SD53121

Information

SD53121 ;ALB/JRP - PATCH 121 POST-INIT;18-APR-97

Source file <SD53121.m>

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT UPDATE^XPDID (BMES,MES)^XPDUTL
Scheduling	3	$$AECLOSE^SCDXFU04 $$INSERT^SCDXUTL1 XMY^SDUTL2
VA Fileman	3	MSG^DIALOG UPDATE^DIE ^DIK

Name	Comments	DBIA/ICR reference
ERRCODE	;Update ERROR CODE DESCRIPTION field (#11) of the TRANSMITTED ; OUTPATIENT ENCOUNTER ERROR CODE file (#409.76) for error codes ; 420 & 105 (AAC changed descriptions to reflect receipt of info ; past close-out)
MGCHK	;Check to see if the LATE ACTIVITY MAIL GROUP field (#217) of the ; MAS PARAMETERS file (#43) contains a valid mail group
SEED	;Seed NPCD ENCOUNTER MONTH multiple (#404.9171) of the SCHEDULING ; PARAMETER file (#404.91) with close-out dates for fiscal year 1997
POST	;Main entry point of post-init
FY97	;Close-out dates for fiscal year 1997 ; Month ^ Database Close-Out ^ Workload Close-Out
DELTRIG	;Delete obsolete triggers on the TRANSMISSION REQUIRED field (#.04) ; of the TRANSMITTED OUTPATIENT ENCOUNTER file (#409.73)

Name	Field # of Occurrence
MSG^DIALOG	ERRCODE+25
UPDATE^DIE	ERRCODE+20
^DIK	DELTRIG+32
$$AECLOSE^SCDXFU04	SEED+32
$$INSERT^SCDXUTL1	SEED+7, SEED+8, SEED+9, SEED+11, SEED+12, SEED+13, SEED+15, SEED+16, SEED+17, SEED+27 , SEED+28, SEED+29
XMY^SDUTL2	MGCHK+17
$$FMTE^XLFDT	SEED+27, SEED+28, SEED+29
UPDATE^XPDID	DELTRIG+15, SEED+34
BMES^XPDUTL	DELTRIG+6, DELTRIG+35, ERRCODE+8, ERRCODE+24, ERRCODE+28, MGCHK+7, MGCHK+21, MGCHK+25, MGCHK+26, MGCHK+27 , MGCHK+29, SEED+6, SEED+10, SEED+35
MES^XPDUTL	DELTRIG+7, DELTRIG+8, DELTRIG+34, ERRCODE+9, ERRCODE+10, ERRCODE+11, ERRCODE+12, ERRCODE+13, ERRCODE+26, ERRCODE+27 , MGCHK+8, MGCHK+9, MGCHK+10, MGCHK+11, MGCHK+12, MGCHK+22, MGCHK+28, SEED+14, SEED+18, SEED+30

Name	Line Occurrences (* Changed, ! Killed)
^DD(409.73	DELTRIG+10, DELTRIG+13, DELTRIG+17, DELTRIG+26
^DG(43 - [#43]	MGCHK+14

Name	Field # of Occurrence
DA	DELTRIG+4~, DELTRIG+31*
DA(1	DELTRIG+30*
DA(2	DELTRIG+29*
DATES	SEED+4~, SEED+21*, SEED+23, SEED+24, SEED+25
DBCLOSE	SEED+4~, SEED+24*, SEED+28, SEED+32
DIK	DELTRIG+4~, DELTRIG+28*
LINE	SEED+4~, SEED+21*, SEED+34
NODE	DELTRIG+4~, DELTRIG+17, DELTRIG+19, DELTRIG+21, DELTRIG+23, MGCHK+4~, MGCHK+14, MGCHK+15, MGCHK+17
OK	MGCHK+4~, MGCHK+5, MGCHK+15, MGCHK+17*, MGCHK+19, MGCHK+24
SD53FDA	ERRCODE+6~
SD53FDA(	ERRCODE+15, ERRCODE+16, ERRCODE+17, ERRCODE+18
SD53IEN	ERRCODE+6~
SD53MSG	ERRCODE+6~
SD53MSG("DIERR"	ERRCODE+22
SD53TMP	ERRCODE+23~, ERRCODE+25, ERRCODE+27
TMP	SEED+4~, SEED+7, SEED+8, SEED+9, SEED+10, SEED+11, SEED+12, SEED+13, SEED+14, SEED+15* , SEED+16, SEED+17, SEED+18, SEED+21, SEED+27, SEED+28, SEED+29, SEED+30, SEED+32*
WLCLOSE	SEED+4~, SEED+25*, SEED+29, SEED+32
WLMONTH	SEED+4~, SEED+23*, SEED+27, SEED+32
X	DELTRIG+4~, DELTRIG+23, DELTRIG+24, DELTRIG+33, DELTRIG+34
XMDUZ	MGCHK+4~, MGCHK+20*, MGCHK+22
XMY	MGCHK+4~, MGCHK+17
XMY(""	MGCHK+20
XPDIDTOT	DELTRIG+4~, DELTRIG+10, SEED+4~, SEED+20
>> XPDNM	DELTRIG+15, SEED+34
XREFNUM	DELTRIG+4~, DELTRIG+12, DELTRIG+13, DELTRIG+15, DELTRIG+17, DELTRIG+26, DELTRIG+31, DELTRIG+33

Name	Field # of Occurrence
$T(FY97+LINE	SEED+21