Routine: PRCH4RPT

Information

PRCH4RPT ;RB/VM-Print Purchase Card exception reports ;09/15/08

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;125;Oct 20, 2000;Build 15
RPT	;select card exception/replacement report type
DEV	;device
PRT	;print
COMP	;compile reports
COMP1
SAVE
LIST	;print report
L1
L2
HDR	;header
EOP()	; end of page check - return 1 to quit, 0 to continue ;
EXIT
EXITZ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: L2+3
Function Call: WRITE	Prompt: $P(PRCA,U),?29,$P($G(^VA(200,+$P(PRCA,U,8),0)),U) Line Location: L2+4
Function Call: WRITE	Prompt: $P(PRCA,U),?25,$P($G(^PRC(440.5,PRCC,0)),U),?48,$P($G(^VA(200,+$P(PRCA,U,8),0)),U) Line Location: L2+5
Function Call: WRITE	Prompt: @IOF,!,"STATION: ",$G(PRC("SITE")),?25,"DEPARTMENT OF VETERANS AFFAIRS",?(IOM-10),"Page ",$J(PAGE,3) Line Location: HDR+2
Function Call: WRITE	Prompt: !,?30,$P($$UP^XLFSTR(X),":",1,2) Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"** ",$P("ALL Citibank cards with No US Bank replacement #^Active Citibank cards with No US Bank replacement #^Inactive Citibank cards with US Bank replacement #",U,PRCDET) Line Location: HDR+5
Function Call: WRITE	Prompt: !!,HDRW,!! Line Location: HDR+6
Function Call: WRITE	Prompt: !!?15," NO CARDS FOUND MEETING REPORT CRITERIA REQUESTED " Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"< END OF REPORT >" Line Location: EXIT+2