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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AVAP4

Package: IHS VA Support Files

Routine: AVAP4


Information

AVAP4 ;IHS/ORDC/LJF - CLEANUP PROVIDER CLASS ENTRIES; [ 05/11/94 2:57 PM ]

Source Information

Source file <AVAP4.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS VA Support Files 3 AVA32P17  AVA32P22  AVAP7  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
CLASS ;EP >> kill off file 6 entries if no zero node
; then if provider class set in file 200, fire xrefs for
; provider class, affiliation, and code

External References

Name Field # of Occurrence
^DIE CLASS+23, CLASS+24
^DIR CLASS+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This program will cleanup bad entries in your PROVIDER file"
  • Line Location: CLASS+5
Function Call: WRITE
  • Prompt: !,"and recreate them if a PROVIDER CLASS has been entered for the"
  • Line Location: CLASS+6
Function Call: WRITE
  • Prompt: !,"provider in the NEW PERSON file."
  • Line Location: CLASS+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLASS+8
Function Call: WRITE
  • Prompt: !!,"CLEANUP COMPLETE",!
  • Line Location: CLASS+28
Routine Call
  • DIE
  • Line Location:
    • CLASS+23
    • CLASS+24
Routine Call
  • DIR
  • Line Location:
    • CLASS+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(16 - [#16] CLASS+17
^DIC(3 - [#3] CLASS+19
^DIC(6 - [#6] CLASS+12, CLASS+13, CLASS+14, CLASS+15!, CLASS+16!
^VA(200 - [#200] CLASS+18, CLASS+20

Naked Globals

Name Field # of Occurrence
^(9999999 CLASS+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AVA200 CLASS+17*, CLASS+18, CLASS+19, CLASS+20, CLASS+23, CLASS+26, EOJ+1!
AVA6 CLASS+11*, CLASS+12*, CLASS+13, CLASS+14, CLASS+15, CLASS+16, CLASS+17, CLASS+19, EOJ+1!
>> AVACLS CLASS+20*, CLASS+21, CLASS+24
DA CLASS+23*, EOJ+1!
DIE CLASS+23*, EOJ+1!
DIR CLASS+8!, EOJ+1!
DIR("A" CLASS+9*
DIR("B" CLASS+8*
DIR(0 CLASS+8*
DR CLASS+23*, CLASS+24*, EOJ+1!
U CLASS+4*, CLASS+14, CLASS+15, CLASS+17, CLASS+19, CLASS+20
X EOJ+1!
Y CLASS+9, EOJ+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All