Routine: PSODEARP

Information

PSODEARP ;ALB/BI - DEA EXPIRATION DATE REPORT ;10/12/22 16:32

Name	Comments	DBIA/ICR reference
EN
GUI	; Entry point for ePCS GUI Report
DEVICE
COMPILE(PSCPRSSA,PSOEDS,PSOCPRSU,PSOPROB)
RUN(PSHEADER,PSCPRSSA,PSOEDS,PSOCPRSU)
HDR(PSHEADER)
CHKP(PSHEADER)
TITLES()
TEST(PSODNOBJ,PSONPOBJ,PSCPRSSA,PSOEDS,NPIEN,PSOCPRSU)
TYPE()	;Prompt for report format or delimited list
CPRSUSRS(STATUS)	; Ask user if they want to constrain report to users with ACCESS CODE (CPRS Users) or ALL (e.g., Comm Care/Non-VA) ; Active CPRS System Access only, or ALL active access (i.e., no ACCESS CODE for Community Care/Non-VA providers)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report requires 512 Columns" Line Location: EN+3
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+7
Function Call: WRITE	Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,1),! Line Location: RUN+11
Function Call: WRITE	Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,2),! Line Location: RUN+13
Function Call: WRITE	Prompt: ^TMP($J,"PSODEARP",PSOTD,PSONAME,PSCOUNT2,3),! Line Location: RUN+14
Function Call: WRITE	Prompt: !,"PROBLEM INDICATES BAD CROSS REFERENCE IN NEW PERSON FILE.",!,"CONTACT PRODUCT SUPPORT TO RESOLVE.",! Line Location: RUN+16
Function Call: WRITE	Prompt: !,@IOF Line Location: RUN+18
Function Call: WRITE	Prompt: @IOF,?(IOM-83),"DEA Expiration Date Report" Line Location: HDR+3
Function Call: WRITE	Prompt: !,PSHEADER,?(IOM-45)," Run Date: ",$$FMTE^XLFDT(DT,"5DZ"),?(IOM-12)," Page: ",PSOPAGE,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$TITLES Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "-" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: TYPE+3