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

Directly Accessed By Routines, Total: 17

Package Total Routines
Scheduling 16 SDM1    SDM1A    SDM2A    SDPBE    SDWLCU1    SDWLCU3    SDWLCU5    SDWLCU6
SDWLDISP    SDWLE10    SDWLEVAL    SDWLPE    SDWLQSC    SDWLRP2    SDWLRP4    SDWLTR
Consult Request Tracking 1 GMRCONS1    

Accessed By FileMan Db Calls, Total: 16

Package Total Routines
Scheduling 16 SDM1A    SDM2A    SDWLBACC    SDWLCU3    SDWLCU5    SDWLDISP    SDWLE111    SDWLE2
SDWLE4    SDWLE7    SDWLPE    SDWLPL    SDWLQSC    SDWLQSC1    SDWLREB    SDWLRP2

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 SD WAIT LIST(#409.3)[8]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.02]    NEW PERSON(#200)[2, 4]    
Scheduling 1 HOSPITAL LOCATION(#44)[.01]    

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

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4844
  • CONSULT/REQUEST TRACKING
    		•  CLINIC (.01).
    Access: Direct Global Read & w/Fileman
    ICR #6047
  • MOBILE SCHEDULING APPLICATIONS SUITE
    		•  NAME (.01).
    Access: Read w/Fileman
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  All