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

DGPFALF1.m

Go to the documentation of this file.
  1. DGPFALF1 ;ALB/KCL,RBS - PRF LOCAL FLAG API'S CONTINUED ; 4/20/04 12:02pm
  1. ;;5.3;Registration;**425,554**;Aug 13, 1993
  1. ;
  1. ;- no direct entry
  1. QUIT
  1. ;
  1. STOALL(DGPFLF,DGPFLH,DGPFERR) ;File both LOCAL FLAG(#26.11) & HISTORY(#26.12)
  1. ;This function acts as a wrapper around the $$STOFLAG^DGPFALF
  1. ;and the $$STOHIST^DGPFALH filer calls.
  1. ;
  1. ; Input:
  1. ; DGPFLF - (required) array of Local Flag values to be filed
  1. ; (see $$GETLF^DGPFALF for valid array structure)
  1. ; DGPFLH - (required) array of Flag History values to be filed
  1. ; (see $$GETHIST^DGPFALH for valid array structure)
  1. ; DGPFERR - (optional) passed by reference to contain error messages
  1. ;
  1. ; Output:
  1. ; Function Value - Returns circumflex("^") delimited results of
  1. ; $$STOFLAG^DGPFALF and $$STOHIST^DGPFALH calls.
  1. ; Example: "3^12"
  1. ; On Success - "IEN of (#26.11)^IEN of (#26.12)"
  1. ; On Failure - 0
  1. ; DGPFERR - Undefined on success, error message on failure
  1. ;
  1. N DGOIEN ;existing Local Flag file IEN used for "roll-back"
  1. N DGPFOLF ;existing Local Flag data array used for "roll-back"
  1. N DGLIEN ;Local Flag file IEN
  1. N DGLHIEN ;Local Flag history file IEN
  1. N DGFLG ;"FLAG" value
  1. ;
  1. S (DGLIEN,DGLHIEN)=0
  1. S DGFLG=$P($G(DGPFLF("FLAG")),U)
  1. S DGOIEN=$$FNDFLAG^DGPFALF(DGFLG)
  1. I 'DGOIEN!(DGOIEN&($$GETLF^DGPFALF(DGOIEN,.DGPFOLF))) D
  1. . S DGLIEN=$$STOFLAG^DGPFALF(.DGPFLF,.DGPFERR)
  1. . I $D(DGPFERR) S DGLIEN=0
  1. . I DGLIEN D
  1. . . S DGPFLH("FLAG")=DGLIEN
  1. . . S DGLHIEN=$$STOHIST^DGPFALH(.DGPFLH,.DGPFERR)
  1. . . I $D(DGPFERR) S DGLHIEN=0
  1. . . I DGLHIEN=0 D ;roll back the Local Flag file setup
  1. . . . I 'DGOIEN,'$D(DGPFOLF) S DGPFOLF("FLAG")="@"
  1. . . . I $$ROLLBACK^DGPFALF1(26.11,DGLIEN,.DGPFOLF,"FLAG") S DGLIEN=0
  1. Q $S(DGLHIEN=0:0,1:DGLIEN_"^"_DGLHIEN)
  1. ;
  1. ROLLBACK(DGFILE,DGFIEN,DGPFOA,DGKEY) ;Rollback a FILE record
  1. ; Input:
  1. ; DGFILE - File reference that will be used for rollback
  1. ; DGFIEN - IEN of record to rollback in DGFILE
  1. ; DGPFOA - Original array of data prior to record modification
  1. ; DGKEY - .01 Field Name reference to DELETE whole record
  1. ; Output:
  1. ; Function value - 1 on successful Rollback
  1. ; 0 on failure
  1. ;
  1. N DGIENS,DGFDA,DGERR,DGRSLT
  1. S DGRSLT=0
  1. I $D(DGFILE),+$G(DGFIEN),$D(DGPFOA),$D(DGKEY) D
  1. . Q:'$D(^DGPF(DGFILE))
  1. . Q:'$D(^DGPF(DGFILE,DGFIEN))
  1. . S DGIENS=DGFIEN_","
  1. . I $G(DGPFOA(DGKEY))="@" D
  1. . . S DGFDA(DGFILE,DGIENS,.01)="@"
  1. . . D FILE^DIE("","DGFDA","DGERR")
  1. . . I '$D(DGERR) S DGRSLT=1
  1. . E D
  1. . . I $$STOFLAG^DGPFALF(.DGPFOA,.DGERR),'$D(DGERR) S DGRSLT=1
  1. Q DGRSLT
  1. ;
  1. LOCKLF(DGPFLIEN) ; Lock Flag ien
  1. ; Input:
  1. ; DGPFLIEN - IEN of record
  1. ; Output:
  1. ; Function Value - Returns 1 on success
  1. ; 0 on failure
  1. L +^DGPF(26.11,DGPFLIEN):10 I '$T Q 0
  1. Q 1
  1. ;
  1. UNLOCK(DGPFLIEN) ; Un-Lock Flag ien
  1. ; Input:
  1. ; DGPFLIEN - IEN of record
  1. ; Output:
  1. ; Function Value - Returns 1 on success
  1. ; 0 on failure
  1. L -^DGPF(26.11,DGPFLIEN):2 I '$T Q 0
  1. Q 1
  1. ;
  1. ;
  1. ; PRF LOCAL FLAG FILE (#26.11) Field VALIDATION data
  1. ; don't do the Principal Investigator(s) multiple fields...
  1. ; they're pointers anyway and won't be Validated.
  1. ; PRININV;2;0;0;principal investigator(s) (if Research Flag)(pointer)
  1. ;
  1. ; *** Only Validate the following fields...
  1. XREF ;;array node name;field#;required param;word processing?;description
  1. ;;FLAG;.01;1;0;flag name
  1. ;;STAT;.02;1;0;active/inactive
  1. ;;TYPE;.03;1;0;pointer to PRF TYPE FILE (#26.16)
  1. ;;REVFREQ;.04;1;0;review frequency
  1. ;;NOTIDAYS;.05;1;0;notification days
  1. ;;REVGRP;.06;0;0;pointer to MAIL GROUP FILE (#3.8)
  1. ;;TIUTITLE;.07;1;0;pointer to TIU DOCUMENT (#8925.1) file
  1. ;;DESC;1;1;1;description of flag