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 |  Caller 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: AMH30P4C

Package: Mental Health Social Services

Routine: AMH30P4C


Information

AMH30P4C ; IHS/BJI/GRL - Routine to create bulletin [ 01/19/05 8:06 AM ]

Source Information

Source file <AMH30P4C.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 FILE^DICN  ^DIE  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health Social Services 1 AMH30P4  

Entry Points

Name Comments DBIA/ICR reference
PCCHG ;change codes
NAME ;;
MAPC ;
EDIT ;
NEWADDS ;
PCHGS ;;
CHG ;;
PINAC ;do inactivations
ADDPC ;
PCHG ;change codes
ADD ;;
PADDSE
PNAME ;now do name changes
PADDS ;process adds
MAP ;;
INAC ;;

External References

Name Field # of Occurrence
FILE^DICN PADDS+30, NEWADDS+13, ADDPC+1
^DIE AMH30P4C+4, AMH30P4C+6, PINAC+8, PINAC+14, PNAME+8, PNAME+14, PCHG+8, PADDS+6, PADDS+25, PADDSE+2
, PCCHG+8, MAPC+8, EDIT+2
^XBFMK AMH30P4C+7, PINAC+12, PNAME+12, PNAME+16, PADDS+8, PADDS+19, PADDS+27, PADDS+31, NEWADDS+12, NEWADDS+16
, EDIT+1, EDIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Inactivating MHSS PROBLEM CODES and DSM Codes:"
  • Line Location: PINAC+1
Function Call: WRITE
  • Prompt: !,"inactivating ",AMHC," failed."
  • Line Location: PINAC+9
Function Call: WRITE
  • Prompt: !!,"Name changes on codes:"
  • Line Location: PNAME+1
Function Call: WRITE
  • Prompt: !,"changing name ",AMHC," failed."
  • Line Location: PNAME+9
Function Call: WRITE
  • Prompt: !," name change failed"
  • Line Location: PNAME+15
Function Call: WRITE
  • Prompt: !!,"changing codes:"
  • Line Location: PCHG+1
Function Call: WRITE
  • Prompt: !,"changing code ",AMHC," failed."
  • Line Location: PCHG+9
Function Call: WRITE
  • Prompt: !!,"adding new codes:"
  • Line Location: PADDS+9
Function Call: WRITE
  • Prompt: " editing problem code failed"
  • Line Location: PADDS+26
Function Call: WRITE
  • Prompt: " Already have code ",AMHC," will edit."
  • Line Location: PADDS+29
Function Call: WRITE
  • Prompt: " adding failed in dsm file"
  • Line Location: PADDS+31
Function Call: WRITE
  • Prompt: " editing ",AMHC," failed dsm file."
  • Line Location: PADDSE+3
Function Call: WRITE
  • Prompt: !!,"changing codes:"
  • Line Location: PCCHG+1
Function Call: WRITE
  • Prompt: !,"changing code ",AMHC," failed."
  • Line Location: PCCHG+9
Function Call: WRITE
  • Prompt: !,"Remapping MHSS PROBLEM CODES and DSM Codes to ICD9 dx codes:"
  • Line Location: MAPC+1
Function Call: WRITE
  • Prompt: !,"mapping ",AMHC," failed."
  • Line Location: MAPC+9
Function Call: WRITE
  • Prompt: !,"error in file ADDS ",AMHX
  • Line Location: NEWADDS+3
Function Call: WRITE
  • Prompt: !,"error in description ADDS ",AMHX
  • Line Location: NEWADDS+4
Function Call: WRITE
  • Prompt: !,"error in problem code adds ",AMHX
  • Line Location: NEWADDS+6
Function Call: WRITE
  • Prompt: !,"error in problem code adds ",AMHX
  • Line Location: NEWADDS+7
Function Call: WRITE
  • Prompt: !,"error in file^dicn in adding new code ",AMHC
  • Line Location: NEWADDS+14
Function Call: WRITE
  • Prompt: " adding failed."
  • Line Location: ADDPC+2
