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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AMH40ENV

Package: Mental Health Social Services

Routine: AMH40ENV


Information

AMH40ENV ; IHS/CMI/LAB - POST INIT BH 16 Apr 2009 7:37 AM 01 Aug 2009 5:37 AM ; 13 Apr 2010 3:54 PM

Source Information

Source file <AMH40ENV.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 (,IX)^DIC  FILE^DICN  DT^DICRW  (,UPDATE)^DIE  (,ENALL)^DIK  
Kernel 3 HOME^%ZIS  $$CJ^XLFSTR  ($$VERSION,MES)^XPDUTL  
DRG Grouper 1 $$ICDD^ICDCODE  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
INSTALLD(AMHSTAL) ;EP - Determine if patch AMHSTAL was installed, where
; APCLSTAL is the name of the INSTALL. E.g "AG*6.0*11".
BPCKEY ;remove all BPCKEYS
TIU ;MOVE TIU DOCUMENTS FROM 1108 TO MULTIPLE
ICDUPD ;
MM3 ;BULLETIN;
NEWE
DELKEY ;
NEW ;add new codes
PRE ;
DELVKEY ;
C316 ;
PA ;
WRITEMS3 ;
INACT ;
ICDNEW ;;
IMES ;
GETREC3 ;
ICD ;
SUBJECT3
ENV ;EP
POST ;EP
SENDER3
REMAP ;
KEYSAVE ;
DEPSCR ;
SORRY(X) ;
KEY ;delete keys and remove them from any options
NEW1 ;

External References

Name Field # of Occurrence
HOME^%ZIS MM3+2
^DIC INSTALLD+9, INSTALLD+12
IX^DIC INSTALLD+6
FILE^DICN POST+10, NEW+4, NEW1+9
DT^DICRW MM3+2
^DIE PRE+2, KEYSAVE+7, C316+2, C316+4, KEY+5, DEPSCR+3, DEPSCR+4, ICDUPD+5, ICDUPD+6, INACT+4
, INACT+7, NEWE+5, REMAP+3
UPDATE^DIE TIU+8
^DIK PRE+3, PRE+4, PRE+5, BPCKEY+3, DELKEY+2
ENALL^DIK POST+18, POST+20, POST+22, POST+24, POST+26, POST+28, POST+30
$$ICDD^ICDCODE NEWE+3
$$CJ^XLFSTR ENV+2, ENV+3, ENV+4, ENV+5, ENV+7, ENV+8, ENV+9, ENV+10, ENV+11, ENV+12
, IMES+1, SORRY+4
^XMD SENDER3+3
$$VERSION^XPDUTL ENV+2, ENV+4, ENV+7, ENV+9, ENV+11
MES^XPDUTL ENV+2, ENV+3, ENV+4, ENV+5, ENV+7, ENV+8, ENV+9, ENV+10, ENV+11, ENV+12
, POST+2, POST+6, POST+11, TIU+9, IMES+1, ICDUPD+1, INACT+5, NEW+5, NEW1+5, NEW1+10
, NEWE+6, REMAP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR ZERO.",!
  • Line Location: MM3+1
Function Call: WRITE
  • Prompt: !,"Sending Mailman message to holders of the"_" "_AMHKEY_" "_"security key."
  • Line Location: SENDER3+2
Routine Call
  • %ZIS
  • Line Location:
    • MM3+2
