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: AMH40P2

Package: Mental Health Social Services

Routine: AMH40P2


Information

AMH40P2 ; 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 <AMH40P2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 (,IX)^DIC  FILE^DICN  DT^DICRW  ^DIE  ^DIK  
Kernel 3 HOME^%ZIS  $$CJ^XLFSTR  ($$VERSION,MES)^XPDUTL  
M Transfer 1 GUIEP^BMXPO  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;
NEWICD ;add new codes
IMES ;
NEWE
INSTALLD(AMHSTAL) ;EP - Determine if patch AMHSTAL was installed, where
; APCLSTAL is the name of the INSTALL. E.g "AG*6.0*11".
ICDUP ;
EDIT ;
MM3 ;BULLETIN;
SENDER3
ICDNEW ;;
EDITDSM ;
SORRY(X) ;
GETREC3 ;
ENV ;EP
NEW ;add new codes
WRITEMS3 ;
POST ;EP
BMXPO ;-- update the RPC file
SUBJECT3
CLEAN(APP) ;-- clean out the RPC multiple first

External References

Name Field # of Occurrence
HOME^%ZIS MM3+2
GUIEP^BMXPO BMXPO+5
^DIC INSTALLD+9, INSTALLD+12
IX^DIC INSTALLD+6
FILE^DICN EDITDSM+58, NEW+11, NEW+18, NEWICD+15
DT^DICRW MM3+2
^DIE ICDUP+3, ICDUP+5, ICDUP+9, ICDUP+13, ICDUP+17, ICDUP+21, ICDUP+25, EDITDSM+2, EDITDSM+5, EDITDSM+8
, EDITDSM+11, EDITDSM+14, EDITDSM+17, EDITDSM+20, EDITDSM+23, EDITDSM+26, EDITDSM+29, EDITDSM+32, EDITDSM+35, EDITDSM+38
, EDITDSM+41, EDIT+3, NEW+23, NEWE+3
^DIK PRE+1, PRE+2, CLEAN+6
$$CJ^XLFSTR ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, IMES+1, SORRY+4
^XMD SENDER3+3
$$VERSION^XPDUTL ENV+2, ENV+4, ENV+6
MES^XPDUTL ENV+2, ENV+3, ENV+4, ENV+5, ENV+6, ENV+7, EDITDSM+59, EDIT+4, IMES+1, NEW+12
, NEW+19, NEWICD+6, NEWICD+16, NEWE+4

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
Function Call: WRITE
  • Prompt: BEHAV
  • Line Location: ICDNEW+3
Routine Call
  • %ZIS
  • Line Location:
    • MM3+2
