Print Page as PDF
VS GUI access to routine AUPNPAT ICR (7032)

VS GUI access to routine AUPNPAT    ICR (7032)

Name Value
NUMBER 7032
IA # 7032
DATE CREATED 2019/02/28
CUSTODIAL PACKAGE PCE PATIENT CARE ENCOUNTER
USAGE Private
TYPE Routine
ROUTINE AUPNPAT
NAME VS GUI access to routine AUPNPAT
GENERAL DESCRIPTION

************************************************************************
*                                                                      *
*  This is a temporary ICR for the production VistA Scheduling (VS)    * *
GUI software.                                                       * *  The
need for this ICR was identified from the VS Sustainment Team   * *  reviewing
the VistA Scheduling Enhancement (VSE) software that was  * *  released
nationally without approved ICRs.  This temporary ICR      * *  represents the
situation, where the Custodian package experts       * *  requested changes to
the production software to use approved        * *  APIs, which requires a
future VS patch. This temporary ICR will     * *  expire when the production
code is modified to the use approved     * *  APIs
*
*                                                                      *
************************************************************************
STATUS Withdrawn
DURATION Till Otherwise Agreed
ID AUPNPAT
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
START
Extracts sex, date of birth, date of death (if
present) and calculates age at death or today if still alive.
VARIABLES TYPE VARIABLES DESCRIPTION
Y Input
Pointer to Patient (#2) file
AUPNSEX Output
Patient's sex
AUPNDOB Output
Patient's date of birth
AUPNDOD Output
Patient's date of death
AUPNDAYS Output
Patient's age at death or current if still alive
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE SUBSCRIBING DETAILS
SCHEDULING
AUPNPAT called to get select data about the patient.
The routine is called without a tag.  START is the first tag in the routine so
a call to AUPNPAT is equivalent to calling START^AUPNPAT.

MAIL MESSAGE 93513057