Routine: DIQQQ

Package	Total	Call Graph
VA Fileman	7	2^DIA SUB^DICATT1 Q^DIP SUB^DIP21 ^DIP3 EN^DIQQ1 C^DIS

Package	Total	Caller Graph
VA Fileman	9	DIA DIA3 DICATT1 DICATT2 DICOMPW DIP1 DIP21 DIP3 DIS
IHS Generic Interface System	1	INHDIA3

Entry Points

External References

Name	Field # of Occurrence
2^DIA	DIA+2, DIA3
SUB^DICATT1	DICATT1+2
Q^DIP	DIP1
SUB^DIP21	DIP21+2
^DIP3	DIP3
EN^DIQQ1	DIS+6
C^DIS	DISC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"IF YOU WANT THE SAME ANSWER ALLOWED FOR ",F,!,"AS FOR " Line Location: DICATT+0
Function Call: WRITE	Prompt: !,"ENTER GLOBAL SUBSCRIPT NAME AT WHICH ",F," WILL BE STORED" Line Location: DICATT1+0
Function Call: WRITE	Prompt: !," ALREADY ASSIGNED: " Line Location: DICATT1+1
Function Call: WRITE	Prompt: $J(Y,9) Line Location: DICATT1+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>66 Line Location: DICATT1+1
Function Call: WRITE	Prompt: !! Line Location: DIS+1
Function Call: WRITE	Prompt: ! Line Location: DIS+6
Function Call: WRITE	Prompt: !,"YOU CAN NEGATE ANY OF THESE CONDITIONS BY PRECEDING THEM WITH ""'"" OR ""-""" Line Location: DISC+0
Function Call: WRITE	Prompt: !,"SO THAT ""'NULL'"" MEANS ""NOT NULL""",! Line Location: DISC+1
Function Call: WRITE	Prompt: $C(7),!,"YOU HAVE ASKED TO SORT ON THE SAME FIELD TWICE!",!,"PLEASE RE-ENTER YOUR SORT CRITERIA!" Line Location: DIP1+0
Function Call: WRITE	Prompt: !,"IF YOU WANT PAGE NUMBERING TO START AT A NUMBER HIGHER THAN 1, TYPE THAT NUMBER" Line Location: DIP3+0
Function Call: WRITE	Prompt: "FOLLOW A FIELD NAME WITH ';""CAPTION""' TO HAVE THE FIELD ASKED AS 'CAPTION: '" Line Location: DIA+0
Function Call: WRITE	Prompt: !?9,"OR WITH ';T' TO USE THE FIELD 'TITLE' AS CAPTION" Line Location: DIA+1
Function Call: WRITE	Prompt: !,$C(7),"CAPTIONS CANNOT CONTAIN ':' OR ';', OR BEGIN WITH A PERIOD OR A DIGIT",! Line Location: DIA3+0
Function Call: WRITE	Prompt: !,"THIS TEMPLATE MAY EVENTUALLY BE USED WITH A DIFFERENT 'SORT-BY' SEQUENCE.",! Line Location: DIP21+0
Function Call: WRITE	Prompt: "ANSWERING 'Y' HERE INSURES THAT, IN THAT CASE, USER WON'T HAVE TO REMEMBER" Line Location: DIP21+1
Function Call: WRITE	Prompt: !,"TO TYPE THE '@' IN ORDER TO KEEP SUB-HEADERS FROM APPEARING.",! Line Location: DIP21+2
Function Call: WRITE	Prompt: !?4,"AT THE TIME THE LOOKUP OCCURS IN FILE "_Y_", THERE MAY" Line Location: DICOMPW+0
Function Call: WRITE	Prompt: !?4,"BE MORE THAN 1 ENTRY FOUND. ANSWERING 'Y' HERE MEANS THAT THE" Line Location: DICOMPW+1
Function Call: WRITE	Prompt: !?4,"USER THEN WILL BE ALLOWED TO CHOOSE AMONG SEVERAL ENTRIES.",!! Line Location: DICOMPW+2
Function Call: WRITE	Prompt: !!,$C(7),"You must choose a template to store the fields selected for export." Line Location: XPDIP21+1
Function Call: WRITE	Prompt: !,"If you do not want to save the selections, use the '^'.",! Line Location: XPDIP21+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	DICATT1+1
>> DC	DIS+2, DIS+4
>> DK	DIS+6
>> DN	DIS+3
>> DQ	DIS+3, DIS+5
>> DU	DIS+6
>> E	DIS+6
>> F	DICATT, DICATT1
>> O(	DIS+2
>> T	DICATT1+1*
U	DIS+3
>> Y	DICATT1+1, DICATT1+2, DICOMPW

Customize PDF page

Package: VA Fileman

Routine: DIQQQ

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
XPDIP21	;from XPUT^DIP21
DICATT
DIP1
DIP3
DICOMPW
DIA
DISC
DIP21
DICATT1
DIA3
DIS	;