Routine Call
  • DIE
  • Line Location:
    • AMH30P4C+4
    • AMH30P4C+6
    • PINAC+8
    • PINAC+14
    • PNAME+8
    • PNAME+14
    • PCHG+8
    • PADDS+6
    • PADDS+25
    • PADDSE+2
    • PCCHG+8
    • MAPC+8
    • EDIT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHPROB - [#9002012.2] Classic Fileman Calls
^AMHPROBC - [#9002012.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] PNAME+6, NEWADDS+9
^AMHPROB("B" PINAC+4, PNAME+4, PCHG+4, PADDS+28, PCCHG+4, MAPC+4, NEWADDS+9
^AMHPROB("C" AMH30P4C+3, AMH30P4C+5
^AMHPROBC("B" PINAC+11, PNAME+11, PADDS+2, PADDS+3, PADDS+20, NEWADDS+7
^AMHTPCAD - [#9002012.3] NEWADDS+2, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6

Label References

Name Line Occurrences
ADDPC PADDS+2, PADDS+21
EDIT NEWADDS+10
PADDSE PADDS+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHC PINAC+3*, PINAC+4, PINAC+6, PINAC+9, PINAC+11, PNAME+3*, PNAME+4, PNAME+6, PNAME+9, PNAME+11
, PCHG+3*, PCHG+4, PCHG+6, PCHG+9, PADDS+2*, PADDS+11*, PADDS+17, PADDS+18, PADDS+20, PADDS+28
, PADDS+29, PADDS+30, PADDSE+3, PCCHG+3*, PCCHG+4, PCCHG+6, PCCHG+9, MAPC+3*, MAPC+4, MAPC+6
, MAPC+9, NEWADDS+3*, NEWADDS+5, NEWADDS+9, NEWADDS+13, NEWADDS+14, NEWADDS+15, ADDPC+1
>> AMHCAT PADDS+15*, PADDS+24
>> AMHD PADDS+12*, PADDS+24, PADDSE+1, NEWADDS+4*, NEWADDS+9, NEWADDS+13, NEWADDS+15, EDIT+2
>> AMHI NEWADDS+5*, NEWADDS+13, EDIT+2
>> AMHJ PINAC+2*, PNAME+2*, PCHG+2*, PADDS+10*, PCCHG+2*, MAPC+2*
>> AMHM PADDS+13*, PADDSE+1
>> AMHP PADDS+14*, PADDSE+1, NEWADDS+6*, NEWADDS+7*, NEWADDS+13, EDIT+2
>> AMHX PINAC+2*, PINAC+3, PNAME+2*, PNAME+3, PNAME+6, PNAME+7, PNAME+14, PCHG+2*, PCHG+3, PCHG+6
, PCHG+7, PADDS+10*, PADDS+11, PADDS+12, PADDS+13, PADDS+14, PADDS+15, PCCHG+2*, PCCHG+3, PCCHG+6
, PCCHG+7, MAPC+2*, MAPC+3, MAPC+7, NEWADDS+2*, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6, NEWADDS+7
D0 PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DA AMH30P4C+3*, AMH30P4C+4!, AMH30P4C+5*, AMH30P4C+6!, PINAC+4*, PINAC+5, PINAC+10!, PINAC+11*, PINAC+12, PINAC+14!
, PNAME+4*, PNAME+5, PNAME+6, PNAME+10!, PNAME+11*, PNAME+12, PNAME+14, PCHG+4*, PCHG+5, PCHG+10!
, PADDS+3*, PADDS+4, PADDS+20*, PADDS+21, PADDS+22, PADDS+28*, PADDS+29, PADDS+32*, PADDSE+4!, PCCHG+4*
, PCCHG+5, PCCHG+10!, MAPC+4*, MAPC+5, MAPC+10!, EDIT+2*, ADDPC+3*
DD PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DIADD PADDS+30*!, NEWADDS+12!, NEWADDS+13*, NEWADDS+16!, ADDPC+1*!
>> DIC PADDS+30*, NEWADDS+13*, ADDPC+1*
>> DIC("DR" NEWADDS+13*
>> DIC(0 PADDS+30*, NEWADDS+13*, ADDPC+1*
DIE AMH30P4C+4*!, AMH30P4C+6*!, PINAC+7*, PINAC+10!, PINAC+14*!, PNAME+7*, PNAME+10!, PNAME+14*, PCHG+7*, PCHG+10!
, PADDS+5*, PADDS+24*, PADDSE+1*, PADDSE+4!, PCCHG+7*, PCCHG+10!, MAPC+7*, MAPC+10!, EDIT+2*
DIU PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DIV PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DIW PINAC+10!, PINAC+14!, PNAME+10!, PCHG+10!, PADDSE+4!, PCCHG+10!, MAPC+10!
DLAYGO PADDS+30*!, NEWADDS+12!, NEWADDS+13*, NEWADDS+16!, ADDPC+1*!
DO PADDS+30!, NEWADDS+12!, NEWADDS+16!, ADDPC+1!
DR AMH30P4C+4*!, AMH30P4C+6*!, PINAC+7*, PINAC+10!, PINAC+14*!, PNAME+7*, PNAME+10!, PNAME+14*, PCHG+7*, PCHG+10!
, PADDS+5*, PADDS+24*, PADDSE+1*, PADDSE+4!, PCCHG+7*, PCCHG+10!, MAPC+7*, MAPC+10!, EDIT+2*
DT PINAC+7
>> G NEWADDS+9*, NEWADDS+10, EDIT+2
U PNAME+6, NEWADDS+3, NEWADDS+4, NEWADDS+5, NEWADDS+6, NEWADDS+9
>> X PADDS+30*, NEWADDS+9*, NEWADDS+13*, ADDPC+1*
>> Y PINAC+9, PNAME+9, PNAME+15, PCHG+9, PADDS+26, PADDS+31, PADDS+32, PADDSE+3, PCCHG+9, MAPC+9
, NEWADDS+14, ADDPC+2, ADDPC+3

Marked Items

Name Field # of Occurrence
$T(ADD+AMHJ PADDS+10
$T(CHG+AMHJ PCHG+2
$T(INAC+AMHJ PINAC+2
$T(MAP+AMHJ MAPC+2
$T(NAME+AMHJ PNAME+2
$T(PCHGS+AMHJ PCCHG+2
Info |  Source |  Call Graph |  Caller 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