Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls