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 |
Package | Total | Caller Graph |
---|---|---|
Kernel | 2 | ^DIC(4.001 FIELD NUMBER |
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 |