PXVZRT ;SLC/PBB - VIMM UTILITY ROUTINE ;Dec 01, 2021@12:25:45
Source file <PXVZRT.m>
| 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) | ;
|
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | GET1^DIQ |
| ^AUTTIVIS - [#920] | GET1^DIQ |
| 9999999.143 | GETS^DIQ |
| 9999999.283 | GETS^DIQ |
