; CALLED FROM SET/KILL LOGIC OF ACHR XREF ON
; QUALIFIER (.01) FIELD OF GMRV VITAL QUALIFIER (120.52) FILE.
; THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS INDICES: "AA".
; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
; DA=DA array passed by reference.
; X=value being indexed.
ACAT(GMRVSK,DA,X)
; CALLED FROM SET/KILL LOGIC OF ACAT 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: "AA".
; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
; DA=DA array passed by reference.
; X=value being indexed.
ATYP(GMRVSK,DA,X)
; CALLED FROM SET/KILL LOGIC OF ATYP 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: "AA".
; Input variables: GMRVSK=1 if called from SET, 2 if from KILL
; DA=DA array passed by reference.
; X=value being indexed.
AA(TYPE,CAT,CHAR,DA,SK)
; This procedure updates the "AA" index for the 120.52
; file. This index has the following format:
; ^GMRD(120.52,"AA",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.