[613] | 1 | PRCHDAM3 ;WISC/DJM-PRINT AMENDMENT, ROUTINE #3 ;6/29/00 12:16
|
---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;
|
---|
| 5 | E25 ;Edit MAIL INVOICE TO PRINT
|
---|
| 6 | N CHANGE,OLD,MIT,LCNT,DATA,SITE
|
---|
| 7 | S CHANGE=0 D LCNT^PRCHDAM4(.LCNT)
|
---|
| 8 | F S CHANGE=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,.04,CHANGE)) Q:CHANGE'>0 D
|
---|
| 9 | .S SITE=$P($G(^PRC(443.6,PRCHPO,23)),U,7) S SITE=$S($G(SITE)]"":SITE,1:$P($P(^PRC(443.6,PRCHPO,0),U),"-"))
|
---|
| 10 | .S OLD=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,1,1,0),OLD=$P($S($D(^PRC(411,SITE,4,OLD,0)):^(0),1:""),U)
|
---|
| 11 | .S MIT=$P(^PRC(443.6,PRCHPO,12),U,6),MIT=$P($S($D(^PRC(411,SITE,4,MIT,0)):^(0),1:""),U)
|
---|
| 12 | .D LINE^PRCHDAM4(.LCNT,2) S DATA="MAIL INVOICE to "_OLD_" has been **AMENDED** to become MAIL INVOICE to "_MIT
|
---|
| 13 | .D DATA^PRCHDAM4(.LCNT,DATA),LCNT1^PRCHDAM4(LCNT)
|
---|
| 14 | Q
|
---|
| 15 | E26 ;Edit METHOD OF PAYMENT PRINT
|
---|
| 16 | N CHANGE,MOP,OLD,LCNT,DATA
|
---|
| 17 | S CHANGE=0 D LCNT^PRCHDAM4(.LCNT)
|
---|
| 18 | F S CHANGE=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,.02,CHANGE)) Q:CHANGE'>0 D
|
---|
| 19 | .S OLD=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,1,1,0),OLD=$P(^PRCD(442.5,OLD,0),U)
|
---|
| 20 | .S MOP=$P(^PRC(443.6,PRCHPO,0),U,2),MOP=$P(^PRCD(442.5,MOP,0),U)
|
---|
| 21 | .D LINE^PRCHDAM4(.LCNT,2) S DATA="METHOD of PAYMENT of "_OLD D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 22 | .S DATA="has been changed to "_MOP D DATA^PRCHDAM4(.LCNT,DATA),LCNT1^PRCHDAM4(LCNT)
|
---|
| 23 | Q
|
---|
| 24 | E27 ;ADMINISTRATIVE CERTIFICATION Add PRINT
|
---|
| 25 | N CHANGE,CHANGES,AC,VAL,LCNT,DATA
|
---|
| 26 | S CHANGE=0 D LCNT^PRCHDAM4(.LCNT)
|
---|
| 27 | F S CHANGE=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,.01,CHANGE)) Q:CHANGE'>0 D
|
---|
| 28 | .S CHANGES=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,0)
|
---|
| 29 | .S AC=$P(CHANGES,U,4),VAL=$G(^PRC(443.6,PRCHPO,15,AC,0)) Q:VAL=""
|
---|
| 30 | .S AC=$P(VAL,U),VAL=$P($G(^PRC(442.7,+VAL,0)),U,2)
|
---|
| 31 | .D LINE^PRCHDAM4(.LCNT,2) S DATA="ADMINISTRATIVE CERTIFICATION "_AC_", "_VAL_", has been ADDED"
|
---|
| 32 | .D DATA^PRCHDAM4(.LCNT,DATA),LCNT1^PRCHDAM4(LCNT)
|
---|
| 33 | Q
|
---|
| 34 | E28 ;ADMINISTRATIVE CERTIFICATION Delete PRINT
|
---|
| 35 | N CHANGE,CHANGES,AC,OLD,LCNT,DATA
|
---|
| 36 | S CHANGE=0 D LCNT^PRCHDAM4(.LCNT)
|
---|
| 37 | F S CHANGE=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,.01,CHANGE)) Q:CHANGE'>0 D
|
---|
| 38 | .S CHANGES=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,0),OLD=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,1,1,0)
|
---|
| 39 | .S AC=$P(CHANGES,U,4),OLD=$S(OLD>0:$P($G(^PRC(442.7,+OLD,0)),U,2),1:""),OLD=$S(OLD]"":", "_OLD_",",1:"")
|
---|
| 40 | .D LINE^PRCHDAM4(.LCNT,2) S DATA="ADMINISTRATIVE CERTIFICATION "_AC_OLD D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 41 | .S DATA="has been DELETED"
|
---|
| 42 | .D DATA^PRCHDAM4(.LCNT,DATA),LCNT1^PRCHDAM4(LCNT)
|
---|
| 43 | Q
|
---|
| 44 | E29 ;EST. SHIPPING Edit PRINT
|
---|
| 45 | N CHANGE,OLD,EST,LCNT,DATA,OBOC,OBOC1,FLAG
|
---|
| 46 | S CHANGE=0 D LCNT^PRCHDAM4(.LCNT)
|
---|
| 47 | F S CHANGE=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,13,CHANGE)) Q:CHANGE'>0 D
|
---|
| 48 | .S OLD=^PRC(443.6,PRCHPO,6,PRCHAM,3,CHANGE,1,1,0),OLD=$FN(OLD,"-",2)
|
---|
| 49 | .S EST=$P(^PRC(443.6,PRCHPO,0),U,13),EST=$FN(EST,"-",2)
|
---|
| 50 | .S (OBOC1,FLAG)=0 K OBOC
|
---|
| 51 | .F S OBOC1=$O(^PRC(443.6,PRCHPO,6,PRCHAM,3,"AC",AMEND,13.05,OBOC1)) Q:OBOC1'>0 D Q:FLAG=1
|
---|
| 52 | ..S OBOC=+(^PRC(443.6,PRCHPO,6,PRCHAM,3,OBOC1,1,1,0)),FLAG=1
|
---|
| 53 | .I '$D(OBOC) S OBOC=+$P($G(^PRC(443.6,PRCHPO,23)),U)
|
---|
| 54 | .D LINE^PRCHDAM4(.LCNT,2)
|
---|
| 55 | .I OLD'>0 D
|
---|
| 56 | ..S DATA="**ADDED THROUGH AMENDMENT**" D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 57 | ..S DATA="Estimated Shipping and/or Handling of $"_EST_" has been added" D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 58 | ..S DATA="BOC: "_+$P($G(^PRC(443.6,PRCHPO,23)),U) D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 59 | ..Q
|
---|
| 60 | .I OLD>0 D
|
---|
| 61 | ..S DATA="Estimated Shipping and/or Handling of $"_OLD_" has been changed" D DATA^PRCHDAM4(.LCNT,DATA) S DATA="to $"_EST D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 62 | ..S DATA="BOC: "_OBOC_" has been changed to: "_+$P($G(^PRC(443.6,PRCHPO,23)),U) D DATA^PRCHDAM4(.LCNT,DATA)
|
---|
| 63 | ..Q
|
---|
| 64 | .D LCNT1^PRCHDAM4(LCNT)
|
---|
| 65 | .Q
|
---|
| 66 | Q
|
---|