Routine: AQAOPAR

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

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

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

>>	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

Customize PDF page

Package: Quality Assurance

Routine: AQAOPAR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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