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

Package: IHS Accounts Receivable

Routine: BAREV819


Information

BAREV819 ; IHS/SD/LSL - ENVIRONMENT CHECK V1.8 PATCH 819; 06/01/2010

Source Information

Source file <BAREV819.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 IX^DIC  FILE^DICN  IXALL^DIK  $$GET1^DIQ  
IHS VA Utilities 2 $$DIR^XBDIR  HELP^XBHELP  
Kernel 2 $$CJ^XLFSTR  ($$PATCH,$$VERSION,BMES)^XPDUTL  
IHS Accounts Receivable 1 ^BARVKL0  

Entry Points

Name Comments DBIA/ICR reference
ENTRY2 ;
; Create entry
25 ;;SENT TO COLLECTIONS;;STC
EN ;
INTROE ; Intro text during KIDS Environment check.
INTROI ; Intro text during KIDS Install.
POSTPPAY ; initial set of A/R Prepayment files
EN2 ;
1 ;;
SORRY(X) ;
VCHK(BARPRE,BARVER,BARQUIT)
ENTRY ;
; Create entry
3PB
INSTALLD(BARNM,BARVR,BARPT) ;EP ;RLT
; RLT - 04/05/05 - Per Don Jackson, modified this tag to use
; PATCH^XPDUTL. Removed the reverse $O, problem
; with XU patch numbers. VA (lower than 1000) and
; IHS patch numers (1000 and higher) not loaded
; in numerical order. No longer
; verifies that a lower version did not get
; reinstalled over a higher version.
POST ;EP - POST INSTALL

External References

Name Field # of Occurrence
^BARVKL0 ENTRY+4, ENTRY2+5
IX^DIC 3PB+12
FILE^DICN EN+10, EN2+13
IXALL^DIK POST+5
$$GET1^DIQ POSTPPAY+7
$$DIR^XBDIR 3PB+41
HELP^XBHELP 3PB+32, 3PB+38
$$CJ^XLFSTR BAREV819+13, BAREV819+14, BAREV819+20, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+26, 3PB+29, 3PB+31
, SORRY+3, VCHK+4
$$PATCH^XPDUTL INSTALLD+13
$$VERSION^XPDUTL VCHK+3, INSTALLD+10
BMES^XPDUTL POST+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0"
  • Line Location: BAREV819+5
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL"
  • Line Location: BAREV819+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM)
  • Line Location: BAREV819+13
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3),IOM)
  • Line Location: BAREV819+14
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least XU v8.0 Patch 1011..... "_$S(BARXU=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: BAREV819+20
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least Third Party Billing v2.6 Patch 4..... "_$S(BARABM=0:"NOT ",1:"")_"Present",IOM)
  • Line Location: 3PB+4
Function Call: WRITE
  • Prompt: !!,*7,*7,$$CJ^XLFSTR("You Have More Than One Entry In The",IOM)
  • Line Location: 3PB+14
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PACKAGE File with an ""BAR"" prefix.",IOM)
  • Line Location: 3PB+15
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("One entry needs to be deleted.",IOM)
  • Line Location: 3PB+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,*7,*7,*7
  • Line Location: 3PB+29
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM)
  • Line Location: 3PB+31
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !,"DUZ(0) UNDEFINED OR NULL."
  • Line Location: POST+12
Function Call: WRITE
  • Prompt: !!,"Initialize A/R PREPAYMENT files",!!
  • Line Location: POSTPPAY+4
Function Call: WRITE
  • Prompt: !," ",$$GET1^DIQ(4,BARDUZ2_",",.01,"E")
  • Line Location: POSTPPAY+7
Function Call: WRITE
  • Prompt: !!,"A/R PREPAYMENT file setup complete",!!
  • Line Location: POSTPPAY+8
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Need at least "_BARPRE_" v "_BARVER_"....."_BARPRE_" v "_BARV_" Present",IOM)
  • Line Location: VCHK+4
