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

GMVFSYN.m

Go to the documentation of this file.
  1. GMVFSYN ;HOIFO/RM,YH,FT-X REFERENCE FOR VITAL TYPE, CATEGORY AND SYNONYM ;3/8/05 13:38
  1. ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. BSYNO(GMRVSK,DA,X) ; CALLED FROM SET/KILL LOGIC OF ACHR XREF ON
  1. ; SYNONYM (.02) FIELD OF GMRV VITAL QUALIFIER (120.52) FILE.
  1. ; THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS INDICES: "BB".
  1. ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
  1. ; DA=DA array passed by reference.
  1. ; X=value being indexed.
  1. ;
  1. S GMRVDA=DA N DA,GMRVY
  1. S DA(1)=GMRVDA,DA=0
  1. F S DA=$O(^GMRD(120.52,DA(1),1,DA)) Q:DA'>0 D
  1. . S GMRVY=$G(^GMRD(120.52,DA(1),1,DA,0))
  1. . D BB($P(GMRVY,"^"),$P(GMRVY,"^",2),X,.DA,GMRVSK)
  1. . Q
  1. K GMRVDA
  1. Q
  1. BTYP(GMRVSK,DA,X) ; CALLED FROM SET/KILL LOGIC OF BTYP XREF ON VITAL
  1. ; TYPE (.01) FIELD OF VITAL TYPE (120.521) SUB-FILE OF GMRV
  1. ; GMRV VITAL QUALIFIER (120.52) FILE. THIS PROCEDURE SETS/KILLS THE
  1. ; FOLLOWING MUMPS INDEX: "BB".
  1. ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
  1. ; DA=DA array passed by reference.
  1. ; X=value being indexed.
  1. ;
  1. N GMRVX,GMRVY
  1. S GMRVX=$P($G(^GMRD(120.52,DA(1),0)),"^"),GMRVY=$G(^GMRD(120.52,DA(1),1,DA,0))
  1. D BB(X,$P(GMRVY,"^",2),$P(GMRVX,"^",2),.DA,GMRVSK)
  1. Q
  1. BCAT(GMRVSK,DA,X) ; CALLED FROM SET/KILL LOGIC OF BCAT XREF ON CATEGORY
  1. ; (.02) FIELD OF VITAL TYPE (120.521) SUBFILE OF GMRV VITAL QUALIFIER
  1. ; (120.52) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS
  1. ; INDEX: "BB".
  1. ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
  1. ; DA=DA array passed by reference.
  1. ; X=value being indexed.
  1. ;
  1. N GMRVX,GMRVY
  1. S GMRVX=$G(^GMRD(120.52,DA(1),0)),GMRVY=$G(^GMRD(120.52,DA(1),1,DA,0))
  1. D BB($P(GMRVY,"^"),X,$P(GMRVX,"^",2),.DA,GMRVSK)
  1. Q
  1. BB(TYPE,CAT,CHAR,DA,SK) ; This procedure updates the "BB" index for the 120.52
  1. ; file. This index has the following format:
  1. ; ^GMRD(120.52,"BB",TYPE,CAT,CHAR,DA(1),DA)=""
  1. ; Input variables:
  1. ; TYPE=Vital Type (.01) field 120.521 sub-file.
  1. ; CAT=Category (.02) field of 120.521 sub-file.
  1. ; CHAR=Name (.01) field of 120.52 file.
  1. ; DA=Passed by reference will have entry in 120.52 sub-file, DA,
  1. ; and entry in 120.52 file, DA(1).
  1. ; SK=1 if set xref, 2 if kill xref.
  1. ;
  1. Q:$G(TYPE)=""!($G(CAT)="")!($G(CHAR)="")!($G(DA(1))="")!($G(DA)="")
  1. I $G(SK)=1 S ^GMRD(120.52,"BB",TYPE,CAT,CHAR,DA(1),DA)=""
  1. I $G(SK)=2 K ^GMRD(120.52,"BB",TYPE,CAT,CHAR,DA(1),DA)
  1. Q
  1. SCREEN ;SCREEN FOR DUPLICATE ENTRY FOR A VITAL TYPE
  1. ; Called from SYNONYM field (#.02) of the GMRV VITAL QUALIFIER file
  1. ; (#120.52) - ^DD(120.52,.02,0)
  1. Q ; SYNONYMs will be provided by the standardization process.
  1. Q:X="" S GMRVDA=DA N DA,GTYP,GCAT,GSYN
  1. S DA(1)=GMRVDA,DA=0
  1. F S DA=$O(^GMRD(120.52,DA(1),1,DA)) Q:DA'>0!'$D(X) D
  1. . S GMRVY=$G(^GMRD(120.52,DA(1),1,DA,0))
  1. . S GTYP=+$P(GMRVY,"^")
  1. . I $D(^GMRD(120.52,"BB",GTYP)) D
  1. . .S GCAT=0 F S GCAT=$O(^GMRD(120.52,"BB",GTYP,GCAT)) Q:GCAT'>0!'$D(X) S GSYN="" F S GSYN=$O(^GMRD(120.52,"BB",GTYP,GCAT,GSYN)) Q:GSYN=""!'$D(X) I GSYN=X&'$D(^(GSYN,DA(1))) W:'$D(ZTQUEUED) !!,X K X
  1. K GMRVDA Q