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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BDGSV

Package: IHS Changes To Scheduling

Global: ^BDGSV


Information

FileMan FileNo FileMan Filename Package
9009016.7 SCHEDULED VISIT IHS Changes To Scheduling

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS Changes To ADT 3 BDGPOST2    BDGSVL1    BDGXREF1    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IHS Changes To ADT 5 BDGPI0    BDGPOST2    BDGSVE    BDGSVL1    BDGSVS    
Registration 1 DGPMRBA1    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Registration 3 WARD LOCATION(#42)[.09]    SURGICAL SPECIALTY(#45.3)[.12]    FACILITY TREATING SPECIALTY(#45.7)[.08]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[.04, .05]    
Scheduling 1 HOSPITAL LOCATION(#44)[.11]    

Fields, Total: 33

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

  • LAST EDITED:  JUN 28, 2001
  • HELP-PROMPT:  Enter patient's name or chart #.
  • CROSS-REFERENCE:  9009016.7^B
    1)= S ^BDGSV("B",$E(X,1,30),DA)=""
    2)= K ^BDGSV("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009016.7^AD1^MUMPS
    1)= D SVADSET^BDGXREF1
    2)= D SVADKIL^BDGXREF1
    3)= USED BY PI - DO NOT DELETE
.011 HRCN COMPUTED

  • MUMPS CODE:  S X=$$HRCN^BDGF2(+$G(^BDGSV(D0,0)),+$G(DUZ(2)))
  • ALGORITHM:  S X=$$HRCN^BDGF2(+$G(^BDGSV(D0,0)),+$G(DUZ(2)))
  • LAST EDITED:  JUN 13, 2001
.012 AGE COMPUTED

  • MUMPS CODE:  S X=$$GET1^DIQ(9000001,+$G(^BDGSV(D0,0)),1102.99)
  • ALGORITHM:  S X=$$GET1^DIQ(9000001,+$G(^BDGSV(D0,0)),1102.99)
  • LAST EDITED:  JUN 13, 2001
.013 COMMUNITY COMPUTED

  • MUMPS CODE:  S X=$$GET1^DIQ(9000001,+$G(^BDGSV(D0,0)),1118)
  • ALGORITHM:  S X=$$GET1^DIQ(9000001,+$G(^BDGSV(D0,0)),1118)
  • LAST EDITED:  JUN 13, 2001
.02 DATE EXPECTED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 28, 2001
  • HELP-PROMPT:  Enter date patient is expected to arrive at your facility.
  • CROSS-REFERENCE:  9009016.7^D
    1)= S ^BDGSV("D",$E(X,1,30),DA)=""
    2)= K ^BDGSV("D",$E(X,1,30),DA)
    3)= Date xref for lookup and reports
  • CROSS-REFERENCE:  9009016.7^AC^MUMPS
    1)= D SVACSET^BDGXREF1
    2)= D SVACKIL^BDGXREF1
    3)= USED BY BED AVAILABILITY
  • CROSS-REFERENCE:  9009016.7^AD2^MUMPS
    1)= D SVADSET^BDGXREF1
    2)= D SVADSET^BDGXREF1
    3)= USED BY PI - DO NOT DELETE
.03 VISIT TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADMISSION;
  • 'D' FOR DAY SURGERY;
  • 'O' FOR OUTPATIENT VISIT;

  • LAST EDITED:  JUN 28, 2001
  • HELP-PROMPT:  Enter type of scheduled visit.
  • CROSS-REFERENCE:  9009016.7^AC1^MUMPS
    1)= D SVACSET^BDGXREF1
    2)= D SVACKIL^BDGXREF1
    3)= USED BY BED AVIALABILITY
.04 AUTHORIZING PROVIDER 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter the local provider who authorized this scheduled visit.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
  • EXPLANATION:  ACTIVE PROVIDERS ONLY
.05 CASE MANAGER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter the case manager for this visit (optional).
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
  • EXPLANATION:  Choose active providers only
.06 REFERRING PROVIDER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter name of provider who referred patient to this facility (optional).
.08 TREATING SPECIALTY 0;8 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^DIC(45.7,+Y,9999999)),U,3)=""Y""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Select the treating specialty that will be receiving this patient.
  • SCREEN:  S DIC("S")="I $P($G(^DIC(45.7,+Y,9999999)),U,3)=""Y"""
  • EXPLANATION:  Choose admitting services only
