Changeset 636 for FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPLO2A.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• IFCAP-PRC-PRX--PRCA--PRCN/PRCPLO2A.m (modified) (4 diffs)

FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCPLO2A.m

@@ -1 +1 @@
 PRCPLO2A ;WOIFO/DAP-stock status report (cont) ; 1/26/06 12:00pm
-V ;;5.1;IFCAP;**83,98,112**;Oct 20, 2000;Build 2
+V ;;5.1;IFCAP;**83,98**;Oct 20, 2000;Build 37
  ;Per VHA Directive 2004-038, this routine should not be modified.
- ;External reference to $$GET1^DIQ(4, is supported by ICR# 10090
- ; *112 changes by: VMP, Holloway,T.
  ;
 ENT ;*83 Building ^TMP with total result data, totaling logic pulled from PRCPRSS0
@@ -105 +103 @@
  ;
  S %=($G(^TMP($J,1,"ISS","TOTAL"))*365)/DAYS,%=$S('TOTCLOS:0,1:-%/TOTCLOS)
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,1)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,1)=%
  ;Std. Turnover
  S %=($G(^TMP($J,2,"ISS","TOTAL"))*365)/DAYS,%=$S('TOTCLO1:0,1:-%/TOTCLO1)
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,2)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,2)=%
  ;ODI Turnover
  S %=($G(^TMP($J,3,"ISS","TOTAL"))*365)/DAYS,%=$S('TOTCLO2:0,1:-%/TOTCLO2)
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,3)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,3)=%
  ;All Turnover
  S $P(^TMP($J,"PRCPSSR4",STA,INV),U,4)=+$G(^TMP($J,1,"INACTN","TOTAL"))
@@ -127 +128 @@
  ;
  S %=$S('$G(^TMP($J,1,"VALUE","TOTAL")):0,1:$G(^TMP($J,1,"INACT","TOTAL"))/$G(^TMP($J,1,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,10)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,10)=%
  ;Std. Inactive %
  S %=$S('$G(^TMP($J,2,"VALUE","TOTAL")):0,1:$G(^TMP($J,2,"INACT","TOTAL"))/$G(^TMP($J,2,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,11)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,11)=%
  ;ODI Inactive %
  S %=$S('$G(^TMP($J,3,"VALUE","TOTAL")):0,1:$G(^TMP($J,3,"INACT","TOTAL"))/$G(^TMP($J,3,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR4",STA,INV),U,12)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR4",STA,INV),U,12)=%
  ;All Inactive %
  ;
@@ -158 +162 @@
  ;
  S %=$S('$G(^TMP($J,1,"VALUE","TOTAL")):0,1:$G(^TMP($J,1,"LONG","TOTAL"))/$G(^TMP($J,1,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR5",STA,INV),U,7)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR5",STA,INV),U,7)=%
  ;Std. Long Supply %
  S %=$S('$G(^TMP($J,2,"VALUE","TOTAL")):0,1:$G(^TMP($J,2,"LONG","TOTAL"))/$G(^TMP($J,2,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR5",STA,INV),U,8)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR5",STA,INV),U,8)=%
  ;ODI Long Supply %
  S %=$S('$G(^TMP($J,3,"VALUE","TOTAL")):0,1:$G(^TMP($J,3,"LONG","TOTAL"))/$G(^TMP($J,3,"VALUE","TOTAL")))
- I %="" S %=0
- S $P(^TMP($J,"PRCPSSR5",STA,INV),U,9)=$J(%,0,2)
+ I $P(%,".",2) S %=$P(%,".",1)_"."_$E($P(%,".",2),1,2)
+ I %="" S %=0
+ S $P(^TMP($J,"PRCPSSR5",STA,INV),U,9)=%
  ;All Long Supply %
  S $P(^TMP($J,"PRCPSSR5",STA,INV),U,10)=+$G(^TMP($J,1,"CNT","TOTAL"))