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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BTIUP13

Package: IHS Mods To Text Integration Utilities

Routine: BTIUP13


Information

BTIUP13 ; IHS/CIA/MGH - ENV CHECK FOR PATCH 1013;24-Mar-2015 15:19;DU

Source Information

Source file <BTIUP13.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  UPDATE^DIE  ^DIR  
Text Integration Utility 1 $$READ^TIUU  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP; beginning of pret install code
LOOKUP(FILE,NAME,TYPE,SCREEN,PROMPT) ;
; file = file # to perform lookup on
; [name] = for instance lookups - required if type is missing
; [type] = for inquiries to file (eg: "AEQ") - required if name is missing
; [screen] = screen for lookup/inquiries
; [prompt] = replace default prompt
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
EXIT
ENV ;EP environment check
REM ;
POST ;EP; beginning of post install code

External References

Name Field # of Occurrence
^DIC LOOKUP+10
UPDATE^DIE POST+22, POST+30
^DIR EXIT+1
$$READ^TIUU POST+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: ENV+6
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: ENV+9
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: ENV+12
Function Call: WRITE
  • Prompt: !!,"Installation Error: CLASS OWNER cannot be defined."
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: !!,"RESCINDED ADVANCE DIRECTIVE already exists."
  • Line Location: POST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: POST+5
Function Call: WRITE
  • Prompt: !!,"Installation Aborted due to TIMEOUT."
  • Line Location: POST+6
Function Call: WRITE
  • Prompt: !!,"Installation Aborted by USER."
  • Line Location: POST+7
Function Call: WRITE
  • Prompt: !!,"Installation Error: Invalid Selection",!
  • Line Location: POST+8
Function Call: WRITE
  • Prompt: !,"A DOCUMENT CLASS must be entered or '^' to abort."
  • Line Location: POST+9
Function Call: WRITE
  • Prompt: !!,"Creating RESCINDED ADVANCE DIRECTIVE title..."
  • Line Location: POST+21
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: POST+24
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: POST+25
Function Call: WRITE
  • Prompt: "DONE."
  • Line Location: POST+26
Function Call: WRITE
  • Prompt: !!,"Adding "_$P(^TIU(8925.1,TIUPRNT,0),U)_" as parent..."
  • Line Location: POST+29
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: POST+32
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: POST+33
Function Call: WRITE
  • Prompt: "DONE.",!
  • Line Location: POST+34
Function Call: WRITE
  • Prompt: !!,"The following error message was returned:",!
  • Line Location: POST+38
Function Call: WRITE
  • Prompt: !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
  • Line Location: POST+39
Function Call: WRITE
  • Prompt: "DONE.",!
  • Line Location: POST+40
Function Call: WRITE
  • Prompt: !,"*** The RESCINDED ADVANCE DIRECTIVE***"
  • Line Location: POST+41
Function Call: WRITE
  • Prompt: !,"*** title must be activated before use. ***"
  • Line Location: POST+42
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Routine Call
  • DIE
  • Line Location:
    • POST+22
    • POST+30
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+10
Routine Call
  • DIR
  • Line Location:
    • EXIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] PATCH+4, PATCH+5, PATCH+7, PATCH+8
^TIU(8925.1 - [#8925.1] POST+29, REM+3*

Label References

Name Line Occurrences
$$LOOKUP POST+2, POST+3, POST+5, POST+17, REM+2
$$PATCH ENV+5, ENV+8, ENV+11
EXIT POST+2, POST+3, POST+11, POST+23, POST+31, POST+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC LOOKUP+7~*
DIC("A" LOOKUP+9*
DIC("S" LOOKUP+7*
DIC(0 LOOKUP+8*
DIR EXIT+1~
DIR(0 EXIT+1*
DTOUT POST+1~, POST+6
DUOUT POST+1~, POST+7
FILE LOOKUP~, LOOKUP+7
I PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IN ENV+1~
INSTDA ENV+1~
J PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
NAME LOOKUP~, LOOKUP+7
NUM PATCH+3~, PATCH+8*, PATCH+9
PATCH ENV+1~, ENV+4*, ENV+5, ENV+6, ENV+7*, ENV+8, ENV+9, ENV+10*, ENV+11, ENV+12
PROMPT LOOKUP~, LOOKUP+9
SCREEN LOOKUP~, LOOKUP+7
STAT ENV+1~
TIU POST+1~
TIU( POST+12*, POST+13*, POST+14*, POST+15*, POST+16*, POST+17*, POST+18*, POST+19*, POST+20*, POST+27*
, POST+28*, POST+36*
TIUFPRIV POST+1~*
TIUIEN POST+1~
TIUIEN( POST+35*
TIUIEN(1 POST+27, POST+35, POST+36
TIUMSG POST+1~, POST+23, POST+25*, POST+31, POST+33*, POST+37, POST+39*
TIUMSG("DIERR" POST+25, POST+33, POST+39
TIUPRNT POST+1~, POST+4, POST+5*, POST+8, POST+10*, POST+11, POST+27, POST+28, POST+29
TIUTMP POST+1~, REM+1~, REM+2*, REM+3
TYPE LOOKUP~, LOOKUP+8
U POST+29, REM+3
X PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, EXIT+1~, LOOKUP+7~*
>> XPDABORT ENV+6*, ENV+9*, ENV+12*, POST+2*, POST+4, POST+6*, POST+7*, POST+23*, POST+31*, POST+37*
>> XPDDIQ("XPZ1" ENV+2*
>> XPDDIQ("XPZ2" ENV+2*
Y EXIT+1~, LOOKUP+7~, LOOKUP+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All