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

Package: Quality Assurance

Routine: AQAOPOS2


Information

AQAOPOS2 ; IHS/ORDC/LJF - POST INIT CONTINUED ;

Source Information

Source file <AQAOPOS2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 ^DIC  FILE^DICN  ^DIE  ENALL^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Quality Assurance 1 AQAOPOS1  

Entry Points

Name Comments DBIA/ICR reference
SURE ; ask user if he is sure he wants to add this facility
31
ADD ; set variables and call file^dicn
3 ; step 3 - create primary facility entry in parameter file
5 ; step 5 - add AQAOVST to PCC Visit Merge Utility
4 ; step 4 - set up pkg administrator
7 ; -- convert provider data to variable pointer
6 ;step 6 - kill old xrefs no longer used
MAIN

External References

Name Field # of Occurrence
^DIC 3+8, 4+18
FILE^DICN ADD+5, 4+37, 5+8
^DIE 4+31
ENALL^DIK 7+6
^DIR SURE+6, 4+30, 4+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"STEP 3 - SET UP YOUR FACILITY IN PARAMETER FILE",!!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: 3+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SURE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !!,"CREATING ENTRY . . ."
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !!,"**ERROR** COULD NOT CREATE ENTRY IN FILE!"
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !!,"ENTRY CREATED!"
  • Line Location: ADD+8
Function Call: WRITE
  • Prompt: !!,"To ACTIVATE any of the automatic linkages, please use the option"
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !,"titled EDIT PARAMETER FILE and select the same facility."
  • Line Location: ADD+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,"STEP 4 - DEFINE QAI PACKAGE ADMINISTRATOR",!!
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !,"Due to the extra security measures implemented in this package,"
  • Line Location: 4+2
Function Call: WRITE
  • Prompt: !,"no one can access the main QAI menu without having the proper"
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: !,"entry in the QI USER file. This step will create an entry for"
  • Line Location: 4+4
Function Call: WRITE
  • Prompt: !,"the QI staff person who will be responsible for all the"
  • Line Location: 4+5
Function Call: WRITE
  • Prompt: !,"administrative duties involved in running this package. This"
  • Line Location: 4+6
Function Call: WRITE
  • Prompt: !,"should be a QI staff member, NOT the site manager. This person"
  • Line Location: 4+7
Function Call: WRITE
  • Prompt: !,"can add more package administrators, if necessary.",!!
  • Line Location: 4+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: 4+33
Function Call: WRITE
  • Prompt: !!,"**ERROR** Could not create entry!"
  • Line Location: 4+38
Function Call: WRITE
  • Prompt: !!,"Make sure the Package Administrator is given ALL security"
  • Line Location: 4+39
Function Call: WRITE
  • Prompt: !,"keys in the AQAO namespace BUT only if QAI training has been"
  • Line Location: 4+40
Function Call: WRITE
  • Prompt: !,"given by the developer OR area trainer",!!
  • Line Location: 4+41
Function Call: WRITE
  • Prompt: !!,"STEP 5 - UPDATE PCC VISIT MERGE UTILITY",!!
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !,"I will now add an entry for QAI into the MODULE PCC LINK CONTROL"
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: !,"file. This insures visit merges will be reflected in those"
  • Line Location: 5+3
Function Call: WRITE
  • Prompt: !,"occurrences pointing to the affected visits.",!!
  • Line Location: 5+4
Function Call: WRITE
  • Prompt: !!,"STEP 6 - KILL OLD CROSS-REFERENCES NO LONGER USED",!!
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !,"I will now kill any cross-references used during alpha testing"
  • Line Location: 6+2
Function Call: WRITE
  • Prompt: !,"that are no longer needed by the software",!!
  • Line Location: 6+3
Function Call: WRITE
  • Prompt: !,"Kill ^AQAOCC(7,""AC"")"
  • Line Location: 6+4
Function Call: WRITE
  • Prompt: !,"Kill ^AQAOC(""AFF"")"
  • Line Location: 6+5
Function Call: WRITE
  • Prompt: !!,"CONVERTING provider data to new structure. . ."
  • Line Location: 7+1
Routine Call
  • DIE
  • Line Location:
    • 4+31
Routine Call
  • DIC
  • Line Location:
    • 3+8
    • 4+18
Routine Call
  • DIR
  • Line Location:
    • SURE+6
    • 4+30
    • 4+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCDLINK - [#9001002] Classic Fileman Calls
^AQAGP - [#9002166.4] Classic Fileman Calls
^AQAOCC(7 - [#9002166.7] Classic Fileman Calls
^AQAO(9 - [#9002168.9] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDLINK("B" 5+5
^AQAGP - [#9002166.4] 3+2, 31
^AQAGP(0 ADD+3, ADD+5
^AQAO(9 - [#9002168.9] 4+10, 4+12, 4+21, 4+25
^AQAOC("AFF" 6+5!
^AQAOCC(7 - [#9002166.7] 6+4!, 7+2!, 7+3, 7+4, 7+5*
^DIC(4 - [#4] 3+3, 3+7
^VA(200 - [#200] 4+13

Label References

Name Line Occurrences
3 MAIN, 3+9, SURE+6
4 MAIN, ADD+7, 4+19, 4+35
5 MAIN
6 MAIN
7 MAIN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAOFAC 3+9*, 31, ADD+2
>> AQAOX 4+19*, 4+21, 4+25, 4+31, 4+36
>> DA 4+31*
DD ADD+1!, 4+36!, 5+6!
DIC 3+6!*, SURE+1!, ADD+1!*, 4+16!*, 4+36!*, 5+6*
DIC("A" 3+8*, 4+18*
DIC("B" 3+7*
DIC("DR" ADD+2*, 4+37*, 5+7*
DIC("S" 4+17*
DIC(0 3+6*, ADD+1*, 4+16*, 4+36*, 5+6*
>> DIE 4+31*
DIK 7+2~, 7+6*
DIK(1 7+6*
>> DINUM ADD+2*, 4+36*
DIR SURE+1!, ADD+1!, 4+28!, 4+33!
DIR("?" SURE+3*, SURE+4*, SURE+5*
DIR("A" SURE+2*, 4+29*, 4+34*
DIR("B" SURE+1*, 4+28*
DIR(0 SURE+1*, 4+28*, 4+33*
>> DIRUT SURE+6
>> DLAYGO ADD+1*, 5+6*
DO ADD+1!, 4+36!, 5+6!
>> DR 4+31*
DT 4+37
>> DTOUT 3+9, 4+19
>> DUOUT 3+9, 4+19
DUZ 4+37
DUZ(2 3+2, 3+3, 3+7
U 3+3, 3+7, 4+13, 7+4, 7+5
X 3+9, ADD+2*, 4+12*, 4+13, 4+36*, 5+8*, 7+2~, 7+3*, 7+4, 7+5
Y 3+9, SURE+6, ADD+7, 4+19, 4+30, 4+35, 4+38, 7+2~, 7+4*, 7+5
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 |  Local Variables |  All