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

DGPFAA.m

Go to the documentation of this file.
  1. DGPFAA ;ALB/RPM - PRF ASSIGNMENT API'S ; 3/27/03
  1. ;;5.3;Registration;**425,1015**;Aug 13, 1993;Build 21
  1. ;
  1. Q ;no direct entry
  1. ;
  1. GETALL(DGDFN,DGIENS,DGSTAT,DGCAT) ;retrieve list of assignment IENs
  1. ;This function returns an array of patient record flag assignment IENs
  1. ;for a given patient. The returned IEN array may optionally be
  1. ;filtered by Active or Inactive status and by flag category.
  1. ;
  1. ; Input:
  1. ; DGDFN - (required) Pointer to patient in PATIENT (#2) file
  1. ; DGIENS - (required) Result array passed by reference
  1. ; DGSTAT - (optional) Status filter (0:Inactive,1:Active,"":Both).
  1. ; Defaults to Both.
  1. ; DGCAT - (optional) Category filter
  1. ; (1:Category I,2:Category II,"":Both). Defaults to Both.
  1. ;
  1. ; Output:
  1. ; Function Value - Count of returned IENs
  1. ; DGIENS - Output array subscripted by the assignment IENs
  1. ;
  1. N DGCNT ;number of returned values
  1. N DGIEN ;single IEN
  1. N DGCKS ;check status flag (1:check, 0:ignore)
  1. N DGFLAG ;pointer to #26.11 or #26.15
  1. ;
  1. S DGCNT=0
  1. I $G(DGDFN)>0,$D(^DGPF(26.13,"B",DGDFN)) D
  1. . S DGFLAG=""
  1. . S DGCKS=0
  1. . S DGSTAT=$G(DGSTAT)
  1. . I DGSTAT=0!(DGSTAT=1) S DGCKS=1
  1. . S DGCAT=+$G(DGCAT)
  1. . S DGCAT=$S(DGCAT=1:"26.15",DGCAT=2:"26.11",1:0)
  1. . F S DGFLAG=$O(^DGPF(26.13,"C",DGDFN,DGFLAG)) Q:(DGFLAG="") D
  1. . . I DGCAT,DGFLAG'[DGCAT Q
  1. . . S DGIEN=$O(^DGPF(26.13,"C",DGDFN,DGFLAG,0))
  1. . . I DGCKS,'$D(^DGPF(26.13,"D",DGDFN,DGSTAT,DGIEN)) Q
  1. . . S DGCNT=DGCNT+1
  1. . . S DGIENS(DGIEN)=""
  1. Q DGCNT
  1. ;
  1. GETASGN(DGPFIEN,DGPFA) ;retrieve a single assignment record
  1. ;This function returns a single patient record flag assignment in an
  1. ;array format.
  1. ;
  1. ; Input:
  1. ; DGPFIEN - (required) Pointer to patient record flag assignment in
  1. ; PRF ASSIGNMENT (#26.13) file
  1. ; DGPFA - (required) Result array passed by reference
  1. ;
  1. ; Output:
  1. ; Function Value - Returns 1 on success, 0 on failure
  1. ; DGPFA - Output array containing assignment record field
  1. ; values.
  1. ; Subscript Field# Data
  1. ; -------------- ------- ---------------------
  1. ; "DFN" .01 internal^external
  1. ; "FLAG" .02 internal^external
  1. ; "STATUS" .03 internal^external
  1. ; "OWNER" .04 internal^external
  1. ; "ORIGSITE" .05 internal^external
  1. ; "REVIEWDT" .06 internal^external
  1. ; "NARR",line#,0 1 character string
  1. ;
  1. N DGIENS ;IEN string for DIQ
  1. N DGFLDS ;results array for DIQ
  1. N DGERR ;error arrary for DIQ
  1. N DGRSLT
  1. ;
  1. S DGRSLT=0
  1. I $G(DGPFIEN)>0,$D(^DGPF(26.13,DGPFIEN)) D
  1. . S DGIENS=DGPFIEN_","
  1. . D GETS^DIQ(26.13,DGIENS,"*","IEZ","DGFLDS","DGERR")
  1. . Q:$D(DGERR)
  1. . S DGRSLT=1
  1. . S DGPFA("DFN")=$G(DGFLDS(26.13,DGIENS,.01,"I"))_U_$G(DGFLDS(26.13,DGIENS,.01,"E"))
  1. . S DGPFA("FLAG")=$G(DGFLDS(26.13,DGIENS,.02,"I"))_U_$G(DGFLDS(26.13,DGIENS,.02,"E"))
  1. . S DGPFA("STATUS")=$G(DGFLDS(26.13,DGIENS,.03,"I"))_U_$G(DGFLDS(26.13,DGIENS,.03,"E"))
  1. . S DGPFA("OWNER")=$G(DGFLDS(26.13,DGIENS,.04,"I"))_U_$G(DGFLDS(26.13,DGIENS,.04,"E"))
  1. . S DGPFA("ORIGSITE")=$G(DGFLDS(26.13,DGIENS,.05,"I"))_U_$G(DGFLDS(26.13,DGIENS,.05,"E"))
  1. . S DGPFA("REVIEWDT")=$G(DGFLDS(26.13,DGIENS,.06,"I"))_U_$G(DGFLDS(26.13,DGIENS,.06,"E"))
  1. . ;build assignment narrative word processing array
  1. . M DGPFA("NARR")=DGFLDS(26.13,DGIENS,1)
  1. . K DGPFA("NARR","E"),DGPFA("NARR","I")
  1. Q DGRSLT
  1. ;
  1. FNDASGN(DGPFDFN,DGPFFLG) ;Find Assignment
  1. ; This function finds a patient record flag assignment record.
  1. ;
  1. ; Input:
  1. ; DGDFN - Pointer to patient in the PATIENT (#2) file
  1. ; DGFLAG - Pointer to flag in either the PRF LOCAL FLAG (#26.11)
  1. ; file or the PRF NATIONAL FLAG (#26.15) file
  1. ;
  1. ; Output:
  1. ; Function Value - Returns IEN of existing record on success, 0 on
  1. ; failure
  1. ;
  1. N DGIEN
  1. ;
  1. I $G(DGPFDFN)>0,($G(DGPFFLG)>0) D
  1. . S DGIEN=$O(^DGPF(26.13,"C",DGPFDFN,DGPFFLG,0))
  1. Q $S($G(DGIEN)>0:DGIEN,1:0)
  1. ;
  1. STOASGN(DGPFA,DGPFERR) ;store a single PRF ASSIGNMENT (#26.13) file record
  1. ;
  1. ; Input:
  1. ; DGPFA - (required) array of values to be filed (see GETASGN tag
  1. ; above for valid array structure)
  1. ; DGPFERR - (optional) passed by reference to contain error messages
  1. ;
  1. ; Output:
  1. ; Function Value - Returns IEN of record on success, 0 on failure
  1. ; DGPFERR - Undefined on success, error message on failure
  1. ;
  1. N DGSUB
  1. N DGFLD
  1. N DGIEN
  1. N DGIENS
  1. N DGFDA
  1. N DGFDAIEN
  1. N DGERR
  1. F DGSUB="DFN","FLAG","STATUS","OWNER","ORIGSITE" D
  1. . S DGFLD(DGSUB)=$P($G(DGPFA(DGSUB)),U,1)
  1. ;
  1. ;only build DGFLD("REVIEWDT") if "REVIEWDT" is passed
  1. I $D(DGPFA("REVIEWDT"))=1 S DGFLD("REVIEWDT")=$P(DGPFA("REVIEWDT"),U,1)
  1. ;
  1. I $D(DGPFA("NARR")) M DGFLD("NARR")=DGPFA("NARR")
  1. I $$VALID^DGPFUT("DGPFAA1",26.13,.DGFLD,.DGPFERR) D
  1. . S DGIEN=$$FNDASGN^DGPFAA(DGFLD("DFN"),DGFLD("FLAG"))
  1. . I DGIEN S DGIENS=DGIEN_","
  1. . E S DGIENS="+1,"
  1. . S DGFDA(26.13,DGIENS,.01)=DGFLD("DFN")
  1. . S DGFDA(26.13,DGIENS,.02)=DGFLD("FLAG")
  1. . S DGFDA(26.13,DGIENS,.03)=DGFLD("STATUS")
  1. . S DGFDA(26.13,DGIENS,.04)=DGFLD("OWNER")
  1. . S DGFDA(26.13,DGIENS,.05)=DGFLD("ORIGSITE")
  1. . ;
  1. . ;only touch REVIEW DATE (#.06) field if "REVIEWDT" is passed
  1. . I $D(DGFLD("REVIEWDT")) S DGFDA(26.13,DGIENS,.06)=DGFLD("REVIEWDT")
  1. . ;
  1. . S DGFDA(26.13,DGIENS,1)="DGFLD(""NARR"")"
  1. . I DGIEN D
  1. . . D FILE^DIE("","DGFDA","DGERR")
  1. . . I $D(DGERR) S DGIEN=0
  1. . E D
  1. . . D UPDATE^DIE("","DGFDA","DGFDAIEN","DGERR")
  1. . . I '$D(DGERR) S DGIEN=$G(DGFDAIEN(1))
  1. Q $S($G(DGIEN)>0:DGIEN,1:0)
  1. ;
  1. STOALL(DGPFA,DGPFAH,DGPFERR) ;store both the assignment and history record
  1. ;This function acts as a wrapper around the $$STOASGN and $$STOHIST
  1. ;filer calls.
  1. ;
  1. ; Input:
  1. ; DGPFA - (required) array of assignment values to be filed (see
  1. ; $$GETASGN^DGPFAA for valid array structure)
  1. ; DGPFAH - (required) array of assignment history values to be filed
  1. ; (see $$STOHIST^DGPFAAH 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. ; $$STOASGN^DGPFAA and $$STOHIST^DGPFAAH calls
  1. ; DGPFERR - Undefined on success, error message on failure
  1. ;
  1. N DGOIEN ;existing assignment file IEN used for "roll-back"
  1. N DGPFOA ;existing assignment data array used for "roll-back"
  1. N DGAIEN ;assignment file IEN
  1. N DGAHIEN ;assignment history file IEN
  1. N DGDFN ;"DFN" value
  1. N DGFLG ;"FLAG" value
  1. ;
  1. S (DGAIEN,DGAHIEN)=0
  1. S DGDFN=$P($G(DGPFA("DFN")),U,1)
  1. S DGFLG=$P($G(DGPFA("FLAG")),U,1)
  1. S DGOIEN=$$FNDASGN^DGPFAA(DGDFN,DGFLG)
  1. D ;drops out of block if can't rollback or assignment filer fails
  1. . I DGOIEN,'$$GETASGN^DGPFAA(DGOIEN,.DGPFOA) Q ;can't rollback, so quit
  1. . ;
  1. . ;store the assignment
  1. . S DGAIEN=$$STOASGN^DGPFAA(.DGPFA,.DGPFERR)
  1. . I $D(DGPFERR) S DGAIEN=0
  1. . Q:'DGAIEN ;assignment filer failed, so quit
  1. . ;
  1. . ;store the assignment history
  1. . S DGPFAH("ASSIGN")=DGAIEN
  1. . S DGAHIEN=$$STOHIST^DGPFAAH(.DGPFAH,.DGPFERR)
  1. . I $D(DGPFERR) S DGAHIEN=0
  1. . I DGAHIEN=0 D ;history filer failed, so rollback the assignment
  1. . . I 'DGOIEN,'$D(DGPFOA) S DGPFOA("DFN")="@"
  1. . . I $$ROLLBACK^DGPFAA2(DGAIEN,.DGPFOA) S DGAIEN=0
  1. Q $S(+$G(DGAHIEN)=0:0,1:DGAIEN_"^"_DGAHIEN)