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

Package: Referred Care Information System

Routine: BMC4P11


Information

BMC4P11 ;IHS/OIT/FCJ - BMC 4.0 PATCH 11 ; 16 Feb 2011 2:54 PM

Source Information

Source file <BMC4P11.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA Fileman 7 (,IX)^DIC  FILE^DICN  $$GET1^DID  ^DIE  ENALL^DIK  $$GET1^DIQ  ^DIR  
Kernel 6 HOME^%ZIS  ENDR^%ZISS  $$FMADD^XLFDT  ($$CJ,$$LJ,$$RJ)^XLFSTR  $$ADD^XPDMENU  ($$NEWCP,$$VERSION,BMES,MES)^XPDUTL  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
Referred Care Information System 2 $$INSTALLD^BMC4P0  $$VCHK^BMC4P11  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC4P11  

Entry Points

Name Comments DBIA/ICR reference
AUDR ; Restore the file data audit values to their original values.
SINGLE(K) ; Get holders of a single key K.
P10COM ;Clean up of comments file
INSTALLD(BMC) ; Determine if patch BMC was installed, where BMC is
; the name of the INSTALL. E.g "AVA*93.2*12".
GREET ;;To add to mail message.
PCCLNK
AUDS ;EP - From KIDS.
PRE ;EP - From KIDS.
INTROE ; Intro text during KIDS Environment check.
INTROI ; Intro text during KIDS Install.
P10 ;Patch 10
P10VR ;Clean up clinic stop in V Referral file
P8 ;Adding new Report menu option for TOC and Edit option for TOC
P6 ;FX CHS PO'S WITH FY 00 INSTEAD OF FY 10
P7 ;Adding new Report menu option for the printed C32
RSLT(%)
P5 ;Add Menu option for Vendor
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP) ; Check versions needed.
;
P9 ;Add Report menu options
POST ;EP - From KIDS.
; --- Restore dd audit settings.
INDX ;INDEX NEW INDECIES "BA", "BB" AND "CD" ;Patch 2
SORRY(X) ;
MAIL ;

External References

Name Field # of Occurrence
HOME^%ZIS BMC4P11+4
ENDR^%ZISS BMC4P11+18
$$INSTALLD^BMC4P0 INDX+1, P5+1, P6+1, P7+1, P8+1, P10+1, P10VR+1, P10COM+1
$$VCHK^BMC4P11 BMC4P11+23
^DIC INSTALLD+11, INSTALLD+15
IX^DIC BMC4P11+40, INSTALLD+7
FILE^DICN PCCLNK+12
$$GET1^DID AUDR+6
^DIE PCCLNK+6, P10+5, P10VR+6
ENALL^DIK INDX+5, INDX+8, INDX+11, PCCLNK+2
$$GET1^DIQ BMC4P11+12
^DIR BMC4P11+32, BMC4P11+35
$$DIR^XBDIR BMC4P11+49, BMC4P11+50
HELP^XBHELP BMC4P11+48, BMC4P11+50
$$FMADD^XLFDT AUDS+3
$$CJ^XLFSTR BMC4P11+13, BMC4P11+14, BMC4P11+42, BMC4P11+43, BMC4P11+46, BMC4P11+47, SORRY+3, VCHK+5, VCHK+7, INSTALLD+17
, INSTALLD+18
$$LJ^XLFSTR AUDS+8, AUDR+6
$$RJ^XLFSTR AUDS+8, AUDR+6
^XMD MAIL+10
$$ADD^XPDMENU P5+3, P6+11, P7+3, P8+3, P8+5, P9+3, P9+4, P9+5, P9+6
$$NEWCP^XPDUTL PRE+1, POST+3, POST+7, POST+11, POST+15, POST+19, POST+23, POST+27, POST+31, POST+35
, POST+39, POST+43
$$VERSION^XPDUTL VCHK+3
BMES^XPDUTL MAIL+1, AUDS+1, AUDR+1, INDX+2, INDX+6, INDX+9, INDX+12, P5+2, P6+10, P7+2
, P8+2, P8+4, PCCLNK+8, P10+6, P10VR+7, P10COM+22
MES^XPDUTL MAIL+12, AUDS+2, AUDS+8, AUDS+11, AUDR+6, AUDR+9, P5+3, P5+4, P6+2, P6+11
, P6+12, P7+3, P7+4, P8+3, P8+5, P8+6, P9+2, P9+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BMC4P11+6
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BMC4P11+8
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BMC4P11+13
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM),!
  • Line Location: BMC4P11+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: BMC4P11+31
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4P11+34
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4P11+36
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM),!,$$CJ^XLFSTR("PACKAGE File with an ""BMC"" prefix.",IOM)
  • Line Location: BMC4P11+42
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: BMC4P11+43
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"You will need to update package(s) before proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: BMC4P11+46
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BMC4P11+47
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....Need to update package!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need "_$S(BMCCOMP="<":"at least ",1:"")_BMCPRE_" v "_BMCVER_"....."_BMCPRE_" v "_BMCV_" Present",IOM)
  • Line Location: VCHK+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_"....."_BMC_" Present",IOM)
  • Line Location: INSTALLD+17
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_".....",IOM)
  • Line Location: INSTALLD+18
