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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRA1008

Package: Adverse Reaction Tracking

Routine: GMRA1008


Information

GMRA1008 ;IHS/MSC/PLS - Patch support;19-Sep-2014 10:02;DU

Source Information

Source file <GMRA1008.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 MSG^DIALOG  (FILE,UPDATE)^DIE  (DATAIN,DATAOUT)^DIFROMS  FIA^DIFROMSU  
Kernel 2 $$NOW^XLFDT  (BMES,MES)^XPDUTL  
Order Entry Results Reporting 1 $$CHECK^ORWDAL32  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP -
PRELOOP(FILE,FNAM,SCRN) ;EP-
INAC(IEN) ;Inactivate this entry
DRUG(IEN) ;EP-
INC(VAL) ;EP-
EXISTS(NAM) ;EP -
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
ALGIEN(NAM) ;EP-
PRETRAN ;EP -
STOREALG(DATAIEN) ;
ENV ;EP -
SIGNS ;EP-
POST ;EP -
DIERR(XPDI)
DATA ; Import Data
INACT ;EP Remove duplicate caterpillar entries
SUBDATA(DIEN) ;EP-

External References

Name Field # of Occurrence
MSG^DIALOG DIERR+1
FILE^DIE STOREALG+13
UPDATE^DIE PRE+11, INAC+6, STOREALG+22, SUBDATA+22
DATAIN^DIFROMS SIGNS+3
DATAOUT^DIFROMS PRELOOP+2
FIA^DIFROMSU PRELOOP+1
$$CHECK^ORWDAL32 INACT+4
$$NOW^XLFDT INAC+4
BMES^XPDUTL DIERR+2
MES^XPDUTL DIERR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: ENV+7
Function Call: WRITE
  • Prompt: !,IENS
  • Line Location: INAC+7
Function Call: WRITE
  • Prompt: ERR("DIERR",1,"TEXT",1)
  • Line Location: INAC+7
Function Call: WRITE
  • Prompt: ERR("DIERR",1,"TEXT",1)
  • Line Location: INAC+7
Function Call: WRITE
  • Prompt: !,IENS
  • Line Location: STOREALG+23
Function Call: WRITE
  • Prompt: ERR
  • Line Location: STOREALG+23
Function Call: WRITE
  • Prompt: ERR
  • Line Location: STOREALG+23
Function Call: WRITE
  • Prompt: !,IENS
  • Line Location: SUBDATA+23
Function Call: WRITE
  • Prompt: ERR("DIERR",1,"TEXT",1)
  • Line Location: SUBDATA+23
Function Call: WRITE
  • Prompt: ERR("DIERR",1,"TEXT",1)
  • Line Location: SUBDATA+23
Routine Call
  • DIE
  • Line Location:
    • PRE+11
    • INAC+6
    • STOREALG+22
    • SUBDATA+22
Routine Call
  • DIE
  • Line Location:
    • STOREALG+13
Routine Call
  • DIALOG
  • Line Location:
    • DIERR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] PATCH+4, PATCH+5, PATCH+7, PATCH+8
