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

Package: Incident Reporting

Routine: QANPST2


Information

QANPST2 ;B'ham ISC/PTD-Post-Init Routine to Add 'Extended Care' to the National Service File ;7/15/92

Source Information

Source file <QANPST2.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT ;Quit
WARN ;Warning message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"National Service File - #730 does not exist on your system.",!,"Post-Init routine unable to add new entry!"
  • Line Location: QANPST2+2
Function Call: WRITE
  • Prompt: !,"'EXTENDED CARE' will now be added to file 730 - National Service File.",!,"..."
  • Line Location: QANPST2+3
Function Call: WRITE
  • Prompt: !,*7,"National Service file CANNOT be accessed, ",!,"try again later! "
  • Line Location: QANPST2+6
Function Call: WRITE
  • Prompt: !,"National Service File updated!",!,"'EXTENDED CARE' entry has been added.",!!
  • Line Location: QANPST2+10
Function Call: WRITE
  • Prompt: !!,*7,"It appears that local additions have been made to the National Service File.",!,"Local additions are ONLY allowed through the Interim Management Support",!,"software, beginning with DA #1000."
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: " Since local modifications have been made,",!,"it is the site's responsibility to delete illegal entries and re-run the",!,"post-init routine.",!
  • Line Location: WARN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECC(730 - [#730] QANPST2+2, QANPST2+3, QANPST2+4, QANPST2+5, QANPST2+6, QANPST2+7*, QANPST2+8*, QANPST2+9

Label References

Name Line Occurrences
EXIT QANPST2+2, QANPST2+4, QANPST2+5, QANPST2+6
WARN QANPST2+5

Naked Globals

Name Field # of Occurrence
^(0 QANPST2+4, QANPST2+5
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals  | All