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

Package: ODS

Routine: A1B2PST


Information

A1B2PST ;ALB/MJK - ODS Post Init ; 14 JAN 1991

Source Information

Source file <A1B2PST.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  EN^DIEZ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
ODS 1 A1B2SUP  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- entry point to run post-init
MG ; -- add confirmation mail group
MGQ
DIEZ ; -- compile input templates
POS ; -- add ODS period of service
PAR ; -- set up parameter file entry
DEL ; -- call to remove delete routines
ASK
QD
BOS ; -- check Branch of Service entries
NAMES ; -- BOS names

External References

Name Field # of Occurrence
^DIC MG+1, POS+3, PAR+4
YN^DICN ASK+6
EN^DIEZ DIEZ+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,">>> New 'ODS CONFIRMATION' confirmation mail group added..."
  • Line Location: MG+6
Function Call: WRITE
  • Prompt: !!,">>> Will now compile three DG and SD input templates affected"
  • Line Location: DIEZ+2
Function Call: WRITE
  • Prompt: !," by this package (3 templates)..."
  • Line Location: DIEZ+3
Function Call: WRITE
  • Prompt: !!,A1B2LINE
  • Line Location: DIEZ+5
Function Call: WRITE
  • Prompt: !!,*7,">>> Also, please use the 'Recompile HINQ templates' option"
  • Line Location: DIEZ+6
Function Call: WRITE
  • Prompt: !," to recompile the 'DVBHINQ UPDATE' input template."
  • Line Location: DIEZ+7
Function Call: WRITE
  • Prompt: !,*7,">>> Could not add 'OPERATION DESERT SHIELD' Period of Service."
  • Line Location: POS+4
Function Call: WRITE
  • Prompt: !,">>> 'OPERATION DESERT SHIELD (Code: 6)' Period of Service has been added."
  • Line Location: POS+5
Function Call: WRITE
  • Prompt: !!,">>> ODS PARAMETER file entry added."
  • Line Location: PAR+5
Function Call: WRITE
  • Prompt: !,"^%ZOSF(""DEL"") does not exist"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,">>> This routine will permanantly remove the routines:"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !," A1B2NAT"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !," A1B2P1",!
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !," WARNING: If either of the listed routines are mapped, they"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !," must first be removed from the mapped set to avoid"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !," further complications!",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !?5,"Respond 'Y'es or 'N'o"
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"Routine deletion starting..."
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !?5,"...removing ",X
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"Routine deletion completed."
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !!,">>> Will now check entries in your 'Branch of Service' file..."
  • Line Location: BOS+2
Function Call: WRITE
  • Prompt: !?10,X,$E(DOTS,1,25-$L(X))
  • Line Location: BOS+4
Function Call: WRITE
  • Prompt: $S($D(^DIC(23,+Y,0)):"",1:"not "),"present"
  • Line Location: BOS+4
Function Call: WRITE
  • Prompt: !!," You should use VA FileMan to enter/edit missing branches."
  • Line Location: BOS+5
Routine Call
  • DIC
  • Line Location:
    • MG+1
    • POS+3
    • PAR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(21 - [#21] Classic Fileman Calls
^XMB(3.8 - [#3.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("DEL" DEL+1, ASK+8
^%ZOSF("TEST" ASK+8
^A1B2(11500.5 PAR+1
^DD("ROU" DIEZ+4
^DIC(23 - [#23] BOS+4
^DIC(4.2 - [#4.2] PAR+2
^DIE - [#.402] DIEZ+5
^DIE("B" DIEZ+5
^XMB(3.8 - [#3.8] MG+3*, MG+4*, MG+5*

Label References

Name Line Occurrences
ASK ASK+6
DEL EN+1
MGQ MG+2
QD DEL+1, ASK+6

Naked Globals

Name Field # of Occurrence
^("ROUOLD" DIEZ+5
^(0 DIEZ+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK+6*, QD!
A1B20 DIEZ+9!
A1B2EMP DIEZ+9!
A1B2LINE DIEZ+4!*, DIEZ+5, DIEZ+9!
A1B2MAX DIEZ+4*, DIEZ+5, DIEZ+9!
A1B2X DIEZ+5*, DIEZ+9!, ASK+8*, QD!
DGI DIEZ+9!
DIC MG+1*!, POS+1*, POS+3!, PAR+3*, PAR+4!
DIC("DR" MG+1*, POS+2*, PAR+3*
DIC(0 MG+1*, POS+1*, PAR+3*
>> DMAX DIEZ+5*
DOTS BOS+3*, BOS+4, BOS+6!
DUZ MG+1
E BOS+3*, BOS+4*, BOS+5, BOS+6!
I BOS+4*, BOS+6!
U MG+2, DIEZ+4*, POS+5, PAR+5
X MG+1*, DIEZ+5*, POS+1*, PAR+3*, ASK+8*, QD!, BOS+4*, BOS+6!
Y MG+2, MG+3, MG+4, MG+5, DIEZ+5*, POS+4, POS+5, PAR+2*, PAR+3, PAR+5
, BOS+4*, BOS+6!

Marked Items

Name Field # of Occurrence
$T(NAMES+I BOS+4
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