VPRDPXIM ;SLC/MKB -- Immunizations extract ;8/2/11 15:29
Source file <VPRDPXIM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,IFN) | ; -- find patient's immunizations
|
|
| SORT(DFN,START,STOP) | ; -- build ^TMP("VPRIMM",$J,9999999-DATE,DA)=IMM^DATE in range
; from ^PXRMINDX(9000010.11,"PI",DFN,IMM,DATE,DA) |
|
| EN1(IEN,IMM) | ; -- return an immunization in IMM("attribute")=value
; Expects ^TMP("VPRIMM",$J,VPRIDT,VPRN)=IMM^DATE from EN/SORT |
|
| VST | ; look for values added by PX*1*210
|
|
| LOT | ; lot number, information
|
|
| VIS | ; vaccine information sheet
|
|
| CVX | ; CVX, CPT mappings
|
|
| XML(IMM) | ; -- Return immunizations as XML
|
|
| ADD(X) | ; -- Add a line @VPR@(n)=X
|
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
| FileNo | Call Tags |
|---|---|
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD |
| ^AUTTIMM - [#9999999.14] | GET1^DIQ |
