Context Navigation

TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED

Timestamp:

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

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

-              r628
+              r636
 XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;01/30/2008
  ;;7.3;TOOLKIT;**23,49,78,112**;Apr 25, 1995;Build 1
+XDRDSHOW ;SF-IRMFO.SEA/JLI - DISPLAY DATA IN FIELDS, GET OVERWRITES ;02/11/2004  08:56
+ ;;7.3;TOOLKIT;**23,49,78**;Apr 25, 1995
  ;;
 SHOW(FILE,REC1,REC2,FLDS,REVIEW) ;
 …
  . . . S XN=$P(DDVAL,U)
  . . . S XDRA=0
+ . . . I X1'=""&(X2'=""),X1'=X2 D
+ . . . . I FILE=2,((FLD=991.01)!(FLD=991.02)) Q  ;jds restrict ICN overwrites for MPI
+ . . . . S X0=$S($D(FLDS(FLD)):"||||",1:"****"),NDIFFS=NDIFFS+1,DIFFS(NDIFFS)=FLD,XDRA=1 I REVIEW S NLIN=NLIN-1
+ . . . 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
  . . . I 'REVIEW!XDRA D
  . . . . W ! S NLIN=NLIN-1

-              r628
+              r636
 XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR;
  ;;7.3;TOOLKIT;**98,106**; Apr 25, 1995;Build 1
+XTPMKPCF ;OAK/BP - COMPUTED FIELDS AND OTHER ODDITIES FOR PATCH MONITOR; [8/9/05 9:23am]
+ ;;7.3;TOOLKIT;**98**; Apr 25, 1995
+ ;
  ; computed fields
 …
  ;   patches may be involved.  If a test patch, null the pointer, like nothing is there.
  S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
  S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
+ S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X=""
  S X=$P($G(^XPD(9.7,+X,1)),U,3)
+ I X="" Q
+ S Y=X D DD^%DT S X=$P(Y,"@") K Y
+ S X=$E(X,1,7)
+ Q
+ ;
 …
  K XTBX1,XTBZ,NIGHT,XTBCMPDT,ZTSK,ZTIO,ZTRTN,ZTSAVE
+ Q
+ ;
-INSDATE ;Print out Installed Date
- N X,X1
- S X=$P($G(^XPD(9.9,D0,0)),U,8) Q:X=""
- S X1=$P($G(^XPD(9.9,D0,0)),U,11) I X1>0 W $$FMTE^XLFDT(X1,"2Z") Q
- S X=$O(^XPD(9.7,"B",X,9999999999),-1) I $G(^XPD(9.7,+X,2))["TEST v" S X="" Q
- S X=$P($G(^XPD(9.7,+X,1)),U,3) W $$FMTE^XLFDT($P(X,"."),"2Z")
+ Q

-              r628
+              r636
 XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE;
  ;;7.3;TOOLKIT;**98,100,106**; Apr 25, 1995;Build 1
+XTPMSTA2 ;OAK/BP - PRINT PATCH STATISTICS BY COMPLIANCE DATE; [1/4/06 9:33am]
+ ;;7.3;TOOLKIT;**98,100**; Apr 25, 1995;Build 4
+ ;
  S IOP="HOME" D ^%ZIS K IOP
 …
  ..I XTBINSDT]"" S X1=XTBINSDT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
  ..I XTBINSDT="" S X1=DT,X2=XTBCPLDT D ^%DTC S XTBDAYLT=X
  ..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"
+ ..S Y=XTBINSDT X ^DD("DD") S XTBINSDT=Y
  ..S Y=XTBCPLDT X ^DD("DD") S XTBCPLDX=Y
  ..S Y=XTBRELDT X ^DD("DD") S XTBRELDT=Y

r628	r636
1		XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (FILE 200, MARGIN=80)
	1	XUCT01 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (FILE 200, MARGIN=80)
2	2	G BEGIN
3	3	N W !

r628	r636
1		XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/12/07 ; (continued)
	1	XUCT011 ; GENERATED FROM 'XUSERINQ' PRINT TEMPLATE (#27) ; 12/27/07 ; (continued)
2	2	G BEGIN
3	3	N W !

r628	r636
1		XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; ~~10/15/04~~
	1	XUCT03 ; DRIVER FOR COMPILED XREFS FOR FILE #3.081 ; 01/30/05
2	2	;
3	3	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

Note: See TracChangeset for help on using the changeset viewer.