Routine: PSODEARW

Information

PSODEARW ;WILM/BDB - INTEGRITY CHECK ON DEA NUMBERS ;2/28/22 17:25

Name	Comments	DBIA/ICR reference
EN
DEVICE
RUN(PSHEADER)
COMPILE
HDR(PSHEADER)
CHKP(PSHEADER)
TITLES()
TYPE()	;Prompt for report format or delimited list

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEVICE+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+14
Function Call: WRITE	Prompt: "There is no Data to Print",! Line Location: RUN+6
Function Call: WRITE	Prompt: ^TMP($J,"PSODEARW",PSCOUNT2,1),! Line Location: RUN+8
Function Call: WRITE	Prompt: !,@IOF Line Location: RUN+10
Function Call: WRITE	Prompt: @IOF,PSHEADER,?(IOM-31),"Run Date: ",$$FMTE^XLFDT(DT,"5DZ")," Page: ",PSOPAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$TITLES Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: TYPE+3