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

Package: IHS Changes To ADT

WAITING LIST CLINIC-OLD(#9009015)-->9009015.01

Sub-Field: 9009015.01


Information

Parent File Name Number Package
WAITING LIST CLINIC-OLD(#9009015) PATIENT 9009015.01 IHS Changes To ADT

Details

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

  • LAST EDITED:  MAY 26, 1990
  • HELP-PROMPT:  Enter the name of the patient who is waiting for an appointment in this clinic.
  • CROSS-REFERENCE:  9009015.01^B
    1)= S ^ASDWL(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ASDWL(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009015^AB
    1)= S ^ASDWL("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ASDWL("AB",$E(X,1,30),DA(1),DA)
1 PRIORITY 0;2 SET
  • '1' FOR HIGH;
  • '2' FOR MIDDLE;
  • '3' FOR LOW;

  • HELP-PROMPT:  Enter patient's priority ranking for this clinic.
2 DATE ENTERED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  (stuffed by input template)
3 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(9009015.01,3,9.2) S D0=$P(Y(9009015.01,3,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9009015.01,3,101)=X S X=Y(9009015.01,3,101) S D0=Y(9009015.01,3,80) S D1=Y(9009015.01,3,81)
    9.2 = S Y(9009015.01,3,81)=$S($D(D1):D1,1:""),Y(9009015.01,3,80)=$S($D(D0):D0,1:""),Y(9009015.01,3,1)=$S($D(^ASDWL(D0,1,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT:DOB
4 HRCN COMPUTED

  • MUMPS CODE:  S DFN=$P(^ASDWL(D0,1,D1,0),"^"),X=$S($D(^AUPNPAT(DFN,41,DUZ(2),0)):$P(^(0),"^",2),1:"No HRCN at this facility")
  • ALGORITHM:  S DFN=$P(^ASDWL(D0,1,D1,0),"^"),X=$S($D(^AUPNPAT(DFN,41,DUZ(2),0)):$P(^(0),"^",2),1:"No HRCN at this facility")
5 COMMENTS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
6 RECALL DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 27, 1996
  • HELP-PROMPT:  Enter date (month & year) when you want to try to make appt for this patient.
7 PROVIDER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1996
  • HELP-PROMPT:  Enter name of provider patient needs to see (optional).
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • EXPLANATION:  CHOOSE ACTIVE PROVIDERS ONLY
Info |  Details |  All