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: 9009017.11

Package: IHS Changes To Scheduling

WAITING LIST(#9009017.1)-->9009017.11

Sub-Field: 9009017.11


Information

Parent File Name Number Package
WAITING LIST(#9009017.1) PATIENT 9009017.11 IHS Changes To Scheduling

Details

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

  • LAST EDITED:  JUL 20, 2005
  • CROSS-REFERENCE:  9009017.11^B
    1)= S ^BSDWL(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BSDWL(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009017.1^AB
    1)= S ^BSDWL("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^BSDWL("AB",$E(X,1,30),DA(1),DA)
    3)= LISTS ALL WAIT LISTS FOR PATIENT
    IHS/ITSC/LJF 7/20/2005 PATCH 1004:  Created to easily find all waiting lists for a patient.
.012 DOB COMPUTED

  • MUMPS CODE:  X ^DD(9009017.11,.012,9.3) S Y(9009017.11,.012,102)=X,Y=$P(Y(9009017.11,.012,101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=Y(9009017.11,.012,80) S D1=Y(9009017.11,.012,81)
    9.2 = S Y(9009017.11,.012,81)=$G(D1),Y(9009017.11,.012,80)=$G(D0),Y(9009017.11,.012,1)=$S($D(^BSDWL(D0,1,D1,0)):^(0),1:"")
    9.3 = X ^DD(9009017.11,.012,9.2) S D0=$P(Y(9009017.11,.012,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(9009017.11,.012,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  #.01:.03
  • LAST EDITED:  DEC 21, 2000
.013 HRCN COMPUTED

  • MUMPS CODE:  NEW BSDX S BSDX=+^BSDWL(D0,1,D1,0),X=$$HRCN^BDGF2(BSDX,+$G(DUZ(2)))
  • ALGORITHM:  NEW BSDX S BSDX=+^BSDWL(D0,1,D1,0),X=$$HRCN^BDGF2(BSDX,+$G(DUZ(2)))
  • LAST EDITED:  MAR 10, 2004
.02 PRIORITY 0;2 SET
  • '1' FOR HIGH;
  • '2' FOR MIDDLE;
  • '3' FOR LOW;

  • LAST EDITED:  DEC 21, 2000
  • HELP-PROMPT:  Enter Priority if useful (optional).
.03 DATE ADDED TO LIST 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 21, 2000
  • CROSS-REFERENCE:  9009017.1^AC
    1)= S ^BSDWL("AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^BSDWL("AC",$E(X,1,30),DA(1),DA)
    3)= USED TO SORT WAITING LIST
.04 USER WHO ADDED 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 22, 2005
  • HELP-PROMPT:  Software stuffs user who added patient to list
.05 RECALL DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 21, 2000
  • HELP-PROMPT:  Enter date in the future for follow-up.
  • CROSS-REFERENCE:  9009017.1^AD
    1)= S ^BSDWL("AD",$E(X,1,30),DA(1),DA)=""
    2)= K ^BSDWL("AD",$E(X,1,30),DA(1),DA)
    3)= USED TO SORT BY DATE
.06 PROVIDER 0;6 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:  DEC 21, 2000
  • HELP-PROMPT:  Enter name of provider patient needs to see (optional).
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y)),$P($G(^VA(200,+Y,""PS"")),U,4)="""""
  • EXPLANATION:  ACTIVE PROVIDERS ONLY
.07 DATE REMOVED FROM LIST 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  DEC 21, 2000
  • HELP-PROMPT:  Enter date patient was removed from waiting list.
  • CROSS-REFERENCE:  9009017.1^AE
    1)= S ^BSDWL("AE",$E(X,1,30),DA(1),DA)=""
    2)= K ^BSDWL("AE",$E(X,1,30),DA(1),DA)
    3)= USED TO SORT BY DATE
.08 RESOLUTION 0;8 POINTER TO WAITING LIST REASON FILE (#9009017.4)
************************REQUIRED FIELD************************
WAITING LIST REASON(#9009017.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^BSDWLR(+Y,0),U,2)=""R"",$P(^(0),U,3)'=""I""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUL 22, 2005
  • SCREEN:  S DIC("S")="I $P(^BSDWLR(+Y,0),U,2)=""R"",$P(^(0),U,3)'=""I"""
  • EXPLANATION:  Select only active reasons.
.09 REASON ADDED TO LIST 0;9 POINTER TO WAITING LIST REASON FILE (#9009017.4)
************************REQUIRED FIELD************************
WAITING LIST REASON(#9009017.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^BSDWLR(+Y,0),U,2)=""A"",$P(^(0),U,3)'=""I""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  DEC 21, 2000
  • SCREEN:  S DIC("S")="I $P(^BSDWLR(+Y,0),U,2)=""A"",$P(^(0),U,3)'=""I"""
  • EXPLANATION:  Select only active reasons.
.11 USER WHO REMOVED 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 22, 2005
  • HELP-PROMPT:  Software stuffs user who removed patient from list.
1 COMMENTS 1;0 WORD-PROCESSING #9009017.111
Info |  Details |  All