Prompt: !!,"Choose Domains to request Email Directories for."
Line Location: SINGLE+1
Function Call: WRITE
Prompt: $C(7)," ??? No entry in Domain File (4.2) for domain '",I,"'. [S(I)+2^XMDIRQST]"
Line Location: S+3
Function Call: WRITE
Prompt: $C(7)," ??? The directory request for ",X," (`",I,") is NOT permitted since it is accessed via relay domain '",$P($G(^DIC(4.2,+R,0)),U)," (`",R,"). [S(I)+3^XMDIRQST] "
Line Location: S+4
Function Call: WRITE
Prompt: $C(7)," ??? The request for a directory from ",X," (`",I,") is NOT permitted as it is through FOC-AUSTIN. [S(I)+4^XMDIRQST]"
Line Location: S+5
Function Call: WRITE
Prompt: $C(7)," ??? The request for a directory from ",X," (`",I,") is NOT permitted since it is a relay domain (Q-...). [S(I)+5^XMDIRQST]"
Line Location: S+6
Function Call: WRITE
Prompt: $C(7)," ??? You may not request a directory from your own site."
Line Location: S+7
Function Call: WRITE
Prompt: !!,$C(7),"TASK #"_ZTSK_" scheduled for "_NETADDR
Line Location: TASK+7
Function Call: WRITE
Prompt: !!,"Group Number ",X," contains following Domain names : "
Line Location: GROUP+7
Function Call: WRITE
Prompt: !,$P(^DIC(4.2,I,0),U)
Line Location: GROUP+8
Function Call: WRITE
Prompt: !!
Line Location: GROUP+9
Function Call: WRITE
Prompt: !!,"Enter the Domain name whose Directory Requests Flag you wish to edit."