Routine: PXRMDLR2

Information

PXRMDLR2 ;SLC/AGP - Dialog reporting routine to find active CPRS dialogs ;09/14/2017

Name	Comments	DBIA/ICR reference
ASK(YESNO,PROMPT,NUM)
FINDDIAL	;
ENF	;
END	;
ENC	;
ENU	;
ENR	;
PROCESS	;
OUTPUT	;
ENX	;
ADDDREAS(TYPE,IEN,REASON)	;add reason the dialog/dialog items in on the list
ADDFREAS(TYPE,GBL,FIND,REASON)	;add the reason a finding item is on the list. For now only Taxonomies
BLDLIST	;build list of dialogs that contains the selected search items
BLDREAS(DARRAY,GBL,IEN)	;get finding item type and name
CPRSCOM(FINAL,DLIST,NAME)	;
CPRSTDLG(TEMPDIAL,TLIST)	;
CODES	;
CPRSLIST	;
DIALOG	;
FINDING	;
FINDORD(GBL,FIEN)	;
GETCPRSL(DLIST,USER,LOC)	;
GETCPRSC(FINAL)	;
GETDIAL(IEN,REASON)	; recurrsive function that follows up the AD cross-references
GETITEMS	;
GETVALS(GBL,TYPE,INST)	;
MERGE(FINAL)	;
PRINT	;
PROMPTS(ITEM)	;
RETTYPE(T)	;
SELECT(TYPE,DIC,INST)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+8
Function Call: WRITE	Prompt: !!,"Cannot search by CPRS Paramater(s), Reminder New Parameter not set to Yes" Line Location: ENC+1
Function Call: WRITE	Prompt: !,"No parent dialogs found." Line Location: PROCESS+3
Function Call: WRITE	Prompt: !,"No Dialog Found" Line Location: OUTPUT+1
Function Call: WRITE	Prompt: !!,"Select from the following coding systems:" Line Location: CODES+8
Function Call: WRITE	Prompt: IORESET Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: SELECT+3