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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AQAOPAR

Package: Quality Assurance

Routine: AQAOPAR


Information

AQAOPAR ; IHS/ORDC/LJF - ADD ENTRY TO QI PARAMETER FILE ;

Source Information

Source file <AQAOPAR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 6 ^DIC  FILE^DICN  DQ^DICQ  ^DIE  EN^DIQ1  ^DIR  
Quality Assurance 2 CURRENT^AQAOPAR1  KILL^AQAOUTIL  

Entry Points

Name Comments DBIA/ICR reference
RESET ; >> reset to remaining links selected
SURE ; >>> ask user if he is sure he wants to add this facility
EDIT ;ENTRY POINT for editing of qi parameter file
MENU ; >>> ask user for facility to edit then which links
RICU ;ENTRY POINT called by xecute help on Return to ICU-# of days field
SITE ; >>> ask user for facility name
SERVICES ; >> link services to this linkage
DUPOKAY ; >> ask user if dup entry okay for linkage
ADD ; >>> set variables and call file^dicn
MENU1
EXIT ; >>> eoj
IND ; >> indicator edit
INDQUES ;ENTRY POINT called by xecute help on indicator fields
LNKQUES ;ENTRY POINT called by xecute help on link fields
DUPQUES ;ENTRY POINT called by xecute help on dupl okay? fields
LOOP ; >>> loop thru links chosen and edit

External References

Name Field # of Occurrence
CURRENT^AQAOPAR1 SERVICES+1
KILL^AQAOUTIL EXIT+2
^DIC SITE+2, MENU+3
FILE^DICN ADD+5
DQ^DICQ INDQUES+2
^DIE IND+11, DUPOKAY+2
EN^DIQ1 LOOP+7
^DIR SURE+6, MENU1+9, IND+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SITE+1
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 LINKAGES and select the same facility."
  • Line Location: ADD+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !!?5,"Select AUTOMATIC LINKAGES to EDIT . . .",!
  • Line Location: MENU1+0
Function Call: WRITE
  • Prompt: !!!,"Current status of ",$P(^DD(9002166.4,AQAOI,0),U),": "
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: ^UTILITY("DIQ1",$J,9002166.4,AQAOFAC,AQAOI)
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !?11,"INDICATOR: "
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: $S(^UTILITY("DIQ1",$J,9002166.4,AQAOFAC,AQAOI+1)="":"<NONE DEFINED>",1:^(AQAOI+1))
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: ?40,"OKAY TO DUPLICATE ON SAME DAY: "
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: ^UTILITY("DIQ1",$J,9002166.4,AQAOFAC,AQAOI+3)
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: IND+1
Function Call: WRITE
  • Prompt: !!,*7,"INDICATOR DOES NOT EXIST IN FILE!"
  • Line Location: IND+7
Function Call: WRITE
  • Prompt: !!,*7,"INDICATOR DOES NOT EXIST IN FILE!"
  • Line Location: IND+9
Function Call: WRITE
  • Prompt: !!,*7,"INDICATOR INACTIVE!"
  • Line Location: IND+10
Function Call: WRITE
  • Prompt: !!?5,"Answer YES to allow a duplicate event on the same day to "
  • Line Location: DUPQUES+1
Function Call: WRITE
  • Prompt: !?5,"create another occurrence; Answer NO to allow only ONE event"
  • Line Location: DUPQUES+2
Function Call: WRITE
  • Prompt: !?5,"per day to be entered as an occurrence.",!!
  • Line Location: DUPQUES+3
Function Call: WRITE
  • Prompt: !!?5,"Answer ON to turn on the link;"
  • Line Location: LNKQUES+1
Function Call: WRITE
  • Prompt: !?5,"Answer OFF to turn off the link.",!!
  • Line Location: LNKQUES+2
Function Call: WRITE
  • Prompt: !!,"Enter the number of days between stays in ICU that you want"
  • Line Location: RICU+1
Function Call: WRITE
  • Prompt: !,"to track. FOr example, to track all returns to ICU within 72"
  • Line Location: RICU+2
