Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 44.1

Package: Scheduling

HOSPITAL LOCATION(#44)-->44.1

Sub-Field: 44.1


Information

Parent File Name Number Package
HOSPITAL LOCATION(#44) PROVIDER 44.1 Scheduling

Details

Field # Name Loc Type Details
.01 PROVIDER 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 29, 1996
  • DESCRIPTION:  Enter in this field the providers associated with this clinic. These providers will then be displayed when updating the provider through Appointment Management or Check Out to assist the user in entering the correct
    provider.
  • SCREEN:  S DIC("S")="I $$SCREEN^SDUTL2(Y,DT)"
  • EXPLANATION:  Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS.
  • EXECUTABLE HELP:  D HELP^SDUTL2(DT)
  • CROSS-REFERENCE:  44.1^B
    1)= S ^SC(DA(1),"PR","B",$E(X,1,30),DA)=""
    2)= K ^SC(DA(1),"PR","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  44^AIHSDPR^MUMPS
    1)= S ^SC("AIHSDPR",X,DA(1),DA)=$P(^SC(DA(1),"PR",DA,0),U,2)
    2)= K ^SC("AIHSDPR",X,DA(1),DA)
    3)= FINDS A PROVIDER'S CLINICS
    IHS/ANMC/LJF 9/20/2000: IHS cross-reference to easily find all clinics for a particular provider and if that provider is listed as default.
.02 DEFAULT PROVIDER 0;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • INPUT TRANSFORM:  I X,$D(^SC("ADPR",DA(1))),'$D(^(DA(1),DA)) W !?5,"A default provider has already been assigned for this clinic." K X
  • LAST EDITED:  MAR 26, 1993
  • DESCRIPTION:  
    Enter 'YES' in this field if the provider is the default for this clinic.  Otherwise, enter 'NO'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  44^ADPR^MUMPS
    1)= S:X ^SC("ADPR",DA(1),DA)=""
    2)= K ^SC("ADPR",DA(1),DA)
  • CROSS-REFERENCE:  44^AIHSDPR2^MUMPS
    1)= S:X ^SC("AIHSDPR",$P(^SC(DA(1),"PR",DA,0),U),DA(1),DA)=1
    2)= S ^SC("AIHSDPR",$P(^SC(DA(1),"PR",DA,0),U),DA(1),DA)=""
    3)= FINDS A PROVIDER'S DEFAULT CLINICS
    IHS/ANMC/LJF 7/13/2001: Assists in finding those clinics where this provider is the default provider.
Info |  Details |  All