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

Package: Contract Health Management Information System

Routine: ACHS3114


Information

ACHS3114 ;IHS/OIT/FCJ - ACHS 3.1 PATCH 14 ; JUL 10, 2008

Source Information

Source file <ACHS3114.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 $$FMADD^XLFDT  ($$LJ,$$RJ)^XLFSTR  $$ADD^XPDMENU  ($$NEWCP,BMES,MES)^XPDUTL  
VA Fileman 4 (,IX)^DIC  $$GET1^DID  ^DIE  (,ENALL)^DIK  
IHS VA Utilities 1 EN2^XBKD  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
NONREG ;EP - from KIDS.
AUDR ; Restore the file data audit values to their original values.
SINGLE(K) ; Get holders of a single key K.
GREET ;;To add to mail message.
DENOPT ; check for 638 facility, and add options if 638
P6 ;EP - from KIDS
AUDS ;EP - From KIDS.
PRE ;EP - From KIDS.
INSTALLD(ACHS) ; Determine if patch ACHS was installed, where ACHS is
; the name of the INSTALL. E.g "AVA*93.2*12".
P4 ;EP - from KIDS.
P12 ;EP-from KIDS
P13 ;EP-from KIDS
V145DD ;EP - From KIDS
P14 ;EP-from KIDS
DCIS ;EP-From kids PATCH 14
P6OPT ;EP - FROM KIDS.
P7 ;EP-from KIDS
RSLT(%)
P5 ;EP - from KIDS
P7OPT ;EP -FROM KIDS
DELFLD ;
DENREV ;EP - From KIDS.
POST ;EP - From KIDS.
; ---Patches 4,5,6,7 Checks installs are done in Install Questions.
; ---Question for 3 was removed, need "C" index for lookup of non-registered patients.
HHS ;
M278 ;
UFMS ;EP-from KIDS PATCH 13
LIST ;
MAIL ;
SSC ;ADD NAICS CODES TO SSC

External References

Name Field # of Occurrence
^DIC INSTALLD+11, INSTALLD+15, UFMS+7, DCIS+3, SSC+19
IX^DIC INSTALLD+7
$$GET1^DID AUDR+6
^DIE UFMS+11, DCIS+7
^DIK DELFLD+21
ENALL^DIK NONREG+7, P4+8
EN2^XBKD V145DD+4
$$FMADD^XLFDT AUDS+3
$$LJ^XLFSTR AUDS+8, AUDR+6, DELFLD+19
$$RJ^XLFSTR AUDS+8, AUDR+6
^XMD MAIL+10
$$ADD^XPDMENU DENOPT+5, DENOPT+6, M278+2, P6OPT+3, P6OPT+4, P7OPT+4, P7OPT+5, P7OPT+6, P7OPT+7, P7OPT+8
, P7OPT+9, P7OPT+11, P7OPT+12, P7OPT+13, HHS+5
$$NEWCP^XPDUTL PRE+1, POST+4, POST+6, POST+9, POST+12, POST+16, POST+20, POST+24, POST+28, POST+32
, P5+5, P5+9, P5+13, P5+17, P6+5, P6+9, P6+13, P7+5, P7+9, P12+3
, P12+6, P13+3, P14+3
BMES^XPDUTL MAIL+1, AUDS+1, AUDR+1, DELFLD+16, DENOPT+1, M278+1, P6OPT+2, NONREG+1, P7OPT+3, HHS+1
, P4+2
MES^XPDUTL MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, DELFLD+19, DELFLD+23, DENOPT+5, DENOPT+6
, DENOPT+7, M278+2, M278+3, M278+4, P6OPT+3, P6OPT+4, P6OPT+5, NONREG+8, P7OPT+4, P7OPT+6
, P7OPT+10, P7OPT+12, P7OPT+13, P7OPT+14, P7OPT+15, HHS+5, HHS+6, P4+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ZISH SEND PARAMETER FOR THE ACHS UFMS ENTRY COULD NOT BE ADDED, YOU WILL NEED TO THROUGH FILEMAN"
  • Line Location: UFMS+8
Function Call: WRITE
  • Prompt: !,"ZISH SEND PARAMETER FOR THE ACHS WEBFRS ENTRY COULD NOT BE ADDED, YOU WILL NEED TO EDIT USING FILEMAN"
  • Line Location: DCIS+4
