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

Package: Adverse Reaction Tracking

Routine: GMRAY40


Information

GMRAY40 ;SLC/DAN Installation Utilities ;7/10/07 12:38

Source Information

Source file <GMRAY40.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Adverse Reaction Tracking 4 ($$DECEASED,ADCOM)^GMRAFX  ($$DUP,DELMUL)^GMRAFX3  ($$NKASCR,CLN)^GMRANKA  UPDATE^GMRAPES1  
Kernel 4 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  BMES^XPDUTL  
VA Fileman 3 $$FIND1^DIC  (,FILE)^DIE  (,ENALL)^DIK  
MailMan 1 ^XMD  
Registration 1 ($$TESTPAT,DEM)^VADPT  
Toolkit 1 SCREEN^XTID  

Entry Points

Name Comments DBIA/ICR reference
UPDATEF ;Update reactant to say free text so users know it isn't a standardized entry
PRETRAN ;Load conversion table into KIDS build
FIXALG ;Loop through 120.8 update existing free text entries
UPDATE ;Update free text entry to data found in table
CHANGED(GMRAR) ;Was entry changed by patch 29?
Q ;
UPDATEE ;Mark as entered in error, check for NKA
DEL ;No zero node, remove entry
MAIL ;Send message indicating post install is finished
POST ;Post installation processes
FIXB ;Kill and reset "B" xref on file 120.8 to be sure it's correct
DQ ;Process begins here

External References

Name Field # of Occurrence
^%ZTLOAD Q+3
$$FIND1^DIC UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8
^DIE UPDATEE+5, UPDATEE+8, UPDATE+15, UPDATE+21
FILE^DIE UPDATEF+7
^DIK DEL+4
ENALL^DIK FIXB+5
$$DECEASED^GMRAFX FIXALG+4
ADCOM^GMRAFX UPDATEF+10, UPDATEE+6, UPDATE+25
$$DUP^GMRAFX3 UPDATE+13
DELMUL^GMRAFX3 UPDATE+22
$$NKASCR^GMRANKA UPDATEE+7
CLN^GMRANKA UPDATEE+9
UPDATE^GMRAPES1 UPDATE+23
$$TESTPAT^VADPT FIXALG+4
DEM^VADPT MAIL+30
$$FMADD^XLFDT DQ+5
$$FMTE^XLFDT MAIL+9
$$NOW^XLFDT UPDATEE+8, MAIL+9
$$UP^XLFSTR FIXALG+7, CHANGED+4
^XMD MAIL+23, MAIL+39
BMES^XPDUTL Q+3, Q+4
SCREEN^XTID UPDATE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Conversion table not loaded - INSTALLATION ABORTED"
  • Line Location: POST+3
Routine Call
  • DIE
  • Line Location:
    • UPDATEE+5
    • UPDATEE+8
    • UPDATE+15
    • UPDATE+21
Routine Call
  • DIC
  • Line Location:
    • UPDATE+5
    • UPDATE+6
    • UPDATE+7
    • UPDATE+8
Routine Call
  • DIE
  • Line Location:
    • UPDATEF+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