Routine Call
  • DIC
  • Line Location:
    • 3PB+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^DIC(9.4 - [#9.4] Classic Fileman Calls
^BAR(90052.01 - [#90052.01] Classic Fileman Calls
^BARTBL - [#90052.02] Classic Fileman Calls
^BARADJ - [#90056.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90052.06 POSTPPAY+5
^BARPPAY( POSTPPAY+6*
^DIC(9.4 - [#9.4] 3PB+13
^DIC(90050.06 POSTPPAY+13*, POSTPPAY+14*
^VA(200 - [#200] BAREV819+12

Label References

Name Line Occurrences
$$INSTALLD BAREV819+17, BAREV819+27, 3PB+1, 3PB+24
$$VCHK BAREV819+24, BAREV819+34
EN ENTRY+3
EN2 ENTRY2+4
ENTRY2 ENTRY+5
SORRY BAREV819+6, BAREV819+10, BAREV819+21, 3PB+5, 3PB+17, 3PB+27, 3PB+41, VCHK+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAR 3PB+22~, 3PB+24*, 3PB+25*, 3PB+26, 3PB+27
BARABM 3PB~, 3PB+1*, 3PB+2*, 3PB+3*, 3PB+4, 3PB+5
>> BARCNT ENTRY2+3*, EN2+1*
>> BARD ENTRY+2*, EN+1, EN+7, ENTRY2+2*, EN2+2, EN2+7, EN2+9, EN2+11
>> BARDUZ2 POSTPPAY+5*, POSTPPAY+6, POSTPPAY+7
>> BARIEN ENTRY+3*, EN+5
BARNM INSTALLD~, INSTALLD+10, INSTALLD+13, INSTALLD+15
>> BARNODE POSTPPAY+13*, POSTPPAY+14*
BARPATCH INSTALLD+8~, INSTALLD+13*, INSTALLD+14
BARPRE VCHK~, VCHK+3, VCHK+4
BARPT INSTALLD~, INSTALLD+13, INSTALLD+15
BARQUIT VCHK~, VCHK+5
BARV VCHK+2~, VCHK+3*, VCHK+4, VCHK+5
>> BARVALUE EN+1*, EN+7, ENTRY2+4, EN2+2*, EN2+3, EN2+7, EN2+9, EN2+11
BARVER VCHK~, VCHK+4, VCHK+5
BARVNUM INSTALLD+8~, INSTALLD+10*, INSTALLD+11, INSTALLD+15
BARVR INSTALLD~, INSTALLD+13
BARXB BAREV819+26~, BAREV819+27*, BAREV819+28*
BARXU BAREV819+16~, BAREV819+17*, BAREV819+18*, BAREV819+19*, BAREV819+20, BAREV819+21, BAREV819+29*
>> D 3PB+11*
DA 3PB+7~, EN+2!, EN2+4!
DD EN+9!, EN2+12!
DIC 3PB+7~, 3PB+9*, EN+2!, EN+3*, EN2+4!, EN2+5*
DIC("DR" EN+8*, EN2+10*, EN2+11*
DIC(0 3PB+10*, EN+4*, EN2+6*
DIFQ SORRY+1!, VCHK+5!
>> DIK POST+4*
>> DINUM EN+5*, EN2+7*
>> DLAYGO EN+6*, EN2+8*
DO EN+9!, EN2+12!
DUZ BAREV819+4, BAREV819+12, POST+10
DUZ(0 BAREV819+8, POST+12, POST+14
I 3PB+22~, 3PB+23*, 3PB+24, 3PB+25, 3PB+26
IOM BAREV819+13, BAREV819+14, BAREV819+20, 3PB+4, 3PB+14, 3PB+15, 3PB+16, 3PB+26, 3PB+29, 3PB+31
, SORRY+3, VCHK+4
U BAREV819+12
X BAREV819+12*, BAREV819+13, 3PB+8*, EN+2!, EN+7*, EN2+4!, EN2+9*, SORRY~, SORRY+2
>> XPDDIQ("XPZ1" 3PB+37*
>> XPDDIQ("XPZ2" 3PB+37*
>> XPDENV 3PB+34
XPDQUIT BAREV819+3!, 3PB+29, SORRY+2*, VCHK+5*
Y 3PB+13, EN+2!, EN2+4!
>> ZTQUEUED POST+14

Marked Items

Name Field # of Occurrence
$T( BAREV819+14
$T(@1+BARCNT EN2+2
$T(@BARIEN EN+1
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