^GMR(120.8 - [#120.8] PRE+4, PRE+5
^GMRD(120.82 - [#120.82] INACT+3, DATA+3, DATA+4, DATA+5, SUBDATA+5!, SUBDATA+9!, SUBDATA+13!, SUBDATA+17!, DRUG+1

Label References

Name Line Occurrences
$$ALGIEN STOREALG+4
$$INC SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20
$$PATCH ENV+6
DATA POST+1
DIERR SIGNS+3
INAC INACT+5
INACT POST+2
PRELOOP PRETRAN+1
SIGNS POST+1
STOREALG DATA+10
SUBDATA STOREALG+15, STOREALG+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIEN PRE+3~, PRE+9*, PRE+10, INAC+3*, INAC+4, INAC+5
ARY STOREALG+1~, STOREALG+3*
ARY("CLASS" SUBDATA+10, SUBDATA+11
ARY("ING" SUBDATA+14, SUBDATA+15
ARY("TERMSTATUS" SUBDATA+18, SUBDATA+19, SUBDATA+20
ARY("VUID" STOREALG+11, STOREALG+12, STOREALG+20, STOREALG+21
ARY(0 STOREALG+9, STOREALG+10, STOREALG+17, STOREALG+18, STOREALG+19
ARY(3 SUBDATA+6, SUBDATA+7
CNT STOREALG+1~, STOREALG+7*, INC+2*, INC+3
DATAIEN STOREALG~, STOREALG+2, STOREALG+3
DIEN SUBDATA~, SUBDATA+2, SUBDATA+5, SUBDATA+9, SUBDATA+13, SUBDATA+17
>> DIERR SIGNS+3
ERR INAC+1!, INAC+7, STOREALG+1~, STOREALG+14, STOREALG+23, SUBDATA+21!, SUBDATA+23
ERR("DIERR" INAC+7, SUBDATA+23
F SIGNS+1~, SIGNS+2*, SIGNS+3, DATA+1~, DATA+6*, DATA+7, DATA+8, DATA+9, STOREALG+9, STOREALG+10
, STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19, STOREALG+20, STOREALG+21
FDA PRE+3~, INAC+1!, STOREALG+1~
FDA( PRE+10*, INAC+4*, INAC+5*, STOREALG+9*, STOREALG+10*, STOREALG+11*, STOREALG+12*, STOREALG+17*, STOREALG+18*, STOREALG+19*
, STOREALG+20*, STOREALG+21*, SUBDATA+7*, SUBDATA+11*, SUBDATA+15*, SUBDATA+19*, SUBDATA+20*
FDAIEN STOREALG+1~
FILE PRELOOP~, PRELOOP+1
FNAM PRELOOP~, PRELOOP+1
FNUM INAC+1!, INAC+2*
I PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN PRE+3~, PRE+4*, PRE+5, PRE+9, INACT+1~, INACT+3*, INACT+4, INACT+5, INAC~, INAC+3
, STOREALG+1~, STOREALG+4*, STOREALG+5*, STOREALG+6, STOREALG+15, DRUG~, DRUG+1
IENS INAC+7, STOREALG+1~, STOREALG+6*, STOREALG+9, STOREALG+10, STOREALG+11, STOREALG+12, STOREALG+17, STOREALG+18, STOREALG+19
, STOREALG+20, STOREALG+21, STOREALG+23, SUBDATA+1~, SUBDATA+2*, SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20
, SUBDATA+23
IENS(1 STOREALG+24
J PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
LNAARY DATA+1~
LNAARY( DATA+5*, EXISTS+1, ALGIEN+1
LP SIGNS+1~, DATA+1~, DATA+3*, DATA+4, DATA+5, DATA+7*, DATA+8, DATA+9, DATA+10
LP2 STOREALG+1~, SUBDATA+6*, SUBDATA+7, SUBDATA+10*, SUBDATA+11, SUBDATA+14*, SUBDATA+15, SUBDATA+18*, SUBDATA+19, SUBDATA+20
NAM SIGNS+1~, DATA+1~, DATA+9*, STOREALG+4, EXISTS~, EXISTS+1, ALGIEN~, ALGIEN+1
NIEN INAC+1!
NUM PATCH+3~, PATCH+8*, PATCH+9
PATCH ENV+1~, ENV+5*, ENV+6, ENV+7
SAVE INACT+1~, INACT+2*
SCRN PRELOOP~, PRELOOP+1
U PRE+5, DATA+4, DATA+5, DATA+8, DATA+9, STOREALG+9, STOREALG+10, STOREALG+11, STOREALG+12, STOREALG+17
, STOREALG+18, STOREALG+19, STOREALG+20, STOREALG+21, SUBDATA+7, SUBDATA+11, SUBDATA+15, SUBDATA+19, SUBDATA+20, DRUG+1
VAL INC~, INC+1*, INC+2
X PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, PRE+3~, PRE+5*, PRE+6
, PRE+7, INACT+1~, INACT+4*, INACT+5, STOREALG+6*, STOREALG+8
X1 PRE+3~, PRE+7*, PRE+8
X2 PRE+3~, PRE+8*, PRE+10
XPD DIERR~, DIERR+1, DIERR+2
>> XPDDIQ("XPZ1" ENV+2*
>> XPDDIQ("XPZ2" ENV+2*
>> XPDGREF SIGNS+3, DATA+7, DATA+8, DATA+9, STOREALG+3, PRELOOP+1, PRELOOP+2
XPDI DIERR~, DIERR+2
>> XPDQUIT ENV+7*
XUMF DATA+1~, DATA+6*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All