^GMR(120.85 - [#120.85] Classic Fileman Calls
^GMR(120.86 - [#120.86] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] FIXB+2!, FIXALG+2, FIXALG+3, FIXALG+4, FIXALG+5, UPDATEE+2, UPDATEE+3, UPDATE+2, CHANGED+3, CHANGED+4
, CHANGED+5
^GMR(120.85 - [#120.85] UPDATE+16, UPDATE+18, UPDATE+19
^GMRD(120.82 - [#120.82] UPDATEF+2, UPDATE+12
^XTMP("GMRAFIX40" PRETRAN+1, POST+1!, POST+2*, POST+3, DQ+5*, FIXALG+8, FIXALG+13, FIXALG+14, FIXALG+15
^XTMP("GMRAFX" DQ+6!

Label References

Name Line Occurrences
$$CHANGED FIXALG+11
DEL FIXALG+3
FIXALG DQ+3
FIXB DQ+2
MAIL DQ+4
Q POST+4
UPDATE FIXALG+10, FIXALG+15
UPDATEF FIXALG+14, UPDATE+9, UPDATE+13

Naked Globals

Name Field # of Occurrence
^(0 UPDATEE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIFN UPDATE+1~, UPDATE+17*, UPDATE+18*, UPDATE+19, UPDATE+20
CHANGED CHANGED+1~, CHANGED+2*, CHANGED+3, CHANGED+5*, CHANGED+6
CNT MAIL+1~, MAIL+7*, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+16*, MAIL+17*
, MAIL+19, MAIL+20*, MAIL+21*, MAIL+26*, MAIL+27*, MAIL+28*, MAIL+31*, MAIL+33*, MAIL+34*, MAIL+35*
COM UPDATEF+1~, UPDATEF+9*, UPDATEF+10, UPDATE+1~, UPDATE+24*, UPDATE+25
DA DEL+1~, DEL+3*, UPDATEE+1~, UPDATEE+4*, UPDATEE+8*, UPDATE+1~, UPDATE+15*, UPDATE+20*
DA(1 UPDATE+20*
DFN UPDATEE+1~, UPDATEE+2*, UPDATEE+7, UPDATEE+8, UPDATE+1~, UPDATE+2*, UPDATE+9, UPDATE+13, MAIL+1~, MAIL+29*
, MAIL+32, MAIL+33
DIE UPDATEE+1~, UPDATEE+4*, UPDATEE+8*, UPDATE+1~, UPDATE+15*, UPDATE+21*
DIFROM MAIL+1~
DIK FIXB+1~, FIXB+3*, DEL+1~, DEL+3*
DIK(1 FIXB+4*
DR UPDATEE+1~, UPDATEE+4*, UPDATEE+8*, UPDATE+1~, UPDATE+15*, UPDATE+21*
DT DQ+5
DUZ UPDATEE+4, UPDATEE+8, MAIL+6, MAIL+37
ENTRY FIXALG+1~, FIXALG+8*, FIXALG+9, FIXALG+13*, FIXALG+14, UPDATEE+8, UPDATE+4, UPDATE+9, UPDATE+13
ERR DQ+1~, MAIL+11
ERR( MAIL+25, MAIL+29, MAIL+32, MAIL+33
ERR(2 UPDATE+9*, MAIL+5
ERR(3 UPDATE+13*, MAIL+5
ERRCODE UPDATE+1~
EXTRA MAIL+1~, MAIL+5*, MAIL+6, MAIL+36
FDA UPDATEF+1~
FDA( UPDATEF+5*, UPDATEF+6*
FILE UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+12
FREE FIXALG+1~, UPDATEF+1~, UPDATEF+2*, UPDATEF+6
GMRAAR UPDATE+1~, UPDATE+10*, UPDATE+24
GMRAAR("O" UPDATE+12*, UPDATE+15, UPDATE+23
GMRAAR(0 UPDATE+11*, UPDATE+15, UPDATE+24
GMRADONT DEL+1~, DEL+2*
GMRAI FIXALG+1~, FIXALG+2*, FIXALG+3, FIXALG+4, FIXALG+5, DEL+3, UPDATEF+5, UPDATEF+6, UPDATEF+10, UPDATEE+2
, UPDATEE+3, UPDATEE+4, UPDATEE+6, UPDATE+2, UPDATE+3, CHANGED+3, CHANGED+4, CHANGED+5
GMRAPA UPDATE+1~, UPDATE+3*, UPDATE+15, UPDATE+16, UPDATE+18, UPDATE+25
GMRAR FIXALG+1~, FIXALG+7*, FIXALG+8, FIXALG+11*, FIXALG+12*, FIXALG+13, FIXALG+14, FIXALG+15, CHANGED~, CHANGED+4*
, CHANGED+5
GMRASCR UPDATE+1~, UPDATE+8*
GMRATXT MAIL+1~
GMRATXT( MAIL+8*, MAIL+9*, MAIL+10*, MAIL+12*, MAIL+13*, MAIL+14*, MAIL+16*, MAIL+17*, MAIL+19*, MAIL+20*
, MAIL+21*, MAIL+26*, MAIL+27*, MAIL+28*, MAIL+31*, MAIL+33*, MAIL+34*, MAIL+35*
IEN UPDATE+1~, UPDATE+5*, UPDATE+6*, UPDATE+7*, UPDATE+8*, UPDATE+9, UPDATE+10, UPDATE+12
LIST UPDATE+23!
LOOP MAIL+1~, MAIL+18*, MAIL+19, MAIL+20, MAIL+24*, MAIL+25, MAIL+27, MAIL+29, MAIL+32, MAIL+33
NAME UPDATE+1~, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+11
REACTANT FIXALG+1~, FIXALG+5*, FIXALG+6, FIXALG+7, FIXALG+11, FIXALG+14*, UPDATEF+3, UPDATEF+4*, UPDATEF+5, UPDATEF+9
, UPDATE+9, UPDATE+13, UPDATE+19, MAIL+1~, MAIL+32*, MAIL+33
SIEN UPDATE+1~, UPDATE+19*, UPDATE+20
SUB CHANGED+1~, CHANGED+3*, CHANGED+4, CHANGED+5
TE DQ+1~, UPDATEE+10*, MAIL+15
TF DQ+1~, UPDATEF+8*, MAIL+15
TIME UPDATEE+1~, UPDATEE+3*, UPDATEE+8
TU DQ+1~, UPDATE+26*, MAIL+15
U FIXALG+4, FIXALG+5, UPDATEE+2, UPDATEE+3, UPDATEE+8, UPDATE+2, UPDATE+4, UPDATE+12, MAIL+33
USER UPDATEE+1~, UPDATEE+3*, UPDATEE+8
VADM MAIL+1~, MAIL+30!
VADM(1 MAIL+31
VADM(2 MAIL+31
XMDUZ MAIL+1~, MAIL+2*
XMSUB MAIL+1~, MAIL+22*, MAIL+38*
XMTEXT MAIL+1~, MAIL+22*, MAIL+38*
XMY MAIL+1~, MAIL+37!
XMY( MAIL+6*, MAIL+37*
XMY("CATHERINE.HOANG2@VA.GOV" MAIL+3*
XMY("DAVID.NABER@VA.GOV" MAIL+3*
XMY("HULET.LEE_ANN@FORUM.VA.GOV" MAIL+4*
XMY("KEN.BARLOW@VA.GOV" MAIL+4*
XMZ MAIL+1~
>> XPDGREF PRETRAN+1, POST+2
>> XPDQUIT POST+3*
ZTDESC Q+1~, Q+2*
ZTDTH Q+1~, Q+2*
ZTIO Q+1~, Q+2*
ZTRTN Q+1~, Q+2*
ZTSK Q+1~, Q+3, Q+4

Marked Items

Name Field # of Occurrence
$T(SCREEN^XTID UPDATE+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All