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

DGCLAPI1.m

Go to the documentation of this file.
  1. DGCLAPI1 ;ALB/TMK - Utilities for OEF/OIF/UNKNOWN OEF/OIF conflict loc; 10/20/05
  1. ;;5.3;Registration;**673**;Aug 13, 1993
  1. Q
  1. ;
  1. OEIFUPD(DGDFN,DGOEIF) ;
  1. ;Entry point for OEF, OIF, UNKNOWN OEF/OIF conflict data
  1. ; updates via the ZMH HL7 message upload.
  1. ;
  1. ; Input:
  1. ; DGDFN - PATIENT file (#2) IEN
  1. ; DGOEIF - update values array passed by reference
  1. ; DGOEIF("COUNT") - count of the # of entries
  1. ; DGOEIF("LOC") - Conflict Location Indicator
  1. ; DGOEIF("FR") - OEF/OIF/UNKNOWN OEF/OIF Date From
  1. ; DGOEIF("TO") - OEF/OIF/UNKNOWN OEF/OIF Date To
  1. ; DGOEIF("SITE") - Source of data (ptr to file 4 or null for CEV)
  1. ;
  1. ; Output:
  1. ; Function result 1-success, 0-failure
  1. ;
  1. N DA,DIC,DIK,DGRSLT,DGX,DGX1,DGARY,DGCHG,X,Y,DO,DD
  1. ;
  1. S DGCHG=0,DGRSLT=1,DGDFN=+$G(DGDFN)
  1. I DGDFN>0,$D(^DPT(DGDFN)),$$CHANGE(DGDFN,.DGOEIF) S DGCHG=1
  1. ; If changes found, delete the existing data, add new records
  1. I DGCHG D
  1. . S DGRSLT=0
  1. . S DA=0 F S DA=$O(^DPT(DGDFN,.3215,DA)) Q:'DA S DA(1)=DGDFN,DIK="^DPT("_DA(1)_",.3215," D ^DIK
  1. . F DGX="LOC","FR","TO","LOCK","SITE" S DGX1=0 F S DGX1=$O(DGOEIF(DGX,DGX1)) Q:'DGX1 S DGARY(DGX1,DGX)=DGOEIF(DGX,DGX1)
  1. . S DGX=0 F S DGX=$O(DGARY(DGX)) Q:'DGX D Q:'DGRSLT
  1. .. ; Add a new entry
  1. .. S DIC(0)="L",DIC("DR")=".02////"_$G(DGARY(DGX,"FR"))_";.03////"_$G(DGARY(DGX,"TO"))_";.04////1"_$S($G(DGARY(DGX,"SITE"))'="":";.06////"_DGARY(DGX,"SITE"),1:"")
  1. .. S DA(1)=DGDFN,DIC="^DPT("_DA(1)_",.3215,"
  1. .. S X=$G(DGARY(DGX,"LOC")),X=$S(X="OIF":1,X="OEF":2,X="UNK":3,1:"") I X D FILE^DICN K DIC S DGRSLT=(Y>0)
  1. Q DGRSLT
  1. ;
  1. CHANGE(DGDFN,DGOEIF) ;Did the data change?
  1. ; Input
  1. ; DGDFN - Patients DFN
  1. ; DGOEIF("COUNT") - the count of the # of entries in the multiple
  1. ; DGOEIF("LOC",n)=Conflict Location Indicator
  1. ; DGOEIF("FR",n)=OEF/OIF/UNKNOWN OEF/OIF Date From
  1. ; DGOEIF("TO",n)=OEF/OIF/UNKNOWN OEF/OIF Date To
  1. ; DGOEIF("LOCK")=Lock flag for HEC data
  1. ; DGOEIF("site",n)=Source of data if a site or null if CEV
  1. ;
  1. ; Output
  1. ; Returns 0 if no status change
  1. ; 1 if status changed
  1. ;
  1. N DGCHG,DGOEIFO,DGX,DGX1,Z
  1. ;
  1. I +$G(DGDFN)'>0 Q 0
  1. S DGOEIF("COUNT")=$G(DGOEIF("COUNT"))
  1. S DGCHG=0
  1. I 'DGOEIF("COUNT"),'$O(^DPT(DGDFN,.3215,0)) S DGCHG=0 G CHNGQ
  1. S Z=+$$GET^DGENOEIF(DGDFN,.DGOEIFO,0)
  1. I DGOEIF("COUNT")'=Z S DGCHG=1 G CHNGQ
  1. S Z=0 F S Z=$O(DGOEIFO("LOC",Z)) Q:'Z S DGOEIFO("LOC",Z)=$E($$EXTERNAL^DILFD(2.3215,.01,,+DGOEIFO("LOC",Z)),1,3)
  1. S DGX="" F S DGX=$O(DGOEIF(DGX)) Q:DGX=""!DGCHG D Q:DGCHG
  1. . S DGX1=0 F S DGX1=$O(DGOEIF(DGX,DGX1)) Q:'DGX1 D Q:DGCHG
  1. .. I DGX="SITE",$S($G(DGOEIF("SITE",DGX1))="":$G(DGOEIFO("SITE",DGX1))="CEV",1:0) Q
  1. .. I DGX="LOCK",$G(DGOEIFO("LOCK",DGX1))=1 Q
  1. .. I $G(DGOEIFO(DGX,DGX1))'=$G(DGOEIF(DGX,DGX1)) S DGCHG=1 Q
  1. CHNGQ Q DGCHG
  1. ;