Envoke ASKDUZ - Routine XUP ICR (4596)

Name

Value

NUMBER

4596

IA #

4596

DATE CREATED

2005/01/26

CUSTODIAL PACKAGE

KERNEL

CUSTODIAL ISC

San Francisco

USAGE

Private

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

XUP

NAME

Envoke ASKDUZ - Routine XUP

GENERAL DESCRIPTION

Envoke ASKDUZ^XUP in routine DII if DUZ is undefined.

STATUS

Active

XUP

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

ASKDUZ

Usage Code: Routine: DII [snip]
I '+$G(DUZ),$D(^VA(200,0))#2 D  I '+$G(DUZ) W
$C(7),!,$$EZBLD^DIALOG(7005),! Q
. ;If ASKDUZ^XUP avainable use it first
. I $L($T(ASKDUZ^XUP)) N DIR,DIRUT,DUOUT,DTOUT D
Q:($D(DUOUT)!$D(DTOUT))
[snip]
.. D ASKDUZ^XUP
.. Q [snip]

Example usage: Failure: VCD,FMA>D P^DI


VA FileMan 22.0

Access Code:

Select NEW PERSON NAME: <rtn> You must have a valid DUZ!

Sucessful: VCD,FMA>D P^DI


VA FileMan 22.0

Access Code:


Select OPTION:

SUBSCRIBING PACKAGE

ISC

SUBSCRIBING DETAILS

Oakland

Routine: XUP; Line Label: ASKDUZ is the section of code
when at the programmer level that validates the user if the local variable DUZ
is undefined.  Example: >D ^XUP

Setting up programmer environment This is a TEST account.

Access Code: