- XUEPCSED ;JLI/FO-OAKLAND-RPC to handle epcs data changes ;08/24/12 11:56
- ;;8.0;KERNEL;**580**;Jul 10, 1995;Build 46
- ;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- ENTRY(RESULT,INPUT) ;.remoteprocedure
- NEW I,NOW
- SET NOW=$P($$HTE^XLFDT($H),":",1,2)
- FOR I=-1:0 SET I=$O(INPUT(I)) QUIT:I="" DO RECORD(INPUT(I),NOW)
- SET RESULT=1
- QUIT
- ;
- RECORD(LINE,NOW) ;
- N FDA,VALUE,IEN,MSG,I
- FOR I=1:1:5 SET VALUE=$P(LINE,U,I),FDA(8991.6,"+1,",(I/100))=VALUE
- SET FDA(8991.6,"+1,",.06)=NOW
- DO UPDATE^DIE("E","FDA","IEN","MSG")
- QUIT
- ;
- PRINT ; print audit logs as indicated
- NEW DIR,I,VAL,X,Y,BY,DIC,FLDS,L
- SET DIR(0)="S^"
- 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)
- SET DIR("A")="SORT BY" DO ^DIR IF +$GET(Y)'>0 QUIT
- SET BY=VAL(+Y),FLDS=".06,.01,.02,.03,.04,.05",DIC=8991.6,L="" DO EN1^DIP
- QUIT
- ;
- SORTTYPE ; specifies sort types for selection
- ;;Sort by Edited By then Date/time;.02,.06,.01
- ;;Sort by Edited By then User Edited;.02,.01,.06
- ;;Sort by Date/time then Edited By;.06,.02,.01
- ;;Sort by Date/time then User Edited;.06,.01,.02
- ;;Sort by User Edited then Edited By;.01,.02,.06
- ;;Sort by User Edited then Date;.01,.06,.02
- ; .01 .02 .06
- ; User Edited, Edited by, Date/Time Edited
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUEPCSED 1340 printed Jan 18, 2025@03:10:30 Page 2
- 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
- +2 ;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- ENTRY(RESULT,INPUT) ;.remoteprocedure
- +1 NEW I,NOW
- +2 SET NOW=$PIECE($$HTE^XLFDT($HOROLOG),":",1,2)
- +3 FOR I=-1:0
- SET I=$ORDER(INPUT(I))
- if I=""
- QUIT
- DO RECORD(INPUT(I),NOW)
- +4 SET RESULT=1
- +5 QUIT
- +6 ;
- RECORD(LINE,NOW) ;
- +1 NEW FDA,VALUE,IEN,MSG,I
- +2 FOR I=1:1:5
- SET VALUE=$PIECE(LINE,U,I)
- SET FDA(8991.6,"+1,",(I/100))=VALUE
- +3 SET FDA(8991.6,"+1,",.06)=NOW
- +4 DO UPDATE^DIE("E","FDA","IEN","MSG")
- +5 QUIT
- +6 ;
- PRINT ; print audit logs as indicated
- +1 NEW DIR,I,VAL,X,Y,BY,DIC,FLDS,L
- +2 SET DIR(0)="S^"
- +3 FOR I=1:1:6
- SET X=$TEXT(SORTTYPE+I)
- SET DIR(0)=DIR(0)_$SELECT(I>1:";",1:"")_I_":"_$PIECE(X,";",3)
- SET VAL(I)=$PIECE(X,";",4)
- +4 SET DIR("A")="SORT BY"
- DO ^DIR
- IF +$GET(Y)'>0
- QUIT
- +5 SET BY=VAL(+Y)
- SET FLDS=".06,.01,.02,.03,.04,.05"
- SET DIC=8991.6
- SET L=""
- DO EN1^DIP
- +6 QUIT
- +7 ;
- SORTTYPE ; specifies sort types for selection
- +1 ;;Sort by Edited By then Date/time;.02,.06,.01
- +2 ;;Sort by Edited By then User Edited;.02,.01,.06
- +3 ;;Sort by Date/time then Edited By;.06,.02,.01
- +4 ;;Sort by Date/time then User Edited;.06,.01,.02
- +5 ;;Sort by User Edited then Edited By;.01,.02,.06
- +6 ;;Sort by User Edited then Date;.01,.06,.02
- +7 ; .01 .02 .06
- +8 ; User Edited, Edited by, Date/Time Edited