GMVFSYN ;HOIFO/RM,YH,FT-X REFERENCE FOR VITAL TYPE, CATEGORY AND SYNONYM ;3/8/05 13:38
Source file <GMVFSYN.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BSYNO(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF ACHR XREF ON
; SYNONYM (.02) FIELD OF GMRV VITAL QUALIFIER (120.52) FILE. ; THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS INDICES: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
BTYP(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF BTYP XREF ON VITAL
; TYPE (.01) FIELD OF VITAL TYPE (120.521) SUB-FILE OF GMRV ; GMRV VITAL QUALIFIER (120.52) FILE. THIS PROCEDURE SETS/KILLS THE ; FOLLOWING MUMPS INDEX: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
BCAT(GMRVSK,DA,X) | ; CALLED FROM SET/KILL LOGIC OF BCAT XREF ON CATEGORY
; (.02) FIELD OF VITAL TYPE (120.521) SUBFILE OF GMRV VITAL QUALIFIER ; (120.52) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDEX: "BB". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed. |
|
BB(TYPE,CAT,CHAR,DA,SK) | ; This procedure updates the "BB" index for the 120.52
; file. This index has the following format: ; ^GMRD(120.52,"BB",TYPE,CAT,CHAR,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.521 sub-file. ; CAT=Category (.02) field of 120.521 sub-file. ; CHAR=Name (.01) field of 120.52 file. ; DA=Passed by reference will have entry in 120.52 sub-file, DA, ; and entry in 120.52 file, DA(1). ; SK=1 if set xref, 2 if kill xref. |
|
SCREEN | ;SCREEN FOR DUPLICATE ENTRY FOR A VITAL TYPE
; Called from SYNONYM field (#.02) of the GMRV VITAL QUALIFIER file ; (#120.52) - ^DD(120.52,.02,0) |