Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8VW.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 )
• PAID-PRS/PRS8VW.m (modified) (6 diffs)

FOIAVistA/tag/r/PAID-PRS/PRS8VW.m

@@ -1 @@
-PRS8VW ;HISC/MRL-DECOMPOSITION, VIEW RESULTS ;03/22/07
- ;;4.0;PAID;**2,6,27,45,112**;Sep 21, 1995;Build 54
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+PRS8VW ;HISC/MRL-DECOMPOSITION, VIEW RESULTS ;11/4/97
+ ;;4.0;PAID;**2,6,27,45**;Sep 21, 1995
  ;
  ;This routine is used to view the results of the decomposition.
@@ -11 +10 @@
  ;Called by Routines:  PRS8, PRS8DR
  S (NEW,VAL)=$G(VAL),(OLD,VALOLD)=$G(VALOLD)
- N DASH1,DASH2
- S $P(DASH1,"-",79)="-",$P(DASH2,"=",79)="="
  I +$E(NEW,2,4) S NEW=$E(VAL,33,999) ; 33rd position because CP field
  I +$E(OLD,2,4) S OLD=$E(VALOLD,33,999) ;is added(either "C","F"or" ")
@@ -26 +23 @@
  S X="Pay Period: "_(^PRST(458,+PY,0)) W ?(79-$L(X)),$P(X,"^",1)
  D CTID
- W !,DASH2
+ W ! F I=1:1:79 W "="
  W !,"Loc.",?10,"Data Element",?44,"Code",?52,"Old Value",?67,"New Value"
  W !,"----",?10,"------------",?44,"----",?52,"---------",?67,"---------"
@@ -33 +30 @@
  D STUB
  I "C"'[$E(IOST) D
- .W !,DASH1
+ .W ! F I=1:1:79 W "-"
  .W !,TR
  D ONE^PRS8CV,^%ZISC Q
  ;
 CERT ; entry point to show supervisor result of decomp before certifying
- N DASH1,DASH2
- S $P(DASH1,"-",79)="-",$P(DASH2,"=",79)="="
  S (NEW,VAL)=$G(VAL)
  I +$E(NEW,2,4) S NEW=$E(VAL,33,999) ;because CP field is added to STUB
@@ -51 +46 @@
  .S X="Run Date: "_Y,TR=$E(TR,1,(79-$L(X)))_X
  S H="PAY PERIOD SUMMARY" W !,$J(H,40+($L(H)/2)),!
- S X=$P(C0,"^",1)_" [SSN: "_$E($P(C0,"^",9))_"XXXX"_$E($P(C0,"^",9),6,9)_"]" W !,X
+ S X=$P(C0,"^",1)_" [SSN: "_$P(C0,"^",9)_"]" W !,X
  S X="Pay Period: "_(^PRST(458,+PY,0)) W ?(79-$L(X)),$P(X,"^",1)
  D CTID
- W !,DASH2
+ W ! F I=1:1:79 W "="
  W !
  K I,L,X,USED
  D ^PRS8VW2
  I "C"'[$E(IOST) D
- .W !,DASH1
+ .W ! F I=1:1:79 W "-"
  .W !,TR
  K H,R,Z Q
 E2 ; --- create E array
- S E(1)="ANSKWDNOAURTCECUUNNANBSPSASBSCDADBDCTFOAOBOCYAOKOMRARBRCHAHBHCPTPAONYDHDVCEAEBTATCFAFCADNTRSSRSDND"
- S E(2)="ALSLWPNPABRLCTCOUSNRNSSQSESFSGDEDFDGTGOEOFOGYEOSOURERFRGHLHMHNPHPBCLYHHOVSECEDTBTDFBFDAFNHRNSSSHNU"
+ S E(1)="ANSKWDNOAURTCECUUNNANBSPSASBSCDADBDCTFOAOBOCYAOKOMRARBRCHAHBHCPTPAONYDHDVCEAEBTATCFAFCADNT"
+ S E(2)="ALSLWPNPABRLCTCOUSNRNSSQSESFSGDEDFDGTGOEOFOGYEOSOURERFRGHLHMHNPHPBCLYHHOVSECEDTBTDFBFDAFNH"
  S E(3)="NLDWMLCAPCCYFE" Q
 STUB ; --- show stub record
@@ -74 +69 @@
  ;
 E ; --- create E array
- S E(1)="ANSKWDNOAURTCECUUNNANBSPSASBSCDADBDCTFOAOBOCYAOKOMRARBRCHAHBHCPTPAONYDHDVCEAEBTATCFAFCADNTRSSRSDND"
- S E(2)="ALSLWPNPABRLCTCOUSNRNSSQSESFSGDEDFDGTGOEOFOGYEOSOURERFRGHLHMHNPHPBCLYHHOVSECEDTBTDFBFDAFNHRNSSSHNU"
+ S E(1)="ANSKWDNOAURTCECUUNNANBSPSASBSCDADBDCTFOAOBOCYAOKOMRARBRCHAHBHCPTPAONYDHDVCEAEBTATCFAFCADNT"
+ S E(2)="ALSLWPNPABRLCTCOUSNRNSSQSESFSGDEDFDGTGOEOFOGYEOSOURERFRGHLHMHNPHPBCLYHHOVSECEDTBTDFBFDAFNH"
  S E(3)="NLDWINTLLULNLDDTTOLAMLCAPCCYRRFFFECD" Q
 CTID ; compressed tour indicator display