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

Package: Referred Care Information System

Routine: BMC4P12


Information

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

Source Information

Source file <BMC4P12.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA Fileman 7 EN^DDIOL  (,IX)^DIC  FILE^DICN  (,FILE)^DIE  ENALL^DIK  $$GET1^DIQ  ^DIR  
Kernel 5 HOME^%ZIS  ENDR^%ZISS  $$CJ^XLFSTR  $$ADD^XPDMENU  ($$NEWCP,$$VERSION,BMES,MES)^XPDUTL  
IHS VA Utilities 3 $$VALI^XBDIQ1  $$DIR^XBDIR  HELP^XBHELP  
Referred Care Information System 2 $$INSTALLD^BMC4P0  $$VCHK^BMC4P12  
Patient Care Component Reports 1 $$PRIMPROV^APCLV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Referred Care Information System 1 BMC4P12  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP - From KIDS.
P9 ;Add Report Opt
P6 ;FX CHS PO'S WITH FY 00 INSTEAD OF FY 10
P7 ;Add Report opt for the printed C32
P5 ;Add Opt for Vendor
P10COM ;Clean up of comments file
VCHK(BMCPRE,BMCVER,BMCQUIT,BMCCOMP) ; Check versions needed.
INSTALLD(BMC) ; Determine if patch BMC was installed, where BMC is
; the name of the INSTALL. E.g "AVA*93.2*12".
INDX ;INDEX NEW INDECIES "BA", "BB" AND "CD" ;Patch 2
VREF ;CLEAN UP V REF FILE
P10 ;Patch 10
P12 ;Add Report Opt and Call-in options
SORRY(X) ;
PCCLNK
ZPAR ;ADD ENTRY TO ZISH PARAMETER FILE
P10VR ;Clean up clinic stop in V Referral file
POST ;EP - From KIDS.
P8 ;Add Report TOC Opt and Edit TOC Opt
GENRET ;UPDATE GEN RET OPTIONS

External References

Name Field # of Occurrence
HOME^%ZIS BMC4P12+3
ENDR^%ZISS BMC4P12+14
$$PRIMPROV^APCLV VREF+12
$$INSTALLD^BMC4P0 INDX+1, P5+1, P6+1, P7+1, P8+1, P10VR+1, P10COM+1
$$VCHK^BMC4P12 BMC4P12+19
EN^DDIOL VREF+18
^DIC INSTALLD+10, INSTALLD+14, P10+5, ZPAR+3, GENRET+4, GENRET+6, GENRET+8, GENRET+10, GENRET+11, GENRET+12
IX^DIC BMC4P12+36, INSTALLD+6
FILE^DICN POST+9, POST+23, PCCLNK+12
^DIE PCCLNK+6, P10+8, P10VR+6, VREF+17, ZPAR+7, GENRET+4, GENRET+6, GENRET+8, GENRET+10, GENRET+15
FILE^DIE POST+16, POST+33
ENALL^DIK INDX+5, INDX+8, INDX+11, PCCLNK+2
$$GET1^DIQ BMC4P12+8
^DIR BMC4P12+28, BMC4P12+31
$$VALI^XBDIQ1 VREF+8, VREF+11, VREF+12
$$DIR^XBDIR BMC4P12+45, BMC4P12+46
HELP^XBHELP BMC4P12+44, BMC4P12+46
$$CJ^XLFSTR BMC4P12+9, BMC4P12+10, BMC4P12+38, BMC4P12+39, BMC4P12+42, BMC4P12+43, SORRY+3, VCHK+4, VCHK+6, INSTALLD+16
, INSTALLD+17
$$ADD^XPDMENU P5+3, P6+11, P7+3, P8+3, P8+5, P9+3, P9+4, P9+5, P9+6, P12+3
, P12+5
$$NEWCP^XPDUTL PRE+1, POST+37, POST+40, POST+43, POST+46, POST+49, POST+52, POST+55, POST+58, POST+61
, POST+64, POST+67, POST+70
$$VERSION^XPDUTL VCHK+2
BMES^XPDUTL INDX+2, INDX+6, INDX+9, INDX+12, P5+2, P6+10, P7+2, P8+2, P8+4, PCCLNK+8
, P10+6, P10+9, P10VR+7, P10COM+22, P12+2, P12+4, VREF+2, VREF+20, ZPAR+1, ZPAR+9
, GENRET+1, GENRET+16
MES^XPDUTL P5+3, P5+4, P6+2, P6+11, P6+12, P7+3, P7+4, P8+3, P8+5, P8+6
, P9+2, P9+7, P12+3, P12+5, P12+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: BMC4P12+4
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: BMC4P12+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BMC4P12+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_".",IOM),!
  • Line Location: BMC4P12+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: BMC4P12+27
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4P12+30
Function Call: WRITE
  • Prompt: !
  • Line Location: BMC4P12+32
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: BMC4P12+38
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"One entry needs to be deleted."_IORVOFF,IOM)
  • Line Location: BMC4P12+39
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(IORVON_"You will need to update package(s) before proceeding."_IORVOFF,IOM),!!,*7,*7,*7
  • Line Location: BMC4P12+42
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: BMC4P12+43
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+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_"....."_BMC_" Present",IOM)
  • Line Location: INSTALLD+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BMC_".....",IOM)
  • Line Location: INSTALLD+17
