HMPDJ09 ;SLC/MKB,ASMR/RRB,OB,MAT,CPC,HM - PCE;Apr 13, 2016 16:04:25
Source file <HMPDJ09.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PX(FNUM) | ; -- PCE item(s)
|
|
| PXA(ID) | ; -- find ID in ^PXRMINDX(FNUM), fall thru to PX1 if successful
|
|
| PX1 | ; -- PCE ^TMP("HMPPX",$J,HMPIDT,ID)=ITM^DATE for FNUM
|
|
| POV | ||
| CPT | ||
| IM | ||
| HF | ||
| SK | ||
| PXQ | ;finish
|
|
| SORT | ; -- build ^TMP("HMPPX",$J,9999999-DATE,DA)=ITEM^DATE in range
|
|
| PI | ; from ^PXRMINDX(FNUM,"PI",DFN,ITEM,DATE,DA)
|
|
| PPI | ; from ^PXRMINDX(FNUM,"PPI",DFN,TYPE,ITEM,DATE,DA)
|
|
| PTF | ; from ^PXRMINDX(45,"ICD9","PNI",DFN,TYPE,ITEM,DATE,DA)
|
|
| VIML(LOT,IMDATA) | ;VIMM2.0 Return IMMUNIZATION LOT data (Lot #, Expiration Date, and Mfr. can also be in COMMENTS)
|
|
| VIMM(DA,IMDATA,VISIT) | ;VIMM2.0 Return data for a specified V IMMUNIZATION entry.
|
|
| VIMIMM(IMMCODE,IMDATA) | ;VIMM2.0 Return data for an IMMUNIZATION entry.
|
|
| VIMVIS(DATA) | ;VIMM2.0 Return an IMMUNIZATION's VACCINE INFORMATION STATEMENT(s).
|
|
| VIMVISNW(DATA,IMDATA) | ;US14129 - Add VIS data to extract
|
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GETS^DIQ |
| ^AUPNVPOV - [#9000010.07] | EXTERNAL^DILFD |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD, GET1^DIQ, GETS^DIQ |
| ^AUPNVCPT - [#9000010.18] | EXTERNAL^DILFD |
| ^AUTTIVIS - [#920] | GETS^DIQ |
| ^AUTTIMM - [#9999999.14] | GETS^DIQ |
| ^AUTTIML - [#9999999.41] | FIND1^DIC |
| ^AUTTHF - [#9999999.64] | EXTERNAL^DILFD, GET1^DIQ |
