VPR MED ROUTE (60)    ENTITY (1.5)

Name Value
NAME VPR MED ROUTE
DEFAULT FILE NUMBER 51.2
DATA MODEL SDA
DISPLAY NAME Route
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA51.2
  • Code
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   51.2
    FIELD NUMBER:   1
    GET ACTION:   S VALUE=$G(^TMP("VPRX",$J,"RTE",DIEN,1))
  • Description
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   51.2
    FIELD NUMBER:   .01
    GET ACTION:   S VALUE=$G(^TMP("VPRX",$J,"RTE",DIEN,.01))
  • OriginalText
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   51.2
    FIELD NUMBER:   10
DESCRIPTION
This entity supports VPR MEDICATION and expects a #51.2 ien. Results of 
calls to ALL^PSS51P2 are kept in ^TMP("VPRX",$J,"RTE") for the session, 
which will be killed by the Get Post Processing of VPR MEDICATION when 
all requested med orders have been extracted.
GET ID ACTION I '$D(^TMP("VPRX",$J,"RTE",DIEN)) D ALL^PSS51P2(DIEN,,,,"RTE") M ^TMP("VPRX",$J,"RTE",DIEN)=^TMP($J,"RTE",DIEN) K ^TMP($J,"RTE")