Routine: PRCSP133

Information

PRCSP133 ;SF-ISC/LJP-2237 CON'T - DISTRIBUTION LIST ;9/17/97 10:49

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
LST
LST1
DS
DS1
DS2
HDR
HDR0
HDR1	;S X="" D DIWP^PRCUTL($G(DA)) S X="Multiple Delivery Distribution List" D DIWP^PRCUTL($G(DA))
HDR2
WRT

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Continue: " Variable: Z1 Timeout: 60 Line Location: HDR+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !!,"Multiple Delivery Distribution List",! Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"Multiple Delivery Distribution List",! Line Location: HDR0+0
Function Call: WRITE	Prompt: !,"MULTIPLE DELIVERY DISTRIBUTION LIST",?50,"PAGE: ",$S($D(PRCSPG):PRCSPG,1:"") Line Location: HDR2+0
Function Call: WRITE	Prompt: ?3,^UTILITY($J,"W",DIWL,PRCSILP,0),! Line Location: WRT+1
Function Call: WRITE	Prompt: ! Line Location: WRT+4
Function Call: WRITE	Prompt: ?3,^UTILITY($J,"W",DIWL,Z,0) Line Location: WRT+5
Function Call: WRITE	Prompt: ! Line Location: WRT+5
Function Call: WRITE	Prompt: ?3,^UTILITY($J,"W",DIWL,1,0) Line Location: WRT+6
Function Call: WRITE	Prompt: ! Line Location: WRT+6