Routine: GMVUID

Name	Comments	DBIA/ICR reference
COMBO(GMVTI,GMVQUALI,GMVCATI)	; Check if this combination is in the AA cross- ; reference of File 120.52 ; Input: ; GMVTI - File 120.51 ien ; GMVQUALI - File 120.52 ien ; GMVCATI - File 120.53 ien
QMAIL	; Queue mail message
EN(ERROR)	; Clean up existing file connections and gui templates
GET(GMVFILE,GMVIEN,GMVREF)	; Calls the $$GETVUID^XTID API to get the VUID number ; GMVFILE - File number ; GMVIEN - field # ; GMVREF - value
CAT	; Loop through the Category entries in FILE 120.53: ; 1) If the CATEGORY is not active, get rid of all VITAL TYPE (#1) ; associations, ; 2) If the CATEGORY is active and a VITAL TYPE is not active, get rid ; of that VITAL TYPE association, ; 3) If the CATEGORY and VITAL TYPE are active, but the DEFAULT ; QUALIFIER (#.07) is not, null out the DEFAULT QUALIFIER field.
TEMPS	; Clean up GUI templates definitions. ; If a qualifier is inactive, remove it and its category.
QUAL	; Loop through the Qualifier entries in FILE 120.52: ; 1) If the QUALIFIER is not active, get rid of all VITAL TYPE (#1) ; associations, ; 2) If the QUALIFIER is active and a VITAL TYPE is not active, get rid ; of that VITAL TYPE association, ; 3) If the QUALIFIER and VITAL TYPE are active, but the CATEGORY ; (#.02 in subfile 120.521) is not, get rid of that subfile entry.
QUAL1(GMVX,GMVY)	; Delete a multiple entry (#1) in FILE 120.52
MAIL	; Send mail message to installer that an error occurred
ACTIVE(GMVFILE,GMVFLD,GMVIEN,GMVDATE)	; Calls the $$SCREEN^XTID API to get VUID status ; Input: GMVFILE - File number ; GMVFLD - Field number ; GMVIEN - IEN ; GMVDATE - Date ; Output: 0 - Active ; 1 - Inactive
CAT1(GMVX,GMVY)	; Delete a multiple entry (#1) in FILE 120.53
CAT2(GMVX,GMVY)	; Delete a default qualifier

Name	Field # of Occurrence
^%ZTLOAD	QMAIL+4
^DIK	QUAL1+3, CAT1+3
$$SCREEN^HDISVF01	EN+5
^XMD	MAIL+10
EN^XPAR	TEMPS+40
ENVAL^XPAR	TEMPS+5
$$GETVUID^XTID	GET+5
$$SCREEN^XTID	ACTIVE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMRD(120.52 - [#120.52]	QUAL+10, QUAL+13, QUAL+18, QUAL+19, QUAL+25, COMBO+10, COMBO+12
^GMRD(120.53 - [#120.53]	CAT+10, CAT+13, CAT+18, CAT+19, CAT+25, CAT2+3*
^TMP($J	TEMPS+3!, TEMPS+4, TEMPS+6, TEMPS+8, TEMPS+10, TEMPS+11, TEMPS+43!

Name	Line Occurrences
$$ACTIVE	QUAL+11, QUAL+20, QUAL+27, CAT+11, CAT+20, CAT+28, TEMPS+28
$$COMBO	TEMPS+28
CAT	EN+7
CAT1	CAT+14, CAT+22
CAT2	CAT+29
QMAIL	EN+2
QUAL	EN+7
QUAL1	QUAL+14, QUAL+22, QUAL+28
TEMPS	EN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	QUAL1+1~, QUAL1+2, CAT1+1~, CAT1+2
DA(1	QUAL1+2, CAT1+2
DIK	QUAL1+1~, QUAL1+2, CAT1+1~, CAT1+2
DUZ	MAIL+2
ERROR	EN~, EN+2
FILE	EN+3~, EN+5*
GMV	TEMPS+2~, TEMPS+15!
GMV(	TEMPS+16, TEMPS+18, TEMPS+19, TEMPS+32, TEMPS+34, TEMPS+35
GMV1	TEMPS+2~, TEMPS+7, TEMPS+8, TEMPS+10, TEMPS+11, TEMPS+40
GMV2	TEMPS+2~, TEMPS+9, TEMPS+10, TEMPS+11, TEMPS+40
GMVCAT	CAT+8~, CAT+9, CAT+10, CAT+11, CAT+13, CAT+14, CAT+18, CAT+19, CAT+22, CAT+25 , CAT+29
GMVCATI	COMBO~, COMBO+8*, COMBO+9, COMBO+12
GMVDATE	ACTIVE~, ACTIVE+7
GMVDESC	TEMPS+2~, TEMPS+13*, TEMPS+33
GMVERR	TEMPS+2~, TEMPS+40
GMVFILE	ACTIVE~, ACTIVE+7, GET~, GET+5
GMVFLAG	COMBO+6~, COMBO+7, COMBO+9, COMBO+11, COMBO+12, COMBO+13
GMVFLD	ACTIVE~, ACTIVE+7
GMVI	TEMPS+2~, TEMPS+16, TEMPS+17, TEMPS+18, TEMPS+19, TEMPS+32, TEMPS+33, TEMPS+34*, TEMPS+35
GMVIEN	ACTIVE~, ACTIVE+7, GET~, GET+5
GMVJ	TEMPS+2~, TEMPS+25*, TEMPS+26
GMVLIST	TEMPS+2~, TEMPS+4*, TEMPS+5
GMVMSG	MAIL+1~
GMVMSG(1	MAIL+5*
GMVMSG(2	MAIL+6*
GMVMSG(3	MAIL+7*
GMVMSG(4	MAIL+8*
GMVNEW	TEMPS+2~, TEMPS+24, TEMPS+28, TEMPS+29, TEMPS+30, TEMPS+31*, TEMPS+32
GMVNODE	QUAL+8~, QUAL+19, QUAL+20, QUAL+25, QUAL+26, QUAL+27, CAT+8~, CAT+25, CAT+26, CAT+27 , CAT+28, TEMPS+2~, TEMPS+11, TEMPS+12, TEMPS+13, TEMPS+14, TEMPS+16, TEMPS+33, TEMPS+35, TEMPS+37 , TEMPS+38*, TEMPS+39, TEMPS+40
GMVOLD	TEMPS+2~, TEMPS+26*, TEMPS+27, TEMPS+28
GMVORIG	TEMPS+2~, TEMPS+11*, TEMPS+39
GMVQUAL	QUAL+8~, QUAL+9, QUAL+10, QUAL+11, QUAL+13, QUAL+14, QUAL+18, QUAL+19, QUAL+22, QUAL+25 , QUAL+28, TEMPS+2~, TEMPS+27*, TEMPS+28
GMVQUALE	COMBO+6~, COMBO+10*, COMBO+11, COMBO+12
GMVQUALI	COMBO~, COMBO+8*, COMBO+9, COMBO+10, COMBO+12
GMVREF	GET~, GET+5
GMVT	QUAL+8~, QUAL+12, QUAL+13, QUAL+14, QUAL+17, QUAL+18, QUAL+19, QUAL+22, QUAL+25, QUAL+28 , CAT+8~, CAT+12, CAT+13, CAT+14, CAT+17, CAT+18, CAT+19, CAT+22, CAT+25, CAT+29
GMVTI	CAT+8~, CAT+19, CAT+20, COMBO~, COMBO+8, COMBO+9, COMBO+12
GMVTY	QUAL+20, QUAL+21, QUAL+24, CAT+8~, CAT+20, CAT+21, CAT+24
GMVUID	GET+4~, GET+5*, GET+6
GMVX	QUAL1~, QUAL1+2, CAT1~, CAT1+2, CAT2~, CAT2+1, CAT2+3, TEMPS+2~, TEMPS+19, TEMPS+20 , TEMPS+21, TEMPS+22, TEMPS+23, TEMPS+25, TEMPS+26
GMVY	QUAL1~, QUAL1+2, CAT1~, CAT1+2, CAT2~, CAT2+2, CAT2+3, TEMPS+2~, TEMPS+21*, TEMPS+28 , TEMPS+30, TEMPS+31
OK	EN+3~, EN+4, EN+5, EN+6
U	QUAL+20, QUAL+27, CAT+19, CAT+27, CAT+28, CAT2+3, GET+6, COMBO+10
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+4*
XMTEXT	MAIL+1~, MAIL+9*
XMY	MAIL+1~
XMY(	MAIL+2*
ZTDESC	QMAIL+1~, QMAIL+2*
ZTDTH	QMAIL+1~, QMAIL+3*
ZTIO	QMAIL+1~, QMAIL+3*
ZTRTN	QMAIL+1~, QMAIL+2*
ZTSAVE	QMAIL+1~

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMVUID

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: