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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DGS(41.1

Package: Registration

Global: ^DGS(41.1


Information

FileMan FileNo FileMan Filename Package
41.1 SCHEDULED ADMISSION Registration

Description

Directly Accessed By Routines, Total: 42

Package Total Routines
Registration 20 DG1010PA    DGBLRV    DGDEATH    DGDIS1    DGFFP03    DGPMRB    DGPMV22    DGPMV31
DGPMVBUL    DGPMVDL    DGQESC3    DGRPD    DGSCHAD    DGSCHAD1    DGSCHAD2    DGSCHAD3
DGV53PT5    DGYPREG1    ^DGS(41.1    DGYPREG    
Surgery 8 SRSCD    SRSCDS    SRSCDS1    SRSCDW1    SRSCHAP    SRSRBS    SRSRBS1    SRSRBW1
Integrated Billing 6 IB20PT81    IBTOSA    IBTRE20    IBTRKR2    IBTRPR01    IBTUTL2    
Scheduling 3 SCMSPX1    SCMSPX2    SDM    
Health Summary 1 GMTSDGA2    
IHS Changes To ADT 1 ADGRPD    
IHS Electronic Health Record 1 BEHOPTC1    
Local Area Programs 1 AZAXDPM2    
Order Entry Results Reporting 1 OR3CONV    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Registration 7 DGDIS1    DGPMV31    DGPMVDL    DGSCHAD    DGSCHAD1    DGSCHAD3    DGV53PT5    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 CLAIMS TRACKING(#356)[.32]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Registration 5 MEDICAL CENTER DIVISION(#40.8)[12]    PATIENT MOVEMENT(#405)[17]    WARD LOCATION(#42)[8]    FACILITY TREATING SPECIALTY(#45.7)[9]    VA PATIENT(#2)[.01]    
Kernel 1 NEW PERSON(#200)[51114]

Fields, Total: 17

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  MAY 05, 1987
  • DESCRIPTION:  
    Enter the name of the patient that is scheduled for a future admission at this facility.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  41.1^B
    1)= S ^DGS(41.1,"B",$E(X,1,30),DA)=""
    2)= K ^DGS(41.1,"B",$E(X,1,30),DA)
2 RESERVATION DATE/TIME 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 1987
  • DESCRIPTION:  
    Enter the date/time this patient is scheduled to appear at your facility for this admission.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  41.1^C
    1)= S ^DGS(41.1,"C",$E(X,1,30),DA)=""
    2)= K ^DGS(41.1,"C",$E(X,1,30),DA)
3 LENGTH OF STAY EXPECTED 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    Enter the length of time it is expected this patient will have to remain at your facility until inpatient treatment is complete.
4 ADMITTING DIAGNOSIS 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1991
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    Enter the diagnosis of the illness or injury for which this patient will be treated.
5 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Allow only active providers.
  • DESCRIPTION:  
    Enter the name of the provider who has ordered this admission.
  • SCREEN:  S DIC("S")="I $$SCREEN^DGPMDD(Y,DA,DT)"
  • EXPLANATION:  Only select active providers
  • EXECUTABLE HELP:  D HELP^DGPMDD(DA,DT)
6 SURGERY 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • DESCRIPTION:  
    Answer YES if surgery will be required as part of the treatement this patient is scheduled for.
7 OPT/NSC STATUS 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    Enter yes if this patient will be admitted under the movement type OPT-NSC.  Otherwise, answer no.
8 WARD 0;8 POINTER TO WARD LOCATION FILE (#42)
************************REQUIRED FIELD************************
WARD LOCATION(#42)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 02, 1999
  • DESCRIPTION:  
    Enter the name of the ward this patient will be admitted to.
  • SCREEN:  S DIC("S")="I $S($D(^(""I"")):^(""I"")="""",1:1)"
  • EXPLANATION:  Only select active wards.
  • NOTES:  TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File
  • CROSS-REFERENCE:  41.1^ARSV
    1)= S ^DGS(41.1,"ARSV",$E(X,1,30),DA)=""
    2)= K ^DGS(41.1,"ARSV",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^41.1^12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(41.1,8,1,2,1.1) X ^DD(41.1,8,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=X,D0=DIU S:'$D(^DG(40.8,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0)
    1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" X ^DD(41.1,8,1,2,2.4)
    2.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= WARD:DIVISION:NUMBER
    DELETE VALUE)= @
    FIELD)= DIVISION
9 TREATING SPECIALTY 0;9 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 1995
  • HELP-PROMPT:  Enter treating specialty. This must be an active treating specialty.
  • DESCRIPTION:  
    Enter the name of the treating specialty under which this patient will be treated.
  • SCREEN:  S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))"
  • EXPLANATION:  Allows only active treating specialties.
  • NOTES:  TRIGGERED by the WARD OR TREATING SPECIALTY field of the SCHEDULED ADMISSION File
10 WARD OR TREATING SPECIALTY 0;10 SET
************************REQUIRED FIELD************************
  • 'W' FOR WARD;
  • 'T' FOR TREATING SPECIALTY;

  • LAST EDITED:  APR 17, 2000
  • DESCRIPTION:  
    Respond W if this patient is being scheduled for an admission to a particular ward or T if the sheduled admission is for a particular treating specialty.
  • CROSS-REFERENCE:  ^^TRIGGER^41.1^8
    1)= X ^DD(41.1,10,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,1,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="WARD"
    1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=41.1,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= WARD OR TREATING SPECIALTY'="WARD"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= WARD
  • CROSS-REFERENCE:  ^^TRIGGER^41.1^9
    1)= X ^DD(41.1,10,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(41.1,10,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)'="TREATING SPECIALTY"
    1.4)= S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=41.1,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= WARD OR TREATING SPECIALTY'="TREATING SPECIALTY"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= TREATING SPECIALTY
11 PERSON SCHEDULING ADMIT 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • DESCRIPTION:  
    The name of the user entering the scheduled admission will be stored here.
12 DIVISION 0;12 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) MEDICAL CENTER DIVISION(#40.8)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 03, 1986
  • DESCRIPTION:  
    Enter the name of the division to which this patient should report.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  Not Outpatient Divisions
  • NOTES:  TRIGGERED by the WARD field of the SCHEDULED ADMISSION File
13 DATE/TIME CANCELLED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 1987
  • DESCRIPTION:  
    If this scheduled admission was cancelled, enter the date/time it was cancelled.
14 CANCELLED BY 0;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • DESCRIPTION:  
    If this scheduled admission was cancelled, this field will contain the name of the user that cancelled it.
15 REASON CANCELLED 0;15 SET
  • '1' FOR EXPIRED;
  • '2' FOR OVERDUE;
  • '3' FOR REFUSED ADMISSION;
  • '4' FOR NO AVAILABLE BEDS;
  • '5' FOR OTHER;

  • LAST EDITED:  MAY 07, 1987
  • DESCRIPTION:  
    Choose from the available list the reason this scheduled admission was cancelled.
16 WAS PATIENT NOTIFIED 0;16 SET
  • '0' FOR YES;
  • '1' FOR NO;
  • '2' FOR NOT APPLICABLE;

  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    If the scheduled admission was cancelled, enter YES here if the patient was notified of the cancellation.  Otherwise answer NO.
17 ADMITTED 0;17 POINTER TO PATIENT MOVEMENT FILE (#405) PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 23, 1990
  • HELP-PROMPT:  If the patient was actually admitted, enter the admission movement
  • DESCRIPTION:  
    This field will contain the admission entry in the PATIENT MOVEMENT file.  If this field is not filled in, the patient was not admitted for this scheduled admission.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=1,($P(^(0),""^"",3)=+^DGS(41.1,DA,0))"
  • EXPLANATION:  Must be an admission movement and for the same patient
  • CROSS-REFERENCE:  41.1^AMVT
    1)= S ^DGS(41.1,"AMVT",$E(X,1,30),DA)=""
    2)= K ^DGS(41.1,"AMVT",$E(X,1,30),DA)

ICR, Total: 7

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #87
  • MENTAL HEALTH
  • ICR #429
  • INTEGRATED BILLING
  • PATIENT (.01).
    Access: Direct Global Read & w/Fileman

    RESERVATION DATE/TIME (2).
    Access: Direct Global Read & w/Fileman

    DATE/TIME CANCELLED (13).
    Access: Direct Global Read & w/Fileman

    ADMITTED (17).
    Access: Direct Global Read & w/Fileman

    PROVIDER (5).
    Access: Read w/Fileman

    The "C" cross-reference is used to find all scheduledadmissions within a specified date range.The 'B' cross-reference is used to find all scheduledadmissions associated with a patient.
    ICR #691
  • SURGERY
  • ICR #1003
  • HEALTH SUMMARY
  • Reservation Date/Time (2).
    Access: Read w/Fileman

    Length of Stay Expected (3).
    Access: Read w/Fileman

    Admitting Diagnosis (4).
    Access: Read w/Fileman

    Provider (5).
    Access: Read w/Fileman

    Surgery (6).
    Access: Read w/Fileman

    Ward (8).
    Access: Read w/Fileman

    Treating Specialty (9).
    Access: Read w/Fileman

    Ward or Treating Specialty (10).
    Access: Read w/Fileman

    Date/Time Cancelled (13).
    Access: Read w/Fileman

    Admitted (17).
    Access: Read w/Fileman

    ICR #1265
  • ORDER ENTRY/RESULTS REPORTING
  • PATIENT (.01).
    Access: Direct Global Read & w/Fileman

    Uses C cross-reference to get future scheduledadmissions.
    ICR #3796
  • ORDER ENTRY/RESULTS REPORTING
  • VIRTUAL PATIENT RECORD
  • Enterprise Health Management Platform
  • PATIENT (.01).
    Access: Direct Global Read & w/Fileman

    RESERVATION DATE/TIME (2).
    Access: Direct Global Read & w/Fileman

    WARD (8).
    Access: Direct Global Read & w/Fileman

    TREATING SPECIALTY (9).
    Access: Direct Global Read & w/Fileman

    DATE/TIME CANCELLED (13).
    Access: Direct Global Read & w/Fileman

    ADMITTED (17).
    Access: Direct Global Read & w/Fileman

    PROVIDER (5).
    Access: Direct Global Read & w/Fileman

    The 'B' cross-reference is used to find all scheduledadmissions associated with a patient.
    ICR #6611
  • VistA Integration Adapter
  • PATIENT (.01).
    Access: Read w/Fileman

    RESERVATION DATE/TIME (2).
    Access: Read w/Fileman

    LENGTH OF STAY EXPECTED (3).
    Access: Read w/Fileman

    ADMITTING DIAGNOSIS (4).
    Access: Read w/Fileman

    PROVIDER (5).
    Access: Read w/Fileman

    SURGERY (6).
    Access: Read w/Fileman

    WARD (8).
    Access: Read w/Fileman

    TREATING SPECIALTY (9).
    Access: Read w/Fileman

    PERSON SCHEDULING ADMIT (11).
    Access: Read w/Fileman

    DIVISION (12).
    Access: Read w/Fileman

    DATE/TIME CANCELLED (13).
    Access: Read w/Fileman

    CANCELLED BY (14).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 2+1, 13+1
    HELP^DGPMDD 5(HELP )
    ^DIC 5+1, 8+1, 9+1, 12+1, 17+1
    ^DICR 8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
    ^DD(41.1 8(XREF 2S), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
    ^DG(40.8 - [#40.8] 8(XREF 2n1.1)
    ^DGS(41.1 - [#41.1] .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4)
    10(XREF 1S), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.4), 17(XREF 1S), 17(XREF 1K)
    ^DIC(42 - [#42] 8(XREF 2n1.1)

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID2+1
    ^(0 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3), 10(XREF 2n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 2+1*, 13+1*
    >> D0 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
    >> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 5(HELP ), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 10(XREF 1n1.3)
    10(XREF 2n1.3), 17(XREF 1S), 17(XREF 1K)
    DIC 5+1!*, 8+1!*, 9+1!*, 12+1!*, 17+1!*
    DIC("S" 5+1*, 5SCR+1*, 8+1*, 8SCR+1*, 9+1*, 9SCR+1*, 12+1*, 12SCR+1*, 17+1*, 17SCR+1*
    >> DIE 5+1, 8+1, 9+1, 12+1, 17+1
    >> DIG 8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
    >> DIH 8(XREF 2n1.4), 8(XREF 2n2.4), 10(XREF 1n1.4), 10(XREF 2n1.4)
    >> DIU 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2K), 10(XREF 1S), 10(XREF 2S)
    DIV 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3)
    10(XREF 2n1.4)
    DIV(0 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2n1.3), 10(XREF 2n1.4)
    DT 5(HELP )
    >> I(0 8(XREF 2n1.1)
    >> I(100 8(XREF 2n1.1)
    U ID2+1, 8(XREF 2S), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4), 10(XREF 2S), 10(XREF 2n1.3)
    10(XREF 2n1.4)
    X .01(XREF 1S), .01(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1K), 3+1!, 4+1!, 5+1*!, 8+1*!, 8(XREF 1S)
    8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8(XREF 2K), 8(XREF 2n2.4), 9+1*!, 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 1n1.4)
    10(XREF 2S), 10(XREF 2n1.3), 10(XREF 2n1.4), 12+1*!, 13+1*!, 17+1*!, 17(XREF 1S), 17(XREF 1K)
    Y 2+1, 5+1, 8+1, 8(XREF 2S), 8(XREF 2K), 9+1, 10(XREF 1S), 10(XREF 2S), 12+1, 13+1
    , 17+1
    Y(0 10(XREF 1n1.3), 10(XREF 2n1.3)
    Y(1 8(XREF 2S), 8(XREF 2K), 10(XREF 1S), 10(XREF 1n1.3), 10(XREF 2S), 10(XREF 2n1.3)
    Y(101 8(XREF 2n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All