.09 WARD 0;9 POINTER TO WARD LOCATION FILE (#42)
************************REQUIRED FIELD************************
WARD LOCATION(#42)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^BDGWD(+Y,0)),U,3)'=""I""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2001
  • HELP-PROMPT:  Select ward that is expected to receive this patient.
  • SCREEN:  S DIC("S")="I $P($G(^BDGWD(+Y,0)),U,3)'=""I"""
  • EXPLANATION:  Choose active wards only
  • CROSS-REFERENCE:  9009016.7^AC2^MUMPS
    1)= D SVACSET^BDGXREF1
    2)= D SVACKIL^BDGXREF1
    3)= USED BY BED AVAILABILITY
.11 CLINIC 0;11 POINTER TO HOSPITAL LOCATION FILE (#44)
************************REQUIRED FIELD************************
HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Select the clinic in which this patient will be seen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""C"""
  • EXPLANATION:  Select clincs only.
.12 SURGICAL SPECIALTY 0;12 POINTER TO SURGICAL SPECIALTY FILE (#45.3)
************************REQUIRED FIELD************************
SURGICAL SPECIALTY(#45.3)

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Select the specialty that will be responsible for this surgery.
.121 SURGICAL SPECIALTY NAME COMPUTED

  • MUMPS CODE:  S X=$$GET1^DIQ(45.3,+$P($G(^BDGSV(D0,0)),U,12),1)
  • ALGORITHM:  S X=$$GET1^DIQ(45.3,+$P($G(^BDGSV(D0,0)),U,12),1)
  • LAST EDITED:  JUN 13, 2001
.13 EXPECTED LENGTH OF STAY 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter the number of days the patient is expected to stay.
.14 SURGERY DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter the planned date for surgery.
.15 SAME DAY ADMIT? 0;15 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Will this inpatient be admitted the same day as the surgery?
.16 VISIT DISPOSITION 0;16 SET
  • 'PA' FOR PAT ARRIVED;
  • 'NS' FOR NO-SHOW;
  • 'CA' FOR CANCELLED;
  • 'ER' FOR ENTERED IN ERROR;

  • LAST EDITED:  JUN 14, 2001
  • HELP-PROMPT:  A disposition must be entered to remove from the active list.
.17 OBSERVATION STAY PLANNED? 0;17 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Answer YES if this is a planned Day SUrgery Observation (DSO).
101 TRAVEL AUTHORIZATION 1;1 SET
  • 'NO' FOR PATIENT ARRANGING;
  • 'IN' FOR INBOUND ONLY;
  • 'OUT' FOR OUTBOUND ONLY;
  • 'RT' FOR ROUND TRIP;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Is payment for travel authorized?
102 TRAVEL DETAILS 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter any pertinent travel details (3-30 characters).
103 HOUSING AUTHORIZED 1;3 SET
  • 'NO' FOR PATIENT'S RESPONSIBILTY;
  • 'QTR' FOR FACILITY'S QUARTERS;
  • 'HTL' FOR LOCAL HOTEL;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Is payment for housing authorized?
104 NO. OF DAYS AUTHORIZED 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter # of days housing is authorized.
105 HOUSING STATUS 1;5 SET
  • 'R' FOR REQUESTED;
  • 'A' FOR AUTHORIZED;
  • 'N' FOR NOT AUTHORIZED;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Has housing been finalized?
106 NAME OF ESCORT 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  AUG 21, 2001
  • HELP-PROMPT:  If the patient will have an escort, enter that person's name here.
107 TRAVEL AUTHORIZED FOR ESCORT? 1;7 SET
  • 'NO' FOR ESCORT ARRANGING;
  • 'IN' FOR INBOUND ONLY;
  • 'OUT' FOR OUTBOUND ONLY;
  • 'RT' FOR ROUND TRIP;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Is payment for escort travel authorized?
108 HOUSING FOR ESCORT AUTHORIZED? 1;8 SET
  • 'NO' FOR ESCORT'S RESPONSIBILITY;
  • 'QTR' FOR FACILITY'S QUARTERS;
  • 'HTL' FOR LOCAL HOTEL;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Is payment for the escort's housing authorized?
109 NO. OF DAYS (ESCORT) 1;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter # of days housing authorized for escort.
110 ESCORT HOUSING STATUS 1;10 SET
  • 'R' FOR REQUESTED;
  • 'A' FOR AUTHORIZED;
  • 'N' FOR NOT AUTHORIZED;

  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  HAs housing been finalized for escort?
111 ESCORT DETAILS 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter any pertinent travel details for escort (3-30 characters).
201 DIAGNOSIS 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Answer must be 1-50 characters in length
202 PROCEDURE 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter scheduled procedure (1-50 characters).
203 ADDITIONAL COMMENTS 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JUN 13, 2001
  • HELP-PROMPT:  Enter any additional details (1-80 characters).
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All