Routine Call
  • DIE
  • Line Location:
    • PRE+2
    • KEYSAVE+7
    • C316+2
    • C316+4
    • KEY+5
    • DEPSCR+3
    • DEPSCR+4
    • ICDUPD+5
    • ICDUPD+6
    • INACT+4
    • INACT+7
    • NEWE+5
    • REMAP+3
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+6
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
Routine Call
  • DIE
  • Line Location:
    • TIU+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^DIC(19.1 - [#19.1] Classic Fileman Calls
^DIC(9.4 - [#9.4] Classic Fileman Calls
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRINTK - [#9002011.13] Classic Fileman Calls
^AMHPTXP - [#9002011.56] Classic Fileman Calls
^AMHPSUIC - [#9002011.65] Classic Fileman Calls
^AMHGROUP - [#9002011.67] Classic Fileman Calls
^AMHTACT - [#9002012] Classic Fileman Calls
^AMHPROB - [#9002012.2] Classic Fileman Calls
^AMHPROBC - [#9002012.4] Classic Fileman Calls
^AMHSORT - [#9002013.3] Classic Fileman Calls
^AMHRECD - [#9002014.1] Classic Fileman Calls
^AMHBHPC - [#9002014.59] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHBHPC - [#9002014.59] PRE+5
^AMHPATCH - [#9002013.2] WRITEMS3+3
^AMHPATCH("AA" WRITEMS3+1
^AMHPINTK - [#9002011.07] POST+3, POST+4, POST+5, POST+7, POST+13, POST+15*
^AMHPROB("B" C316+1, ICDUPD+5, ICDUPD+6, INACT+2, NEW1+6, REMAP+1
^AMHPROBC("B" INACT+6, NEW+2, NEW1+4
^AMHPTXP("AA" POST+17!
^AMHREC - [#9002011] DEPSCR+1, DEPSCR+2, DEPSCR+3, DEPSCR+4, TIU+2, TIU+3, TIU+5
^AMHRECD - [#9002014.1] PRE+4
^AMHRINTK - [#9002011.13] POST+13*
^AMHSITE - [#9002013] POST+32, POST+33, POST+34*
^AMHSORT - [#9002013.3] PRE+3
^AMHTPA - [#9002014.8] PA+5*
^AMHTPA("B" PA+1, PA+3!, PA+4*
^DIC(19 - [#19] C316+3, KEY+2, KEY+3, KEY+4
^DIC(19.1 - [#19.1] KEYSAVE+2, BPCKEY+1, BPCKEY+2, DELKEY+1
^DIC(4 - [#4] POST+34
^DIC(9.4 - [#9.4] PRE+1
^TMP($J MM3+5!, SENDER3+4!, WRITEMS3+3*, WRITEMS3+4*, WRITEMS3+5*
^XUSEC( GETREC3+4
^XUSEC("AMHZ DELETE RECORD" KEYSAVE+8*
^XUSEC("AMHZ DELETE VISIT" KEYSAVE+6

Label References

Name Line Occurrences
$$INSTALLD ENV+6
DELKEY KEY+1
GETREC3 MM3+6
ICDUPD ICD+1
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
INACT ICDUPD+2
MM3 POST+35
NEW ICDUPD+3
NEW1 NEW+3
REMAP ICDUPD+4
SORRY ENV+2, ENV+4, ENV+6, ENV+7, ENV+9, ENV+11
WRITEMS3 MM3+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHAIEN TIU+1~
AMHASK KEYSAVE+1!
>> AMHC WRITEMS3+3*, WRITEMS3+4*, WRITEMS3+5*
>> AMHCODE NEW1+3*, NEW1+10, NEWE+3, NEWE+4, NEWE+6
>> AMHDA POST+12*, POST+13
AMHDOC TIU+1~, TIU+3*, TIU+4, TIU+5, TIU+7
AMHERRR TIU+1~, TIU+9
AMHFDA TIU+1~
AMHFDA( TIU+7*
AMHHASK KEYSAVE+5!
AMHHASK( KEYSAVE+6*, KEYSAVE+8
>> AMHIEN WRITEMS3+1*, WRITEMS3+2, WRITEMS3+3
AMHIENS TIU+1~, TIU+6*, TIU+7
AMHINA NEWE+2!, NEWE+3*
AMHINA(1 NEWE+4
AMHKEY KEY+1*, KEY+4, DELKEY+1, SENDER3+2, SENDER3+4!, GETREC3+3*, GETREC3+4
>> AMHNMM POST+32*, POST+34*, POST+35, WRITEMS3+5
>> AMHPC NEW1+4*, NEW1+5, NEWE+4
AMHSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHTEXT NEW1+2*
>> AMHTX NEW1+2*, NEW1+3, NEW1+5
AMHX POST+3*, POST+4, POST+5, POST+6, POST+7, POST+11, POST+13, POST+15, POST+32*, POST+33
, POST+34, KEY+2*, KEY+3, KEY+4, KEY+5, BPCKEY+1*, BPCKEY+2, DEPSCR+1*, DEPSCR+2, DEPSCR+3
, DEPSCR+4, TIU+1~, TIU+2*, TIU+3, TIU+5, TIU+6, TIU+9, WRITEMS3+3*, ICDUPD+5*, ICDUPD+6*
, INACT+1*, INACT+2, INACT+5, NEW1+2*, REMAP+1*, REMAP+2
AMHY POST+7*, POST+8, BPCKEY+2*, BPCKEY+3, INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> C NEW1+3*, NEW1+4
>> CTR GETREC3+3*, GETREC3+4*
>> D INSTALLD+5*
D0 NEW+4!, NEW1+9!
DA PRE+1*, PRE+2, PRE+3*, PRE+4*, PRE+5*, PRE+6!, KEYSAVE+2*, KEYSAVE+3, KEYSAVE+7!, C316+1*
, C316+2!, C316+3*, C316+4!, PA+1*, PA+2, PA+3, PA+4, PA+5, KEY+5*!, BPCKEY+3*
, DEPSCR+3*!, DEPSCR+4*!, DELKEY+1*, DELKEY+2, DELKEY+3!, ICDUPD+5*!, ICDUPD+6*!, INACT+2*, INACT+3, INACT+4!
, INACT+6*, INACT+7!, NEW+1!, NEW+2*, NEW+3, NEW+6!, NEW1+6*, NEW1+11*, NEWE+5!, REMAP+1*
, REMAP+2, REMAP+3!
DD NEW+4!, NEW1+9!
DIADD POST+9*, POST+10!, NEW+1!, NEW+4*, NEW+6!, NEW1+7*, NEW1+9!
DIC POST+9*, POST+10!, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*, NEW+1!, NEW+4*, NEW+6!, NEW1+7*
, NEW1+9!
DIC("DR" POST+8*, NEW+4*
DIC(0 POST+9*, INSTALLD+5*, NEW+4*, NEW1+8*
DIE PRE+2*, KEYSAVE+7*!, C316+2*!, C316+4*!, KEY+5*!, DEPSCR+3*!, DEPSCR+4*!, ICDUPD+5*!, ICDUPD+6*!, INACT+4*!
, INACT+7*!, NEW+1!, NEW+6!, NEWE+1*, NEWE+5!, REMAP+1*, REMAP+3!
DIFQ SORRY+1!
DIFROM MM3+4~
DIK PRE+3*, PRE+4*, PRE+5*, PRE+6!, POST+18*, POST+19!, POST+20*, POST+21!, POST+22*, POST+23!
, POST+24*, POST+25!, POST+26*, POST+27!, POST+28*, POST+29!, POST+30*, POST+31!, BPCKEY+3*, DELKEY+2*
, DELKEY+3!
DIK(1 POST+18*, POST+20*, POST+22*, POST+24*, POST+26*, POST+28*, POST+30*
DITC KEYSAVE+7*!
DLAYGO POST+9*, POST+10!, NEW+1!, NEW+4*, NEW+6!, NEW1+7*, NEW1+9!
DO NEW+4!, NEW1+9!
DR PRE+2*, KEYSAVE+7*!, C316+2*!, C316+4*!, KEY+5*!, DEPSCR+3*!, DEPSCR+4*!, ICDUPD+5*!, ICDUPD+6*!, INACT+4*!
, INACT+7*!, NEW+1!, NEW+6!, NEWE+4*, NEWE+5!, REMAP+1*, REMAP+3!
DUZ MM3+1, SENDER3+1
IOM IMES+1, SORRY+4
IOST SENDER3+2
U PA+5, POST+4, POST+5, POST+8, POST+15, POST+33, POST+34, KEY+3, KEY+4, DEPSCR+3
, DEPSCR+4, TIU+3
X ENV+1*, KEYSAVE+6*, KEYSAVE+8*, POST+5*, POST+6, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, SORRY~
, SORRY+2, SORRY+3, NEW+4*, NEW1+3*, NEW1+6
XMDUZ MM3+4~, SENDER3*
XMSUB MM3+4~, SUBJECT3*
XMTEXT MM3+4~, SENDER3+1*
XMY MM3+4~
XMY( SENDER3+1*, GETREC3+4*
XMY(1 SENDER3+1*
>> XPDDIQ( ENV+1*
>> XPDQUIT SORRY+2*, SORRY+3*
Y POST+11, POST+12, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, GETREC3+4*
, INACT+5, NEW+5, NEW1+10, NEW1+11, NEWE+6

Marked Items

Name Field # of Occurrence
$T(@AMHTEXT+AMHX NEW1+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All