©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMVUID ;HIOFO/FT-VUID-RELATED UTILITIES ;5/3/05 11:48
Source file <GMVUID.m>
| 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
|
|
| ; 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 | 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 |
| >> | 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~ |