VPR PTF EXTENSION (108)    ENTITY (1.5)

Name Value
NAME VPR PTF EXTENSION
DEFAULT FILE NUMBER 45
DATA MODEL SDA
DISPLAY NAME DiagnosisExtension
ITEM
  • Package
    SEQUENCE:   1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   45
    ENTITY:   VPR PACKAGE
    GET ACTION:   S VALUE=+$O(^DIC(9.4,"C","DG",0)) S:VALUE<1 DDEOUT=1
  • PresentOnAdmission
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   45
    FIELD NUMBER:   82.01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$G(VPRPOA) S:VALUE="" DDEOUT=1
DESCRIPTION 
This entity extends VPR PTF; it expects the VPRPOA variable set in the
VPR PTF ID action for this record.