Print Page as PDF
DBIA299-A ICR (299)

DBIA299-A    ICR (299)

Name Value
NUMBER 299
IA # 299
GLOBAL ROOT DD(
DATE CREATED 1993/10/25
CUSTODIAL PACKAGE VA FILEMAN
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DBIA299-A
ORIGINAL NUMBER 299
GENERAL DESCRIPTION
The PDX (V 1.5) application is granted read access to
the DD and DIC globals to accomplish the following tasks:

1) See DBIA 821

2) Get node a field/multiple is stored on
$P($P(^DD(FILE,FIELD,0),"^",4),";",1)

3) Get field name
$P(^DD(FILE,FIELD,0),"^",1)

4) Determine if a field is date valued
$P(^DD(FILE,FIELD,0),"^",2)["D"

5) Determine if a subfile is a word processing field
$P(^DD(SUBFILE,.01,0),"^",2)["W"

6) Determine what file a field points to
+$P($P(^DD(FILE,FIELD,0),"^",2),"P",2)

7) Determine if a file is a subfile
$G(^DD(FILE,0,"UP"))'=""

8) Determine main file number for a subfile
$G(^DD(SUBFILE,0,"UP"))

9) Determine main field number for a subfile
$O(^DD(MAINFILE,"SB",SUBFILE,""))

10) Determine subfile number
+$P(^DD(FILE,FIELD,0),"^",2)

11) Check for valid file number
$D(^DD(FILE))

12) Check for valid field number
$D(^DD(FILE,FIELD))
STATUS Active
DURATION Till Otherwise Agreed
ID DD(
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
PATIENT DATA EXCHANGE Albany