Routine Call
  • DIE
  • Line Location:
    • ICDUP+3
    • ICDUP+5
    • ICDUP+9
    • ICDUP+13
    • ICDUP+17
    • ICDUP+21
    • ICDUP+25
    • EDITDSM+2
    • EDITDSM+5
    • EDITDSM+8
    • EDITDSM+11
    • EDITDSM+14
    • EDITDSM+17
    • EDITDSM+20
    • EDITDSM+23
    • EDITDSM+26
    • EDITDSM+29
    • EDITDSM+32
    • EDITDSM+35
    • EDITDSM+38
    • EDITDSM+41
    • EDIT+3
    • NEW+23
    • NEWE+3
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
^AMHPROB - [#9002012.2] Classic Fileman Calls
^AMHTPCAD - [#9002012.3] Classic Fileman Calls
^AMHSORT - [#9002013.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPATCH - [#9002013.2] WRITEMS3+3
^AMHPATCH("AA" WRITEMS3+1
^AMHPROB - [#9002012.2] ICDUP+7, ICDUP+8, ICDUP+11, ICDUP+12, ICDUP+15, ICDUP+16, ICDUP+19, ICDUP+20, ICDUP+23, ICDUP+24
, EDITDSM+4, EDITDSM+7, EDITDSM+10, EDITDSM+13, EDITDSM+16, EDITDSM+19, EDITDSM+22, EDITDSM+25, EDITDSM+28, EDITDSM+31
, EDITDSM+34, EDITDSM+37, EDITDSM+40, EDITDSM+54, NEW+5, NEW+6, NEW+22, NEWICD+10
^AMHPROB("B" ICDUP+2, ICDUP+4, ICDUP+6, ICDUP+10, ICDUP+14, ICDUP+18, ICDUP+22, EDITDSM+1, EDITDSM+3, EDITDSM+6
, EDITDSM+9, EDITDSM+12, EDITDSM+15, EDITDSM+18, EDITDSM+21, EDITDSM+24, EDITDSM+27, EDITDSM+30, EDITDSM+33, EDITDSM+36
, EDITDSM+39, EDITDSM+53, NEW+4, NEW+21, NEWICD+8
^AMHPROBC("B" EDITDSM+47, NEWICD+5
^AMHSORT - [#9002013.3] PRE+1
^AMHTPCAD - [#9002012.3] PRE+2, EDITDSM+43, EDITDSM+44
^DIC(19 - [#19] BMXPO+2, CLEAN+4, CLEAN+7!
^TMP($J MM3+5!, SENDER3+4!, WRITEMS3+3*, WRITEMS3+4*, WRITEMS3+5*, WRITEMS3+6*, WRITEMS3+7*, WRITEMS3+8*, WRITEMS3+9*
^XUSEC( GETREC3+4

Label References

Name Line Occurrences
$$INSTALLD ENV+8
BMXPO POST+5
CLEAN BMXPO+4
EDIT EDITDSM+55, EDITDSM+62
EDITDSM POST+3
GETREC3 MM3+6
ICDUP POST+4
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
NEW POST+2
NEWICD ICDUP+28
SORRY ENV+2, ENV+4, ENV+6, ENV+8
WRITEMS3 MM3+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMH0 EDITDSM+44*, EDITDSM+45, EDITDSM+46, EDITDSM+47, EDITDSM+48, EDITDSM+49, EDITDSM+50, EDITDSM+51
>> AMH1I NEW+3*, NEW+6*, NEW+14
>> AMH1II NEW+3*, NEW+5*, NEW+7
>> AMH1X NEW+4*, NEW+5, NEW+6, NEW+21*, NEW+22, NEW+23
>> AMHAXIS EDITDSM+49*
>> AMHC WRITEMS3+3*, WRITEMS3+4*, WRITEMS3+5*, WRITEMS3+6*, WRITEMS3+7*, WRITEMS3+8*, WRITEMS3+9*
>> AMHCODE EDITDSM+45*, EDITDSM+53, EDITDSM+58, EDITDSM+59, EDIT+4, NEW+12, NEW+19, NEWICD+4*, NEWICD+8, NEWICD+16
, NEWE+2, NEWE+4
AMHDA CLEAN+3~, CLEAN+4*, CLEAN+5
>> AMHDSM EDITDSM+53*, EDITDSM+54*, EDITDSM+55, EDITDSM+61*, EDIT+1
>> AMHEHR EDITDSM+51*, EDIT+2
>> AMHICD EDITDSM+48*, EDIT+2
>> AMHIEN WRITEMS3+1*, WRITEMS3+2, WRITEMS3+3
>> AMHINA EDITDSM+50*, NEWICD+7*, NEWICD+10, NEWE+2
AMHKEY SENDER3+2, SENDER3+4!, GETREC3+3*, GETREC3+4
>> AMHNARR EDITDSM+46*, EDITDSM+54, EDITDSM+59, EDIT+2, EDIT+4
>> AMHNMM WRITEMS3+9
>> AMHPC NEWICD+5*, NEWICD+6, NEWE+2
>> AMHPCODE EDITDSM+47*, EDIT+2
AMHRPC BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5
AMHSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> AMHTEXT NEWICD+3*
>> AMHTX NEWICD+3*, NEWICD+4, NEWICD+6, NEWICD+7
>> AMHX ICDUP+6*, ICDUP+7, ICDUP+8, ICDUP+9, ICDUP+10*, ICDUP+11, ICDUP+12, ICDUP+13, ICDUP+14*, ICDUP+15
, ICDUP+16, ICDUP+17, ICDUP+18*, ICDUP+19, ICDUP+20, ICDUP+21, ICDUP+22*, ICDUP+23, ICDUP+24, ICDUP+25
, EDITDSM+43*, EDITDSM+44, WRITEMS3+3*, NEWICD+8*, NEWICD+10
AMHY INSTALLD+3~, INSTALLD+13*, INSTALLD+15, NEWICD+3*
APP CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7
>> C NEWICD+4*, NEWICD+5
>> CTR GETREC3+3*, GETREC3+4*
>> D INSTALLD+5*
D0 EDITDSM+57!, NEW+11!, NEW+18!, NEWICD+15!
DA PRE+1*, PRE+2*, PRE+3!, ICDUP+2*, ICDUP+3!, ICDUP+4*, ICDUP+5!, ICDUP+9*!, ICDUP+13*!, ICDUP+17*!
, ICDUP+21*!, ICDUP+25*!, EDITDSM+1*, EDITDSM+2!, EDITDSM+3*, EDITDSM+5*, EDITDSM+6*, EDITDSM+8*, EDITDSM+9*, EDITDSM+11*
, EDITDSM+12*, EDITDSM+14*, EDITDSM+15*, EDITDSM+17*, EDITDSM+18*, EDITDSM+20*, EDITDSM+21*, EDITDSM+23*, EDITDSM+24*, EDITDSM+26*
, EDITDSM+27*, EDITDSM+29*, EDITDSM+30*, EDITDSM+32*, EDITDSM+33*, EDITDSM+35*, EDITDSM+36*, EDITDSM+38*, EDITDSM+39*, EDITDSM+41*
, EDITDSM+42!, EDIT+1*, EDIT+5!, CLEAN+5*, NEW+23*!, NEWICD+17*, NEWE+3!
DA(1 CLEAN+1*, CLEAN+2
DD NEW+11!, NEW+18!, NEWICD+15!
DIADD EDITDSM+58*, EDITDSM+60!, NEW+9*, NEW+11!, NEW+16*, NEW+18!, NEWICD+13*, NEWICD+15!
DIC EDITDSM+58*, EDITDSM+60!, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*, NEW+9*, NEW+11!, NEW+16*, NEW+18!
, NEWICD+13*, NEWICD+15!
DIC("DR" NEW+8*, NEW+15*
DIC(0 EDITDSM+58*, INSTALLD+5*, NEW+10*, NEW+17*, NEWICD+14*
DIE ICDUP+3*!, ICDUP+5*!, ICDUP+9*!, ICDUP+13*!, ICDUP+17*!, ICDUP+21*!, ICDUP+25*!, EDITDSM+2*!, EDITDSM+5*, EDITDSM+8*
, EDITDSM+11*, EDITDSM+14*, EDITDSM+17*, EDITDSM+20*, EDITDSM+23*, EDITDSM+26*, EDITDSM+29*, EDITDSM+32*, EDITDSM+35*, EDITDSM+38*
, EDITDSM+41*, EDITDSM+42!, EDIT+1*, EDIT+5!, NEW+23*!, NEWE+1*, NEWE+3!
DIFQ SORRY+1!
DIFROM MM3+4~
DIK PRE+1*, PRE+2*, PRE+3!, CLEAN+2*
DLAYGO EDITDSM+58*, EDITDSM+60!, NEW+9*, NEW+11!, NEW+16*, NEW+18!, NEWICD+13*, NEWICD+15!
DO EDITDSM+57!, NEW+11!, NEW+18!, NEWICD+15!
DR ICDUP+3*!, ICDUP+5*!, ICDUP+9*!, ICDUP+13*!, ICDUP+17*!, ICDUP+21*!, ICDUP+25*!, EDITDSM+2*!, EDITDSM+5*, EDITDSM+8*
, EDITDSM+11*, EDITDSM+14*, EDITDSM+17*, EDITDSM+20*, EDITDSM+23*, EDITDSM+26*, EDITDSM+29*, EDITDSM+32*, EDITDSM+35*, EDITDSM+38*
, EDITDSM+41*, EDITDSM+42!, EDIT+2*, EDIT+5!, NEW+23*!, NEWE+2*, NEWE+3!
DT EDITDSM+29
DUZ MM3+1, SENDER3+1
>> G EDITDSM+3*, EDITDSM+4, EDITDSM+5, EDITDSM+6*, EDITDSM+7, EDITDSM+8, EDITDSM+9*, EDITDSM+10, EDITDSM+11, EDITDSM+12*
, EDITDSM+13, EDITDSM+14, EDITDSM+15*, EDITDSM+16, EDITDSM+17, EDITDSM+18*, EDITDSM+19, EDITDSM+20, EDITDSM+21*, EDITDSM+22
, EDITDSM+23, EDITDSM+24*, EDITDSM+25, EDITDSM+26, EDITDSM+27*, EDITDSM+28, EDITDSM+29, EDITDSM+30*, EDITDSM+31, EDITDSM+32
, EDITDSM+33*, EDITDSM+34, EDITDSM+35, EDITDSM+36*, EDITDSM+37, EDITDSM+38, EDITDSM+39*, EDITDSM+40, EDITDSM+41, EDITDSM+53*
, EDITDSM+54, NEWICD+8*, NEWICD+10*, NEWICD+12
IOM IMES+1, SORRY+4
IOST SENDER3+2
>> RETVAL BMXPO+5
U ICDUP+7, ICDUP+8, ICDUP+11, ICDUP+12, ICDUP+15, ICDUP+16, ICDUP+19, ICDUP+20, ICDUP+23, ICDUP+24
, EDITDSM+4, EDITDSM+7, EDITDSM+10, EDITDSM+13, EDITDSM+16, EDITDSM+19, EDITDSM+22, EDITDSM+25, EDITDSM+28, EDITDSM+31
, EDITDSM+34, EDITDSM+37, EDITDSM+40, EDITDSM+45, EDITDSM+46, EDITDSM+47, EDITDSM+48, EDITDSM+49, EDITDSM+50, EDITDSM+51
, EDITDSM+54, NEW+5, NEW+6, NEW+22, NEWICD+10
X ENV+1*, EDITDSM+58*, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3, NEW+8*
, NEW+15*, NEWICD+4*
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 EDITDSM+59, EDITDSM+61, EDIT+4, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1
, GETREC3+4*, NEW+12, NEW+19, NEWICD+16, NEWICD+17, NEWE+4

Marked Items

Name Field # of Occurrence
$T(@AMHTEXT+AMHY NEWICD+3
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