Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUEPCSED

XUEPCSED.m

Go to the documentation of this file.
  1. XUEPCSED ;JLI/FO-OAKLAND-RPC to handle epcs data changes ;08/24/12 11:56
  1. ;;8.0;KERNEL;**580**;Jul 10, 1995;Build 46
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ENTRY(RESULT,INPUT) ;.remoteprocedure
  1. NEW I,NOW
  1. SET NOW=$P($$HTE^XLFDT($H),":",1,2)
  1. FOR I=-1:0 SET I=$O(INPUT(I)) QUIT:I="" DO RECORD(INPUT(I),NOW)
  1. SET RESULT=1
  1. QUIT
  1. ;
  1. RECORD(LINE,NOW) ;
  1. N FDA,VALUE,IEN,MSG,I
  1. FOR I=1:1:5 SET VALUE=$P(LINE,U,I),FDA(8991.6,"+1,",(I/100))=VALUE
  1. SET FDA(8991.6,"+1,",.06)=NOW
  1. DO UPDATE^DIE("E","FDA","IEN","MSG")
  1. QUIT
  1. ;
  1. PRINT ; print audit logs as indicated
  1. NEW DIR,I,VAL,X,Y,BY,DIC,FLDS,L
  1. SET DIR(0)="S^"
  1. FOR I=1:1:6 SET X=$T(SORTTYPE+I),DIR(0)=DIR(0)_$SELECT(I>1:";",1:"")_I_":"_$PIECE(X,";",3),VAL(I)=$PIECE(X,";",4)
  1. SET DIR("A")="SORT BY" DO ^DIR IF +$GET(Y)'>0 QUIT
  1. SET BY=VAL(+Y),FLDS=".06,.01,.02,.03,.04,.05",DIC=8991.6,L="" DO EN1^DIP
  1. QUIT
  1. ;
  1. SORTTYPE ; specifies sort types for selection
  1. ;;Sort by Edited By then Date/time;.02,.06,.01
  1. ;;Sort by Edited By then User Edited;.02,.01,.06
  1. ;;Sort by Date/time then Edited By;.06,.02,.01
  1. ;;Sort by Date/time then User Edited;.06,.01,.02
  1. ;;Sort by User Edited then Edited By;.01,.02,.06
  1. ;;Sort by User Edited then Date;.01,.06,.02
  1. ; .01 .02 .06
  1. ; User Edited, Edited by, Date/Time Edited