Print Page as PDF
DBIA413 ICR (413)

DBIA413    ICR (413)

Name Value
NUMBER 413
IA # 413
DATE CREATED 1994/04/05
CUSTODIAL PACKAGE REGISTRATION
CUSTODIAL ISC Albany
USAGE Controlled Subscription
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE DGRPU1
NAME DBIA413
ORIGINAL NUMBER 413
STATUS Active
DURATION Till Otherwise Agreed
ID DGRPU1
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
QUES(DFN,DGQCODE)
If DGQCODE="ADD1" then:

The edit is to the patient's permanent address.

QUES^DGRPU1 will edit the following fields as the patient's permanent address:
Field Number        Field Name
============        ==========
.111                STREET ADDRESS [LINE 1]
.112                STREET ADDRESS [LINE 2]
.113                STREET ADDRESS [LINE 3]
.114                CITY
.115                STATE
.1112               ZIP+4
.117                COUNTY
.131                PHONE NUMBER [RESIDENCE]
.132                PHONE NUMBER [WORK]

The permanent address fields are those currently defined by the indicated MAS
routines and are subject to change per the redefinition of those fields by
that routine.


2) If DGQCODE= ADD4  then:

The editing is of the patient's confidential address fields.  Fee Basis will
be calling QUES^DGRPU1 to allow user editing of the patient's confidential
address information in the Patient (#2) file.  QUES^DGRPU1(DFN, ADD4 ) will
prompt the user for the following fields:

Field #                       Field Name
======                =========
.1411                   CONFIDENTIAL STREET [LINE 1]
.1412                   CONFIDENTIAL STREET [LINE 2]
.1413                   CONFIDENTIAL STREET [LINE 3]
.1414                   CONFIDENTIAL ADDRESS CITY
.1415                   CONFIDENTIAL ADDRESS STATE
.1416                   CONFIDENTIAL ADDRESS ZIP CODE
.1417                   CONFIDENTIAL START DATE
.1418                   CONFIDENTIAL END DATE
.14105                  CONFIDENTIAL ADDRESS ACTIVE?
.14111                  CONFIDENTIAL ADDRESS COUNTY

CONFIDENTIAL ADDRESS CATEGORY Multiple (#2.141)
.01             CONFIDENTIAL ADDRESS CATEGORY
1       CONFIDENTIAL CATEGORY ACTIVE
VARIABLES TYPE VARIABLES DESCRIPTION
DFN Input
Pointer to the patyent in file #2
DGQCODE Input
Indicates that QUES^DGRPU1 is to edit the patient's
permanent address.
DGCHANGE Output

= 1 if data modified
= 0 if data NOT modified

To be killed after the call.
DGERR Output
Error value.  To be killed after the call.
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC SUBSCRIBING DETAILS
AUTOMATED MED INFO EXCHANGE Albany
AMIE may only call with DGQCODE="ADD1"
FEE BASIS
FEE BASIS may only call with DGQCODE="ADD4"
SCHEDULING