Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
8 edited
1 copied

Legend:

Unmodified
Added
Removed
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRDSHOW.m

    r628 r636  
    1 XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;01/30/2008
    2  ;;7.3;TOOLKIT;**23,49,78,112**;Apr 25, 1995;Build 1
     1XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;02/11/2004  08:56
     2 ;;7.3;TOOLKIT;**23,49,78**;Apr 25, 1995
    33 ;;
    44SHOW(FILE,REC1,REC2,FLDS,REVIEW) ;
     
    4949 . . . S XN=$P(DDVAL,U)
    5050 . . . S XDRA=0
    51  . . . I X1'=""&(X2'=""),X1'=X2 D
    52  . . . . I FILE=2,((FLD=991.01)!(FLD=991.02)) Q  ;jds restrict ICN overwrites for MPI
    53  . . . . S X0=$S($D(FLDS(FLD)):"||||",1:"****"),NDIFFS=NDIFFS+1,DIFFS(NDIFFS)=FLD,XDRA=1 I REVIEW S NLIN=NLIN-1
     51 . . . I X1'=""&(X2'=""),X1'=X2 S X0=$S($D(FLDS(FLD)):"||||",1:"****"),NDIFFS=NDIFFS+1,DIFFS(NDIFFS)=FLD,XDRA=1 I REVIEW S NLIN=NLIN-1
    5452 . . . I 'REVIEW!XDRA D
    5553 . . . . W ! S NLIN=NLIN-1
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMKPCF.m

    r628 r636  
    1 XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR;
    2  ;;7.3;TOOLKIT;**98,106**; Apr 25, 1995;Build 1
     1XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR; [8/9/05 9:23am]
     2 ;;7.3;TOOLKIT;**98**; Apr 25, 1995
    33 ;
    44 ; computed fields
     
    88 ;   patches may be involved.  If a test patch, null the pointer, like nothing is there.
    99 S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
    10  S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
     10 S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X=""
    1111 S X=$P($G(^XPD(9.7,+X,1)),U,3)
    12  I X="" Q
    13  S Y=X D DD^%DT S X=$P(Y,"@") K Y
     12 S X=$E(X,1,7)
    1413 Q
    1514 ;
     
    7069 K XTBX1,XTBZ,NIGHT,XTBCMPDT,ZTSK,ZTIO,ZTRTN,ZTSAVE
    7170 Q
    72  ;
    73 INSDATE ;Print out Installed Date
    74  N X,X1
    75  S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
    76  S X1=$P($G(^XPD(9.9,D0,0)),U,11) I X1>0 W $$FMTE^XLFDT(X1,"2Z") Q
    77  S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
    78  S X=$P($G(^XPD(9.7,+X,1)),U,3) W $$FMTE^XLFDT($P(X,"."),"2Z")
    79  Q
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTPMSTA2.m

    r628 r636  
    1 XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE;
    2  ;;7.3;TOOLKIT;**98,100,106**; Apr 25, 1995;Build 1
     1XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE; [1/4/06 9:33am]
     2 ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4
    33 ;
    44 S IOP="HOME" D ^%ZIS K IOP
     
    3939 ..I XTBINSDT]"" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
    4040 ..I XTBINSDT="" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
    41  ..S Y=XTBINSDT X ^DD("DD") I Y'="" S XTBINSDT=$P(Y,",",1)_","_$E($P(Y,",",2),2,5) ;set date format "MON DD,YYYY"
     41 ..S Y=XTBINSDT X ^DD("DD") S XTBINSDT=Y
    4242 ..S Y=XTBCPLDT X ^DD("DD") S XTBCPLDX=Y
    4343 ..S Y=XTBRELDT X ^DD("DD") S XTBRELDT=Y
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT01.m

    r628 r636  
    1 XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (FILE 200, MARGIN=80)
     1XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (FILE 200, MARGIN=80)
    22 G BEGIN
    33N W !
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT011.m

    r628 r636  
    1 XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (continued)
     1XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (continued)
    22 G BEGIN
    33N W !
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT03.m

    r628 r636  
    1 XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; 10/15/04
     1XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; 01/30/05
    22 ;
    33 N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT031.m

    r628 r636  
    1 XUCT031 ; COMPILED XREF FOR FILE #3.081 ; 10/15/04
     1XUCT031 ; COMPILED XREF FOR FILE #3.081 ; 01/30/05
    22 ;
    33 S DIKZK=2
  • FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XUCT032.m

    r628 r636  
    1 XUCT032 ; COMPILED XREF FOR FILE #3.081 ; 10/15/04
     1XUCT032 ; COMPILED XREF FOR FILE #3.081 ; 01/30/05
    22 ;
    33 S DIKZK=1
Note: See TracChangeset for help on using the changeset viewer.