Function Call: WRITE
  • Prompt: !,"hours, enter 3 for three days.",!!
  • Line Location: RICU+3
Routine Call
  • DIE
  • Line Location:
    • IND+11
    • DUPOKAY+2
Routine Call
  • DIC
  • Line Location:
    • SITE+2
    • MENU+3
Routine Call
  • DIR
  • Line Location:
    • SURE+6
    • MENU1+9
    • IND+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AQAGP - [#9002166.4] Classic Fileman Calls
^AQAO(2 - [#9002168.2] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AQAGP - [#9002166.4] SITE+4, EXIT+1, MENU+1, MENU+5, MENU1+4, IND+4, SERVICES+1
^AQAGP(0 ADD+3, ADD+5
^AQAO(2 - [#9002168.2] IND+7, IND+8, IND+10
^DD(9002166.4 MENU1+5, LOOP+4, IND+1
^UTILITY("DIQ1" EXIT+2!, LOOP+5!, LOOP+7, LOOP+9, LOOP+11

Label References

Name Line Occurrences
EDIT MENU+5
EXIT SITE+3, SURE+6, ADD+3, ADD+7, MENU+4
IND IND+7, IND+9, IND+10
LOOP RESET+3
MENU MENU+4, MENU1+9, IND+6
MENU1 RESET+2
RESET IND+6
SITE SITE+3, SITE+4, SURE+6, ADD+11

Naked Globals

Name Field # of Occurrence
^( LOOP+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAOC MENU1+3*, MENU1+4*, MENU1+5, MENU1+6, MENU1+7, MENU1+8
>> AQAOFAC SITE+3*, SITE+4, ADD+2, EXIT+1, MENU+1, MENU+4*, MENU+5, MENU1+4, LOOP+6, LOOP+7
, LOOP+9, LOOP+11, IND+4, IND+11, DUPOKAY+1, SERVICES+1
>> AQAOI LOOP+1*, LOOP+4, LOOP+6, LOOP+7, LOOP+9, LOOP+11, IND+1, IND+4, IND+11, DUPOKAY+1
, SERVICES+1
>> AQAORNG MENU1+9*, LOOP+1, RESET+1*, RESET+2
>> D INDQUES+1*
>> DA LOOP+6*, IND+11*, DUPOKAY+1*
DD ADD+1!
DIC SITE+1!*, SURE+1!, ADD+1!*, MENU+2!*, MENU1+1!, LOOP+6*, DUPOKAY+1!, INDQUES+1*
DIC("A" SITE+2*, MENU+3*
DIC("DR" ADD+2*
DIC(0 SITE+1*, ADD+1*, MENU+2*, INDQUES+1*
DIE IND+11!*, DUPOKAY+1!*
>> DINUM ADD+2*
DIR SURE+1!, ADD+1!, MENU1+1!, IND+1!
DIR("?" SURE+3*, SURE+4*, SURE+5*, IND+2*
DIR("??" IND+3*
DIR("A" SURE+2*, MENU1+2*, MENU1+5*, MENU1+6, MENU1+7*, MENU1+8*, IND+1*
DIR("B" SURE+1*, IND+4*, IND+5!
DIR(0 SURE+1*, MENU1+1*, IND+1*
>> DIRUT SURE+6, MENU1+9
>> DLAYGO ADD+1*
DO ADD+1!
>> DR LOOP+6*, IND+11*, DUPOKAY+1*
>> DTOUT SITE+3, MENU+4, IND+6
>> DUOUT SITE+3, MENU+4, IND+6
>> DZ INDQUES+1*
>> I MENU1+3*, MENU1+4, MENU1+5, LOOP+6*
U MENU1+4, MENU1+5, LOOP+4, IND+1, IND+4, IND+10, SERVICES+1
>> X SITE+3, ADD+2*, MENU+4, MENU1+4*, MENU1+7
>> Y SITE+3, SURE+6, ADD+7, MENU+4, MENU1+6*, MENU1+9, IND+7, IND+8, IND+11
>> Z MENU1+6*, MENU1+7, IND+8*, IND+9, IND+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All