Routine Call
  • DIE
  • Line Location:
    • UFMS+11
    • DCIS+7
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
    • UFMS+7
    • DCIS+3
    • SSC+19
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
^ACHS(3.1 - [#9002063.1] Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(3 - [#9002063] SSC+2, SSC+3, SSC+20, SSC+21*
^ACHSDEF - [#9002066] P4+5, P4+6!
^ACHSDEN - [#9002071] NONREG+4, NONREG+5!, DENREV+5, DENREV+7, DENREV+8, DENREV+9, DENREV+10*
^ACHSDENA("B" DENREV+4
^ACHSF - [#9002080] DENOPT+4, HHS+4, UFMS+4*
^ACHSF("B" UFMS+2, UFMS+3
^DD( AUDS+7, AUDS+9*, AUDR+5*, AUDR+6
^TMP("ACHS3114" MAIL+3!, MAIL+11!, RSLT
^UTILITY("XBDSET" V145DD+2!
^XTMP("ACHS3114" AUDS+3*, AUDS+7*, AUDS+8, AUDR+4, AUDR+5, AUDR+8!
^XTMP("XPDI" MAIL+7, AUDS+6, AUDS+8
^XUSEC( SINGLE+3, SINGLE+4

Label References

Name Line Occurrences
$$INSTALLD P12+1, P13+1, P14+1
RSLT MAIL+4, MAIL+5, MAIL+7
SINGLE MAIL+9

Naked Globals

Name Field # of Occurrence
^( MAIL+7, RSLT*
^(0 RSLT*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% POST+3*, POST+4, POST+5*, POST+6, POST+8*, POST+9, POST+11*, POST+12, POST+15*, POST+16
, POST+19*, POST+20, POST+23*, POST+24, POST+27*, POST+28, POST+31*, POST+32, MAIL+5*, MAIL+6*
, MAIL+7*, MAIL+9*, RSLT~, P5+4*, P5+5, P5+8*, P5+9, P5+12*, P5+13, P5+16*
, P5+17, P6+4*, P6+5, P6+8*, P6+9, P6+12*, P6+13, P7+4*, P7+5, P7+8*
, P7+9, P12+2*, P12+3, P12+5*, P12+6, P13+2*, P13+3, P14+2*, P14+3
ACHS AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5
, AUDR+6, INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, DELFLD+18*, DENOPT+2~, DENOPT+3*, DENOPT+4*, NONREG+2~
, NONREG+3*, NONREG+4*, NONREG+5, NONREG+6, DENREV+2~, DENREV+3*, DENREV+5*, DENREV+7, DENREV+8, DENREV+9
, DENREV+10, P4+3~, P4+4*, P4+5*, P4+6, P4+7
ACHSASTA DENREV+3*, DENREV+4*, DENREV+10, DENREV+11!
ACHSDA DENREV+3*, DENREV+6*, DENREV+7*, DENREV+8, DENREV+9, DENREV+10, DENREV+11!
>> ACHSDSTA DENREV+8*, DENREV+10
>> ACHSFAC SSC+1*, SSC+2*, SSC+3, SSC+20, SSC+21
ACHSI HHS+2~, HHS+3*, HHS+4*
>> ACHSSSC SSC+3*, SSC+5, SSC+6, SSC+7, SSC+8, SSC+9, SSC+10, SSC+11, SSC+12, SSC+13
, SSC+14, SSC+15, SSC+16, SSC+17, SSC+20
D INSTALLD+6*, UFMS+12!, DCIS+8!
D0 UFMS+12!, DCIS+8!
D1 UFMS+12!, DCIS+8!
DA DELFLD+17~, DELFLD+20*, NONREG+2~, UFMS+9*, UFMS+12!, DCIS+5*, DCIS+8!, P4+3~
DA(1 DELFLD+20*, NONREG+6*, P4+7*
DI UFMS+12!, DCIS+8!
DIADD UFMS+12!, DCIS+8!
DIC INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, UFMS+6*, UFMS+9, UFMS+12!, DCIS+2*, DCIS+5, DCIS+8!
, SSC+19*
DIC(0 INSTALLD+6*, UFMS+6*, DCIS+2*
DICR UFMS+12!, DCIS+8!
DIE UFMS+9*, UFMS+12!, DCIS+5*, DCIS+8!
DIFROM MAIL+2~
DIK DELFLD+17~, DELFLD+20*, NONREG+2~, NONREG+6*, P4+3~, P4+7*
DIK(1 NONREG+7*, P4+8*
DINUM UFMS+12!, DCIS+8!
DLAYGO UFMS+12!, DCIS+8!
DQ UFMS+12!, DCIS+8!
DR UFMS+10*, UFMS+12!, DCIS+6*, DCIS+8!
DT AUDS+3
DUZ MAIL+8
K SINGLE~, SINGLE+3, SINGLE+4
U DELFLD+19, DELFLD+20, DENOPT+4, DENREV+8, DENREV+10, HHS+4, UFMS+4, SSC+21
X INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*, DELFLD+18*, DELFLD+19, DELFLD+20, UFMS+2*, UFMS+3, UFMS+6*
, DCIS+1~, DCIS+2*, SSC+4*, SSC+5*, SSC+6*, SSC+7*, SSC+8*, SSC+9*, SSC+10*, SSC+11*
, SSC+12*, SSC+13*, SSC+14*, SSC+15*, SSC+16*, SSC+17*, SSC+18, SSC+20*, SSC+21
>> X1 UFMS+3*, UFMS+4
XBBPI V145DD+3*, V145DD+4!
XBBPIX V145DD+3*, V145DD+4!
XBBPIY V145DD+3*, V145DD+4!
XMDUZ MAIL+2~, MAIL+8*
XMSUB MAIL+2~, MAIL+8*
XMTEXT MAIL+2~, MAIL+8*
XMY MAIL+2~
XMY( MAIL+8*, SINGLE+4*
XMY(1 MAIL+8*
>> XPDA MAIL+7, AUDS+6, AUDS+8
>> XPDBLD MAIL+7
>> XPDQUES("POS12" P7+1
>> XPDQUES("POS4" P4+1
>> XPDQUES("POS5" P5+1
>> XPDQUES("POS9" P6+1
Y SINGLE+1~, SINGLE+2*, SINGLE+4*, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16, UFMS+8
, UFMS+9, DCIS+1~, DCIS+4, DCIS+5, SSC+21

Marked Items

Name Field # of Occurrence
$T( MAIL+8, AUDS+3
$T(DELFLD+ACHS DELFLD+18
$T(GREET+% MAIL+5
$T(GREET+%+1 MAIL+5
$T(LIST+XBBPI V145DD+3
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