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

DGFLICN.m

Go to the documentation of this file.
  1. DGFLICN ;ALB/CKN - RPC - DG FULL ICN SHOW/UPDATE; 11/17/00 12:12pm ; 11/24/17 6:07pm
  1. ;;5.3;Registration;**950**;Aug 13, 1993;Build 4
  1. ;
  1. ;**950 - Story 625205 (ckn)
  1. ; This routine will support DG FULL ICN SHOW/UPDATE RPC calls
  1. Q
  1. EN(RETURN,DGDATA) ;
  1. ;
  1. N RPCPAR,VFULLICN,VICN,VCHKSUM,DFN,MPIFICN,MPIICN,MPICHKSM,MPINODE
  1. S RPCPAR=$P(DGDATA,"^"),DFN=$P(DGDATA,"^",3),MPIFICN=$P(DGDATA,"^",4)
  1. S MPIICN=$P(MPIFICN,"V"),MPICHKSM=$P(MPIFICN,"V",2)
  1. S MPINODE=$G(^DPT(DFN,"MPI")),VICN=$P(MPINODE,"^"),VCHKSUM=$P(MPINODE,"^",2)
  1. S VFULLICN=$P(MPINODE,"^",10)
  1. I RPCPAR="S" S RETURN=VFULLICN_"^"_VICN_"^"_VCHKSUM Q ;Only SHOW
  1. ;If input parameter is for Update
  1. I RPCPAR="U" D Q
  1. .N DGFDA,DGERR
  1. .S DGFDA(2,DFN_",",991.1)=MPIFICN
  1. .S DGFDA(2,DFN_",",991.01)=MPIICN
  1. .S DGFDA(2,DFN_",",991.02)=MPICHKSM
  1. .D FILE^DIE("","DGFDA","DGERR")
  1. .I $D(DGERR) S RETURN="-1^Error filing data into Patient file - "_$G(DGERR("DIERR",1,"TEXT",1)) Q
  1. .S MPINODE=$G(^DPT(DFN,"MPI")),VICN=$P(MPINODE,"^"),VCHKSUM=$P(MPINODE,"^",2)
  1. .S VFULLICN=$P(MPINODE,"^",10)
  1. .S RETURN=VFULLICN_"^"_VICN_"^"_VCHKSUM
  1. Q