PXVZRT ;SLC/PBB - VIMM UTILITY ROUTINE ;Dec 01, 2021@12:25:45
Source file <PXVZRT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZRT | ;Manipulate update of MFN ZRT segment for Immunization files
|
|
| 920 | ; Manipulate update of MFN ZRT segment for 920 File
|
|
| 99999914 | ; Manipulate update of MFN ZRT segment for 9999999.14 File
|
|
| 99999928 | ||
| 9204 | ; Manipulate update of MFN ZRT segment for 920.4 File
|
|
| 9201 | ; Manipulate update of MFN ZRT Segment for 920.01 File
|
|
| 99999904 | ; Manipulate update of MFN ZRT Segment for 9999999.04 File
|
|
| M92002 | ;Conversion of File:920 field .02 EDITION DATE to VETS form 02/31/2014
|
|
| M92004 | ;Conversion of File:920 field .04 POINTER TO LANGUAGE FILE (#.85)
|
|
| M92003 | ;Conversion of File:920 field .03 EDITION STATUS
|
|
| M999142 | ;Conversion of File:9999999.14 FIELD:.2 COMBINATION IMMUNIZATION COMVERT FROM 1 to Y and from 0 to N
|
|
| M9992803 | ;Conversion of File:9999999.28 FIELD:.03 INACTIVE FLAG
|
|
| M999283 | ;Conversion of File:9999999.28 FIELD: 3 CODING SYSTEM From: CPT to CPT:00001,00002
|
|
| M999143 | ;Conversion of File:9999999.14 FIELD: 3 CODING SYSTEM From: CPT to CPT:00001,00002
|
|
| DS(SUBFILE,IENS) | ;Delete subfile
|
|
| IFST(FIELD,YES,NO) | ;Send AE if Inactive flag doesn't match VUID Status.
|
|
| DUP(SUB,X1,X2) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | 920+35 |
| ^DIC | 920+13, 920+39 |
| FILE^DICN | 920+54 |
| CHK^DIE | 920+52 |
| FILE^DIE | 920+68 |
| UPDATE^DIE | 99999914+12, 99999928+13 |
| ^DIK | DS+4 |
| $$ROOT^DILFD | 920+26, DS+2 |
| $$GET1^DIQ | 920+43, M92004+2, M92003+5 |
| GETS^DIQ | M999283+4, M999143+4, DUP+2 |
| $$FMTHL7^XLFDT | M92002+3 |
| $$GETSTAT^XTID | 920+50 |
| $$UNESC^XUMF0 | 920+3, 920+12, 920+25 |
| ADD^XUMF1H | 920+74 |
| EM^XUMF1H | 920+71, 99999914+15, 99999928+16, IFST+6 |
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | GET1^DIQ |
| ^AUTTIVIS - [#920] | GET1^DIQ |
| 9999999.143 | GETS^DIQ |
| 9999999.283 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XUMF EVENT" | 920+58*, 920+59* |
| Name | Line Occurrences |
|---|---|
| 920 | ZRT+3 |
| 9201 | ZRT+3 |
| 9204 | ZRT+3 |
| 99999904 | ZRT+3 |
| 99999914 | ZRT+3 |
| 99999928 | ZRT+3 |
| DS | 99999914+4, 99999914+5, 99999914+19, 99999914+20, 99999914+22, 99999914+23, 99999914+27, 99999914+28, 99999914+30, 99999914+31 , 99999928+5, 99999928+6, 9204+2, 9204+3 |
| DUP | 99999914+7, 99999928+8 |
| IFST | 99999914+32, 99999928+23, 9204+4, 9201+1, 99999904+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | 920+24~ |
| DA | 99999914+1~, 99999928+1~, DS+4~* |
| DA(1 | DS+4* |
| DIC | 920+11~, 920+13*, 920+24~, 920+39*, 920+54!*, M92003+3~, DS+4~ |
| DIC(0 | 920+13*, 920+39*, 920+54* |
| DIK | 99999914+1~, 99999928+1~, DS+4~* |
| ERR | 920+24~, 920+66!, 920+69, 920+71!, 99999914+1~, 99999914+13, 99999914+15, 99999928+1~, 99999928+14, 99999928+16 , IFST+6 |
| >> ERROR | 920+6*, 920+13*, 920+29*, 920+36*, 920+39*, 920+43, 920+45*, 920+46, 920+51, 920+53* , 920+55*, 920+70*, 920+71, 99999914+8, 99999914+14*, 99999914+15, 99999914+16, 99999928+9, 99999928+15*, 99999928+16 , 99999928+17, IFST+5*, IFST+6, DUP+4*, DUP+5, DUP+8* |
| FDA | 920+24~ |
| FDA( | 920+15*, 920+63*, 920+64*, IFST+1, IFST+3, IFST+4, IFST+5 |
| FDAA | 99999914+1~, 99999914+12, 99999928+1~, 99999928+13 |
| FDAA( | 99999914+10*, 99999914+11*, 99999928+11*, 99999928+12* |
| FIELD | IFST~, IFST+1, IFST+3, IFST+4, IFST+5 |
| >> HL | 920+3, 920+12, 920+25 |
| >> HLFS | 920+3, 920+9, 920+12, 920+25, 99999914+3, 99999914+19, 99999914+22, 99999914+25, 99999914+27, 99999914+30 , 99999928+4, 99999928+20, 9204+2, IFST+2 |
| >> HLNODE | ZRT+2*, 920+3, 920+6, 920+9*, 920+12, 920+13, 920+25, 920+29, 920+36, 920+39 , 920+45, 920+53, 920+55, 920+70, 99999914+3, 99999914+14, 99999914+19, 99999914+22, 99999914+25*, 99999914+27 , 99999914+30, 99999928+4, 99999928+15, 99999928+20*, 9204+2, IFST+2, IFST+5, DUP+4, DUP+8 |
| >> HLNODE(1 | ZRT+2 |
| I | 920+5*, 920+8*, 920+24~, 920+28*, 920+31*, 920+32*, 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12* , M92002+3, M92004+1, M92004+2, M92003+6, M999142+2, M9992803+1, M999283+3, M999283+6, M999143+3, M999143+7 , DUP+7* |
| IDX | DS+1~, DS+3*, DS+4 |
| >> IEN | ZRT+1, 920+1, 920+10, 920+14, 920+18, 920+43*, 920+45, 920+48, 920+49, 920+50 , 920+51, 920+56*, 920+58, 920+59, 920+61, 920+70, 920+77, 920+78, 99999914+2, 99999914+4 , 99999914+5, 99999914+9, 99999914+18, 99999914+19, 99999914+20, 99999914+21, 99999914+22, 99999914+23, 99999914+24, 99999914+26 , 99999914+27, 99999914+28, 99999914+29, 99999914+30, 99999914+31, 99999914+32, 99999928+2, 99999928+5, 99999928+6, 99999928+10 , 99999928+19, 99999928+21, 99999928+23, 9204+1, 9204+2, 9204+3, 9204+4, 9201+1, 99999904+1, IFST+1 , IFST+3, IFST+4, IFST+5, DUP+2 |
| IEN1 | 99999914+1~, 99999914+10*, 99999914+11, 99999928+1~, 99999928+11*, 99999928+12 |
| IENS | 920+11~, 920+14*, 920+15, 920+24~, 920+43*, 920+61*, 920+63, 920+64, 99999914+1~, 99999914+9* , 99999914+10, 99999914+11, 99999928+1~, 99999928+10*, 99999928+11, 99999928+12, M92002+3, M92004+1, M92004+2, M92003+4 , M92003+6, M999142+2, M9992803+1, M999283+3, M999283+4, M999283+6, M999143+3, M999143+4, M999143+7, DS~ , DS+2, DS+4 |
| IENX | 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12* |
| >> IFN | ZRT+3, 920+6, 920+13, 920+15, 920+26, 920+29, 920+36, 920+39, 920+45, 920+50 , 920+52, 920+53, 920+54, 920+55, 920+58, 920+59, 920+63, 920+64, 920+70, IFST+1 , IFST+3, IFST+4, IFST+5, DUP+2, DUP+4, DUP+8 |
| II | 99999914+1~, M999283+2~, M999283+5*, M999143+2~, M999143+5*, DUP+3*, DUP+4 |
| IIEN | 920+24~, 920+42*, 920+43*, 920+45 |
| >> LEV | M92002+3, M92004+1, M92004+2, M92003+4, M92003+6, M999142+2, M9992803+1, M999283+3, M999283+6, M999143+3 , M999143+7 |
| >> NAME | ZRT+1, 920+1, 920+10, 920+12*, 920+13, 920+18, 920+25*, 920+28, 920+30, 99999914+2 , 99999914+18, 99999914+21, 99999914+24, 99999914+26, 99999914+29, 99999914+32, 99999928+2, 99999928+19, 99999928+21, 99999928+23 , 9204+1, 9204+4, 9201+1, 99999904+1 |
| NO | IFST~, IFST+4 |
| >> OUT | 920+16*, 920+79*, 99999914+4*, 99999914+17*, 99999914+19*, 99999914+22*, 99999914+27*, 99999914+30*, 99999928+5*, 99999928+18* , 99999928+22*, 9204+2* |
| >> RECORD("BEFORE" | 920+49* |
| >> RECORD("NEW" | 920+56*, 920+58, 920+59 |
| >> RECORD("STATUS" | 920+50* |
| ROOT | 920+24~, 920+26*, 920+43, 920+49, DS+1~, DS+2*, DS+3, DS+4 |
| SUB | DUP~, DUP+3 |
| SUBFILE | DS~, DS+2 |
| TMP | 99999914+1~, 99999928+1~, M999283+2~, M999143+2~ |
| TMP( | M999283+5, M999143+5, DUP+3 |
| >> TMP1( | M92002+3*, M92004+1, M92004+2*, M92003+4, M92003+6*, M999142+2*, M9992803+1*, M999283+3, M999283+6*, M999143+3 , M999143+7* |
| >> VUID | 920+63, 920+70 |
| X | 920+11~, 920+13*, 920+24~, 920+35*, 920+39*, 920+52, 920+53, 99999914+1~, 99999914+3*, 99999914+4 , 99999914+6, 99999928+1~, 99999928+4*, 99999928+5, 99999928+7, M92002+1~, M92003+3~, M999142+1~, M999142+2*, DS+1~ |
| X1 | 920+2~, 920+3*, 920+5, 920+7*, 920+8*, 920+9, 920+24~, 920+30*, 920+32*, 920+43 , 920+52, 99999914+1~, 99999914+6*, 99999914+7, 99999914+10, 99999928+1~, 99999928+7*, 99999928+8, 99999928+11, IFST+2~* , IFST+3, IFST+4, DUP~, DUP+3 |
| X2 | 920+24~, 920+30*, 920+35, 920+37*, 920+43, 99999914+1~, 99999914+6*, 99999914+7, 99999914+11, 99999928+1~ , 99999928+7*, 99999928+8, 99999928+12, M92002+3, M92004+1, M92004+2, M92003+4, M92003+6, M999142+2, M9992803+1 , M999283+3, M999283+6, M999143+3, M999143+7, DUP~, DUP+7 |
| X3 | 920+24~, 920+30*, 920+31*, 920+39, 920+40*, 920+43, 99999914+1~, M999283+2~, M999283+5*, M999283+6 , M999143+2~, M999143+5*, M999143+7, DUP+3* |
| X4 | 99999914+1~, 99999914+11*, 99999928+1~, 99999928+12*, M999283+2~, M999283+3*, M999283+5*, M999283+6*, M999143+2~, M999143+3* , M999143+5*, M999143+7* |
| X5 | 99999914+1~, DUP+7* |
| X6 | 99999914+1~ |
| X6( | DUP+7* |
| XIEN | 920+77! |
| XIEN( | 920+77, 920+78* |
| XREF | 920+24~ |
| XX | 99999914+1~, M92004+1~*, M92004+2, M92003+3~, M92003+4*, M92003+5*, M92003+6 |
| XXIEN | ZRT+1! |
| XXIEN( | 99999914+5*, 99999914+20*, 99999914+23*, 99999914+28*, 99999914+31*, 99999928+6*, 9204+3* |
| Y | 920+2~, 920+5*, 920+6, 920+7, 920+8*, 920+13, 920+15, 920+24~, 920+28*, 920+29 , 920+30, 920+32*, 920+36, 920+37, 920+39, 920+40, 920+55, 920+56, M92002+1~, M92002+3* , M92003+3~ |
| YES | IFST~, IFST+3 |