Sub-Field: 357.9901

Parent File	Name	Number	Package
PRINT MANAGER CLINIC GROUPS(#357.99)	CLINICS	357.9901	Automated Information Collection System

Parent File

Name

Number

Package

CLINICS

357.9901

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CLINICS	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 01, 1995` DESCRIPTION: A clinic contained in the group. TECHNICAL DESCR: SCREEN: `S DIC("S")="I $P(^(0),U,3)=""C"""` EXPLANATION: `Only clinics can be selected.` PRE-LOOKUP: `I $E(X,$L(X))="*" D WILDCARD^IBDFCG1` CROSS-REFERENCE: `357.9901^B` 1)= S ^IBD(357.99,DA(1),10,"B",$E(X,1,30),DA)="" 2)= K ^IBD(357.99,DA(1),10,"B",$E(X,1,30),DA)

CLINICS

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 1995
DESCRIPTION:
```
A clinic contained in the group.
```
TECHNICAL DESCR:
SCREEN: S DIC("S")="I $P(^(0),U,3)=""C"""
EXPLANATION: Only clinics can be selected.
PRE-LOOKUP: I $E(X,$L(X))="*" D WILDCARD^IBDFCG1

CROSS-REFERENCE: 357.9901^B

1)= S ^IBD(357.99,DA(1),10,"B",$E(X,1,30),DA)=""

2)= K ^IBD(357.99,DA(1),10,"B",$E(X,1,30),DA)