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

Info | Source | Entry Points | Global Variables Directly Accessed | Label References | Local Variables | All

Print Page as PDF

Routine: GMRVFUT3

Package: General Medical Record - Vitals

Routine: GMRVFUT3

Information

GMRVFUT3 ;HIRMFO/RM-FILE UTILITIES FOR 120.53 FILE ;7/22/96

Source Information

Source file <GMRVFUT3.m>

Entry Points

Name	Comments	DBIA/ICR reference
SCR07(DA,Y)	; CALLED FROM INPUT TRANSFORM OF DEFAULT QUALIFIER (.07) ; FIELD OF THE VITAL TYPE (120.531) SUB-FILE OF THE GMRV VITAL CATEGORY ; (120.53) FILE. WILL CHECK TO SEE IF QUALIFIER IS VALID FOR THIS ; VITAL TYPE AND CATEGORY. ; Input Variables: DA = DA arrary passed by reference from screen. ; Y = Entry in 120.53 file being validated.
AA(TYPE,CAT,DA,SK)	; This procedure updates the "AA" index for the 120.53 ; file. This index has the following format: ; ^GMRD(120.53,"AA",TYPE,CAT,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; CAT=Name (.01) field of 120.53 file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref.
APRINT(TYPE,PORD,DA,SK)	; This procedure updates the "APRINT" index for the ; 120.53 file. This index has the following format: ; ^GMRD(120.53,"APRINT",TYPE,PORD,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; PORD=Print Order (.05) field of 120.531 sub-file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref.
AEDIT(TYPE,EORD,DA,SK)	; This procedure updates the "AEDIT" index for the ; 120.53 file. This index has the following format: ; ^GMRD(120.53,"AEDIT",TYPE,EORD,DA(1),DA)="" ; Input variables: ; TYPE=Vital Type (.01) field 120.531 sub-file. ; EORD=Edit Order (.06) field of 120.531 sub-file. ; DA=Passed by reference will have entry in 120.531 sub-file, DA, ; and entry in 120.53 file, DA(1). ; SK=1 if set xref, 2 if kill xref.
APRT(GMRVSK,DA,X)	; CALLED FROM SET/KILL LOGIC OF APRT XREF ON PRINT ; ORDER (.05) FIELD OF VITAL TYPE (120.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "APRINT". ; 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.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "AA", "APRINT", AND "AEDIT". ; 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 ; (.01) FIELD OF GMRV CATEGORY (120.53) 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.
AEDT(GMRVSK,DA,X)	; CALLED FROM SET/KILL LOGIC OF AEDT XREF ON EDIT ; ORDER (.06) FIELD OF VITAL TYPE (120.531) SUB-FILE OF GMRV CATEGORY ; (120.53) FILE. THIS PROCEDURE SETS/KILLS THE FOLLOWING MUMPS ; INDICES: "AEDIT". ; Input variables: GMRVSK=1 if called from SET, 2 if from KILL ; DA=DA array passed by reference. ; X=value being indexed.

Global Variables Directly Accessed

Label References

Local Variables

Info | Source | Entry Points | Global Variables Directly Accessed | Label References | Local Variables | All