Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^SDWL(409.32

Package: Scheduling

Global: ^SDWL(409.32

Information

FileMan FileNo	FileMan Filename	Package
409.32	SD WL CLINIC LOCATION	Scheduling

Description

This file contains the list of Clinics that can be used by an institution in the Wait List (Sch/PCMM) package. The clinic must be an active clinic in the Hospital Location file. Each entry in this file will contain a wait list activation date and inactivate date.

Directly Accessed By Routines, Total: 17

Accessed By FileMan Db Calls, Total: 16

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	CLINIC	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) LAST EDITED: `SEP 28, 2006` HELP-PROMPT: `Select a clinic that can have patients on a Wait List` DESCRIPTION: Enter clinics that are approved to be used by the Wait List(Sch/PCMM) application. Only active clinics in the Hospital Location file can be added. UNEDITABLE CROSS-REFERENCE: `409.32^B` 1)= S ^SDWL(409.32,"B",$E(X,1,30),DA)="" 2)= K ^SDWL(409.32,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^409.32^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SDWL(409.32,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(409.32,.01,1,2,1.1) S DIH=$G(^SDWL(409.32,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=409.32,DIG=.02 D ^DICR 1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0) 2)= Q CREATE VALUE)= #.01:INTERNAL(#3) DELETE VALUE)= NO EFFECT FIELD)= INSTITUTION
.02	INSTITUTION	0;6	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 2007` DESCRIPTION: Institution of the clinic in the .01 field SCREEN: `S DIC("S")="I $P(^(0),U,11)=""N"",$$TF^XUAF4(+Y)"` EXPLANATION: `INSTITUTION must be NATIONAL and a treating facility.` NOTES: `TRIGGERED by the CLINIC field of the SD WL CLINIC LOCATION File` CROSS-REFERENCE: `409.32^C` 1)= S ^SDWL(409.32,"C",$E(X,1,30),DA)="" 2)= K ^SDWL(409.32,"C",$E(X,1,30),DA)
1	DATE ACTIVATED	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 2002` HELP-PROMPT: `This is a required.` DESCRIPTION: Date the clinic is available to Wait List(Sch/PCMM). UNEDITABLE CROSS-REFERENCE: `409.32^ACT^MUMPS` 1)= I $D(X) S ^SDWL(409.32,"ACT",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1),DA,X)="" 2)= K ^SDWL(409.32,"ACT",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1),DA,X)
2	ACTIVATION DATE ENTERED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 18, 2002` DESCRIPTION: User entering activation date for clinic to Wait List(Sch/PCMM).
3	DATE INACTIVATED	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:$P(^SDWL(409.32,DA,0),U,2)>X X` LAST EDITED: `APR 23, 2008` DESCRIPTION: Date clinic can no longer be used by the Wait List(Sch/PCMM). It cannot be earlier than the activation date. CROSS-REFERENCE: `409.32^INA^MUMPS` 1)= I $D(X) K ^SDWL(409.32,"ACT",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1)) 2)= Q
4	INACTIVATION DATE ENTERED BY	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 18, 2002` DESCRIPTION: Date the clinic is no longer to be used by Wait List(Sch/PCMM).

ICR, Total: 2

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | ICR | All