VPR COMBAT PERIOD (196)    ENTITY (1.5)

Name Value
NAME VPR COMBAT PERIOD
DEFAULT FILE NUMBER 22
DATA MODEL SDA
DISPLAY NAME Period
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA22
  • Code
    SEQUENCE:   6
    ITEM TYPE:   ID
    GET ACTION:   S VALUE=$P(VPRPRD,U)
  • Description
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   22
    FIELD NUMBER:   .01
    GET ACTION:   S VALUE=$P(VPRPRD,U,2)
DESCRIPTION 
This entity returns an entry in the POW Period file #22 as a coded 
element.
GET EXIT ACTION K VPRPRD
GET ID ACTION S VPRPRD=$G(DIEN) S:VPRPRD="" DDEOUT=1