Routine Call
  • %ZIS
  • Line Location:
    • BMC4P11+4
Routine Call
  • DIE
  • Line Location:
    • PCCLNK+6
    • P10+5
    • P10VR+6
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+11
    • INSTALLD+15
Routine Call
  • DIR
  • Line Location:
    • BMC4P11+32
    • BMC4P11+35
Routine Call
  • DIC
  • Line Location:
    • BMC4P11+40
    • INSTALLD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(9.4 - [#9.4] Classic Fileman Calls
^AUPNVREF - [#9000010.59] Classic Fileman Calls
^BMCREF - [#90001] Classic Fileman Calls
^BMCTSORT - [#90001.81] Classic Fileman Calls
^APCDLINK - [#9001002] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDLINK("B" PCCLNK+3, PCCLNK+4, PCCLNK+7
^AUPNVREF - [#9000010.59] P10VR+5
^BMCCOM - [#90001.03] P10COM+7, P10COM+8, P10COM+10, P10COM+11, P10COM+12, P10COM+13!, P10COM+19*, P10COM+20*
^BMCCOM("B" P10COM+4, P10COM+6
^BMCCOMT( P10COM+11*, P10COM+12*, P10COM+15, P10COM+16, P10COM+20
^BMCREF - [#90001] P6+5, P6+6, P6+8*, P6+9*
^BMCREF("B" P6+3, P6+4
^DD( AUDS+7, AUDS+9*, AUDR+5*, AUDR+6
^DIC(9.4 - [#9.4] BMC4P11+41
^TMP("BMC4P11" MAIL+3!, MAIL+11!, RSLT
^XTMP("BMC4P11" 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 BMC4P11+24, BMC4P11+25, BMC4P11+26, BMC4P11+27, BMC4P11+28, BMC4P11+29, BMC4P11+33, BMC4P11+36
$$VCHK BMC4P11+20, BMC4P11+21, BMC4P11+22, BMC4P11+30
RSLT MAIL+4, MAIL+5, MAIL+7
SINGLE MAIL+9
SORRY BMC4P11+6, BMC4P11+8, BMC4P11+10, BMC4P11+24, BMC4P11+25, BMC4P11+26, BMC4P11+27, BMC4P11+28, BMC4P11+29, BMC4P11+33
, BMC4P11+36, BMC4P11+44, BMC4P11+49, BMC4P11+50, VCHK+6, VCHK+8

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+2*, POST+3, POST+6*, POST+7, POST+10*, POST+11, POST+14*, POST+15, POST+18*, POST+19
, POST+22*, POST+23, POST+26*, POST+27, POST+30*, POST+31, POST+34*, POST+35, POST+38*, POST+39
, POST+42*, POST+43, MAIL+5*, MAIL+6*, MAIL+7*, MAIL+9*, RSLT~
BEGDT P10COM+3*, P10COM+4*, P10COM+6, P10COM+21!
BMC INSTALLD~, INSTALLD+5, INSTALLD+10, INSTALLD+14, INSTALLD+17, INSTALLD+18, AUDS+4~, AUDS+5*, AUDS+6*, AUDS+7
, AUDS+8, AUDS+9, AUDR+2~, AUDR+3*, AUDR+4*, AUDR+5, AUDR+6, INDX+1*, P5+1*, P6+1*
, P6+3*, P6+4, P7+1*, P8+1*, P9+1*, P10+1*, P10VR+1*, P10COM+1*
>> BMC1 P6+4*, P6+5, P6+6, P6+8, P6+9
>> BMC2 P6+5*, P6+6, P6+8, P6+9
BMCCOM P10COM+16*, P10COM+17, P10COM+19, P10COM+21!
BMCCOMP VCHK~, VCHK+5, VCHK+7, VCHK+8
BMCDA P10COM+12*, P10COM+14*, P10COM+15*, P10COM+16, P10COM+21!
BMCDA2 P10COM+14*, P10COM+19*, P10COM+20, P10COM+21!
>> BMCPO P6+6*, P6+7, P6+8
BMCPRE VCHK~, VCHK+3, VCHK+5, VCHK+7
BMCQUIT BMC4P11+24*, BMC4P11+25*, BMC4P11+26*, BMC4P11+27*, BMC4P11+28*, BMC4P11+29*, BMC4P11+33*, BMC4P11+36*, VCHK~, VCHK+6
, VCHK+8
BMCV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5, VCHK+7, VCHK+8
BMCVER VCHK~, VCHK+5, VCHK+7, VCHK+8
CT P10COM+21!
>> D BMC4P11+39*, INSTALLD+6*
DA BMC4P11+38~, INDX+13!, PCCLNK+4*, PCCLNK+6!, P10+3~, P10+4*, P10VR+2~, P10VR+3*, P10VR+5*, P10COM+2~
, P10COM+5*, P10COM+6*, P10COM+7, P10COM+8, P10COM+10, P10COM+11, P10COM+12, P10COM+13, P10COM+15, P10COM+16
, P10COM+19, P10COM+20
DA(1 P10COM+8*, P10COM+10*, P10COM+11, P10COM+12
DD PCCLNK+9~
DIC BMC4P11+38~, BMC4P11+39*, INSTALLD+3~, INSTALLD+6*, INSTALLD+10*, INSTALLD+14*, INSTALLD+16, INDX+13!, PCCLNK+9~, PCCLNK+10*
, P10+3~, P10VR+2~, P10COM+2~
DIC("DR" PCCLNK+11*
DIC(0 BMC4P11+39*, INSTALLD+6*, PCCLNK+10*
DIE PCCLNK+5*, PCCLNK+6!, P10+3~, P10+4*, P10VR+2~, P10VR+4*, P10COM+2~
DIFQ SORRY+1!
DIFROM MAIL+2~
DIK INDX+3*, INDX+13!, PCCLNK+2*!
DIK(1 INDX+4*, INDX+7*, INDX+10*, PCCLNK+2*
>> DIR("A" BMC4P11+32*, BMC4P11+35*
>> DIR(0 BMC4P11+32*, BMC4P11+35*
DLAYGO PCCLNK+9~, PCCLNK+10*
DO PCCLNK+9~
DR PCCLNK+5*, PCCLNK+6!, P10+3~, P10+4*, P10VR+2~, P10VR+4*, P10COM+2~
DT AUDS+3
DUZ BMC4P11+6, BMC4P11+12, MAIL+8
DUZ(0 BMC4P11+8, BMC4P11+10
FLG P10COM+8*, P10COM+9, P10COM+21!
>> I P10COM+18*
IOM BMC4P11+4, BMC4P11+13, BMC4P11+14, BMC4P11+42, BMC4P11+43, BMC4P11+46, BMC4P11+47, SORRY+3, VCHK+5, VCHK+7
, INSTALLD+17, INSTALLD+18
IORVOFF BMC4P11+16~, BMC4P11+43, BMC4P11+46
IORVON BMC4P11+16~, BMC4P11+43, BMC4P11+46
K SINGLE~, SINGLE+3, SINGLE+4
L P10COM+17*, P10COM+18, P10COM+21!
LGHT2 P10COM+21!
LGTH P10COM+18*, P10COM+19*, P10COM+21!
>> LGTH2 P10COM+18*, P10COM+19*
P INSTALLD+3~, INSTALLD+16*
U P6+6, P6+8, P6+9, P10VR+5, P10COM+20
X BMC4P11+12*, BMC4P11+13, BMC4P11+17*, BMC4P11+39*, SORRY~, SORRY+2, INSTALLD+3~, INSTALLD+5*, INSTALLD+10*, INSTALLD+14*
, INSTALLD+16, INDX+13!, PCCLNK+9~, PCCLNK+12*
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
>> XPDDIQ("XPZ1" BMC4P11+50*, PRE+4*
>> XPDDIQ("XPZ2" BMC4P11+50*, PRE+4*
>> XPDENV BMC4P11+50, PRE+4
>> XPDQUIT BMC4P11+46, SORRY+2*
Y BMC4P11+33, BMC4P11+36, BMC4P11+41, INSTALLD+3~, INSTALLD+8, INSTALLD+10, INSTALLD+12, INSTALLD+14, INSTALLD+16*, INSTALLD+17
, INSTALLD+18, INSTALLD+19, SINGLE+1~, SINGLE+2*, SINGLE+4*, PCCLNK+9~
>> ZTQUEUED BMC4P11+10

Marked Items

Name Field # of Occurrence
$T( BMC4P11+14, MAIL+8, AUDS+3
$T(GREET+% MAIL+5
$T(GREET+%+1 MAIL+5
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 |  Naked Globals |  Local Variables |  Marked Items |  All