Function Call: WRITE
  • Prompt: !,"ZISH SEND PARAMETER FOR THE BMC RCIS REPORTS ENTRY COULD NOT BE ADDED, YOU WILL NEED ADD THROUGH FILEMAN"
  • Line Location: ZPAR+4
Routine Call
  • %ZIS
  • Line Location:
    • BMC4P12+3
Routine Call
  • DIE
  • Line Location:
    • PCCLNK+6
    • P10+8
    • P10VR+6
    • VREF+17
    • ZPAR+7
    • GENRET+4
    • GENRET+6
    • GENRET+8
    • GENRET+10
    • GENRET+15
Routine Call
  • DIR
  • Line Location:
    • BMC4P12+28
    • BMC4P12+31
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+10
    • INSTALLD+14
    • P10+5
    • ZPAR+3
    • GENRET+4
    • GENRET+6
    • GENRET+8
    • GENRET+10
    • GENRET+11
    • GENRET+12
Routine Call
  • DIE
  • Line Location:
    • POST+16
    • POST+33
Routine Call
  • DIC
  • Line Location:
    • BMC4P12+36
    • INSTALLD+6

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
^BUSA(9002319.03 - [#9002319.03] Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93] 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, VREF+7
^AUPNVREF(0 VREF+1
^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*, VREF+10
^BMCREF("B" P6+3, P6+4
^BUSA(9002319.03 - [#9002319.03] POST+2, POST+4, POST+7, POST+10, POST+18, POST+21, POST+24
^DIC(9.4 - [#9.4] BMC4P12+37

Label References

Name Line Occurrences
$$INSTALLD BMC4P12+20, BMC4P12+21, BMC4P12+22, BMC4P12+23, BMC4P12+24, BMC4P12+25, BMC4P12+29, BMC4P12+32
$$VCHK BMC4P12+16, BMC4P12+17, BMC4P12+18, BMC4P12+26
GENRET ZPAR+4
SORRY BMC4P12+4, BMC4P12+5, BMC4P12+6, BMC4P12+20, BMC4P12+21, BMC4P12+22, BMC4P12+23, BMC4P12+24, BMC4P12+25, BMC4P12+29
, BMC4P12+32, BMC4P12+40, BMC4P12+45, BMC4P12+46, VCHK+5, VCHK+7
ZPAR VREF+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % POST+36*, POST+37, POST+39*, POST+40, POST+42*, POST+43, POST+45*, POST+46, POST+48*, POST+49
, POST+51*, POST+52, POST+54*, POST+55, POST+57*, POST+58, POST+60*, POST+61, POST+63*, POST+64
, POST+66*, POST+67, POST+69*, POST+70
APCDREF VREF+6~, VREF+8*, VREF+9, VREF+10, VREF+11, VREF+12
APCDRP VREF+6~, VREF+11*, VREF+14, VREF+15
APCDVREF VREF+6~, VREF+7*, VREF+8, VREF+13, VREF+18
BEGDT P10COM+3*, P10COM+4*, P10COM+6, P10COM+21!
BMC INSTALLD~, INSTALLD+4, INSTALLD+9, INSTALLD+13, INSTALLD+16, INSTALLD+17, INDX+1*, P5+1*, P6+1*, P6+3*
, P6+4, P7+1*, P8+1*, P9+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+4, VCHK+6, VCHK+7
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+2, VCHK+4, VCHK+6
BMCQUIT BMC4P12+20*, BMC4P12+21*, BMC4P12+22*, BMC4P12+23*, BMC4P12+24*, BMC4P12+25*, BMC4P12+29*, BMC4P12+32*, VCHK~, VCHK+5
, VCHK+7
BMCV VCHK+1~, VCHK+2*, VCHK+3, VCHK+4, VCHK+6, VCHK+7
BMCVDFN VREF+6~, VREF+12*
BMCVER VCHK~, VCHK+4, VCHK+6, VCHK+7
BMCVPRV VREF+6~, VREF+12*, VREF+16
BUSAUPD POST+5~, POST+19~
BUSAUPD( POST+13*, POST+14*, POST+15*, POST+27*, POST+28*, POST+29*, POST+30*, POST+31*, POST+32*
CT P10COM+21!
D BMC4P12+35*, INSTALLD+5*, ZPAR+8!
D0 ZPAR+8!
D1 ZPAR+8!
DA BMC4P12+34~, POST+5~, POST+12*, POST+13, POST+14, POST+15, POST+19~, POST+26*, POST+27, POST+28
, POST+29, POST+30, POST+31, POST+32, INDX+13!, PCCLNK+4*, PCCLNK+6!, P10+3~, P10+7*, 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, VREF+13*, VREF+19!, ZPAR+5*, ZPAR+8!, GENRET+2~
, GENRET+4*, GENRET+6*, GENRET+8*, GENRET+10*, GENRET+12*, GENRET+17!
DA(1 P10COM+8*, P10COM+10*, P10COM+11, P10COM+12
DD POST+9!, POST+23!, PCCLNK+9~
DI ZPAR+8!
DIADD ZPAR+8!
DIC BMC4P12+34~, BMC4P12+35*, INSTALLD+2~, INSTALLD+5*, INSTALLD+9*, INSTALLD+13*, INSTALLD+15, POST+5~, POST+6*, POST+19~
, POST+20*, INDX+13!, PCCLNK+9~, PCCLNK+10*, P10+3~, P10+4*, P10VR+2~, P10COM+2~, ZPAR+2*, ZPAR+5
, ZPAR+8!, GENRET+2~, GENRET+3*, GENRET+17!
DIC("DR" PCCLNK+11*
DIC(0 BMC4P12+35*, INSTALLD+5*, POST+6*, POST+20*, PCCLNK+10*, ZPAR+2*, GENRET+11*
DICR ZPAR+8!
DIE PCCLNK+5*, PCCLNK+6!, P10+3~, P10+4*, P10VR+2~, P10VR+4*, P10COM+2~, VREF+13*, VREF+19!, ZPAR+5*
, ZPAR+8!, GENRET+2~, GENRET+3*, GENRET+17!
DIFQ SORRY+1!
DIK INDX+3*, INDX+13!, PCCLNK+2*!
DIK(1 INDX+4*, INDX+7*, INDX+10*, PCCLNK+2*
DINUM ZPAR+8!
>> DIR("A" BMC4P12+28*, BMC4P12+31*
>> DIR(0 BMC4P12+28*, BMC4P12+31*
DIRUT POST+5~, POST+19~
DLAYGO POST+5~, POST+8*, POST+19~, POST+22*, PCCLNK+9~, PCCLNK+10*, ZPAR+8!
DO POST+9!, POST+23!, PCCLNK+9~
DQ ZPAR+8!
DR PCCLNK+5*, PCCLNK+6!, P10+3~, P10+4*, P10VR+2~, P10VR+4*, P10COM+2~, VREF+14*, VREF+15*, VREF+16*
, VREF+19!, ZPAR+6*, ZPAR+8!, GENRET+2~, GENRET+3*, GENRET+4!, GENRET+5*, GENRET+6!, GENRET+7*, GENRET+8!
, GENRET+9*, GENRET+10!, GENRET+13*, GENRET+14*, GENRET+17!
DTOUT POST+5~, POST+19~
DUOUT POST+5~, POST+19~
DUZ BMC4P12+4, BMC4P12+8
DUZ(0 BMC4P12+5, BMC4P12+6
ERROR POST+5~, POST+19~
FLG P10COM+8*, P10COM+9, P10COM+21!
>> I P10COM+18*
IOM BMC4P12+3, BMC4P12+9, BMC4P12+10, BMC4P12+38, BMC4P12+39, BMC4P12+42, BMC4P12+43, SORRY+3, VCHK+4, VCHK+6
, INSTALLD+16, INSTALLD+17
IORVOFF BMC4P12+12~, BMC4P12+39, BMC4P12+42
IORVON BMC4P12+12~, BMC4P12+39, BMC4P12+42
L P10COM+17*, P10COM+18, P10COM+21!
LGHT2 P10COM+21!
LGTH P10COM+18*, P10COM+19*, P10COM+21!
>> LGTH2 P10COM+18*, P10COM+19*
P INSTALLD+2~, INSTALLD+15*
U P6+6, P6+8, P6+9, P10VR+5, P10COM+20
X BMC4P12+8*, BMC4P12+9, BMC4P12+13*, BMC4P12+35*, SORRY~, SORRY+2, INSTALLD+2~, INSTALLD+4*, INSTALLD+9*, INSTALLD+13*
, INSTALLD+15, POST+5~, POST+8*, POST+19~, POST+22*, INDX+13!, PCCLNK+9~, PCCLNK+12*, P10+4*, ZPAR+2*
, GENRET+3*, GENRET+5*, GENRET+7*, GENRET+9*, GENRET+11*
>> XPDDIQ("XPZ1" BMC4P12+46*, PRE+4*
>> XPDDIQ("XPZ2" BMC4P12+46*, PRE+4*
>> XPDENV BMC4P12+46, PRE+4
>> XPDQUIT BMC4P12+42, SORRY+2*
Y BMC4P12+29, BMC4P12+32, BMC4P12+37, INSTALLD+2~, INSTALLD+7, INSTALLD+9, INSTALLD+11, INSTALLD+13, INSTALLD+15*, INSTALLD+16
, INSTALLD+17, INSTALLD+18, POST+5~, POST+11, POST+12, POST+19~, POST+25, POST+26, PCCLNK+9~, P10+6
, P10+7, VREF+18, ZPAR+4, ZPAR+5, GENRET+4, GENRET+6, GENRET+8, GENRET+10, GENRET+11, GENRET+12
>> ZTQUEUED BMC4P12+6

Marked Items

Name Field # of Occurrence
$T( BMC4P12+10
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