VPRDJ09 ;SLC/MKB -- PCE ;8/2/11 15:29
Source file <VPRDJ09.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PX(FNUM) | ; -- PCE item(s)
|
|
| PX1 | ; -- PCE ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^DATE for FNUM
|
|
| POV | ||
| CPT | ||
| IM | ||
| HF | ||
| SK | ||
| PXQ | ;finish
|
|
| SORT | ; -- build ^TMP("VPRPX",$J,9999999-DATE,DA)=ITEM^DATE^[SYS] in range
; Expects VPRSTART and VPRSTOP |
|
| PI | ; from ^PXRMINDX(FNUM,"PI",DFN,ITEM,DATE,DA)
|
|
| PPI(INDX) | ; from ^PXRMINDX(FNUM,["10D",]"PPI",DFN,TYPE,ITEM,DATE,DA)
|
|
| PTF | ; from ^PXRMINDX(45,"ICD","PNI",DFN,TYPE,ITEM,DATE,DA)
; Expects VPRSTART and VPRSTOP |
| FileNo | Call Tags |
|---|---|
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | EXTERNAL^DILFD |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD |
| ^AUPNVCPT - [#9000010.18] | EXTERNAL^DILFD |
| ^AUTTHF - [#9999999.64] | EXTERNAL^DILFD, GET1^DIQ |
