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

Package: IHS HIV Management System

HMS REGISTRY(#90451)-->90451.01

Sub-Field: 90451.01


Information

Parent File Name Number Package
HMS REGISTRY(#90451) REGISTER 90451.01 IHS HIV Management System

Details

Field # Name Loc Type Details
.01 REGISTER 0;1 POINTER TO HMS BASE FILE (#90450)
************************REQUIRED FIELD************************
HMS BASE(#90450)

  • INPUT TRANSFORM:  D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 09, 2005
  • HELP-PROMPT:  Enter the name of the register this patient is to be assigned to.
  • SCREEN:  S DIC("S")="I $P(^BKM(90450,X,0),U,4)'=1"
  • EXPLANATION:  If this register is locked, no entry is allowed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90451.01^B
    1)= S ^BKM(90451,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BKM(90451,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90451^D
    1)= S ^BKM(90451,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^BKM(90451,"D",$E(X,1,30),DA(1),DA)
.015 WHERE FOLLOWED 0;2 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  DEC 16, 2004
  • DESCRIPTION:  Select the facility location that primarily follows this patient's care related to HIV/AIDS. If this is not your facility, you can choose Other from the list and identify the specific facility in the Outside Location
    field.
.016 OUTSIDE LOCATION 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  AUG 04, 2008
  • HELP-PROMPT:  Enter the name of a facility where this patient is followed, such as an outside referral physician's office or other IHS/tribal facility, limited to 50 characters.
  • DESCRIPTION:  
    Free text location of service.
.017 OUTSIDE PROVIDER NAME 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  AUG 27, 2008
  • HELP-PROMPT:  Enter the name of this patient's HIV provider at the Outside Location, limited to 50 characters.
.02 RECORD CREATION DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 18, 2005
  • HELP-PROMPT:  Enter the date this patient was placed on this register.
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.025
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.02,1,1,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90451.01,DIG=.025 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X="NO EFFECT" X ^DD(90451.01,.02,1,1,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90451.01,DIG=.025 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= "NO EFFECT"
    FIELD)= #.025
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="R" X ^DD(90451.01,.02,1,2,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=90451.01,DIG=.5 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="NO EFFECT" X ^DD(90451.01,.02,1,2,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=90451.01,DIG=.5 D ^DICR
    CREATE VALUE)= S X="R"
    DELETE VALUE)= "NO EFFECT"
    FIELD)= #.5
    This cross reference sets the Status field (.5) equal to 'NOT REVIEWED' when
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.75
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.02,1,3,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="NO EFFECT" X ^DD(90451.01,.02,1,3,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    CREATE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    DELETE VALUE)= "NO EFFECT"
    FIELD)= #.75
    This cross reference sets the DATE OF LAST STATUS CHANGE to Today when RECORD CREATION DATE/TIME is set.
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.8
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.02,1,4,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X="NO EFFECT" X ^DD(90451.01,.02,1,4,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= "NO EFFECT"
    FIELD)= #.8
    This cross reference sets WHO LAST CHANGED STATUS equal to the user's DUZ when RECORD CREATION DATE/TIME is set.
.025 RECORD CREATED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 21, 2005
  • HELP-PROMPT:  Who placed this person on this register
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the RECORD CREATION DATE/TIME field of the REGISTER sub-field of the HMS REGISTRY File
.03 DATE/TIME INACTIVATED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 21, 2005
  • HELP-PROMPT:  Enter the date this patient was removed from this register
  • NOTES:  TRIGGERED by the STATUS field of the REGISTER sub-field of the HMS REGISTRY File
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.035
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.03,1,1,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=90451.01,DIG=.035 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.03,1,1,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=90451.01,DIG=.035 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= REMOVED FROM REGISTER BY
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.75
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.03,1,2,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.03,1,2,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    CREATE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    DELETE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    FIELD)= DATE OF LA
    This cross reference will set the 'DATE OF LAST STATUS CHANGE' equal to today
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.8
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.03,1,3,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.03,1,3,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= WHO LAST CHA
    This cross Reference sets the 'WHO LAST CHANGE STATUS' equal to duz
.035 INACTIVATED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 21, 2005
  • HELP-PROMPT:  Who removed this patient from this register?
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE/TIME INACTIVATED field of the REGISTER sub-field of the HMS REGISTRY File
    TRIGGERED by the STATUS field of the REGISTER sub-field of the HMS REGISTRY File
.5 STATUS 0;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'T' FOR TRANSIENT;
  • 'D' FOR DECEASED;

  • LAST EDITED:  AUG 17, 2005
  • HELP-PROMPT:  Enter the status of this patient on this register.
  • AUDIT:  YES, ALWAYS
  • NOTES:  TRIGGERED by the RECORD CREATION DATE/TIME field of the REGISTER sub-field of the HMS REGISTRY File
  • CROSS-REFERENCE:  90451.01^STATUS
    1)= S ^BKM(90451,DA(1),1,"STATUS",$E(X,1,30),DA)=""
    2)= K ^BKM(90451,DA(1),1,"STATUS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90451^E^MUMPS
    1)= D STATBUL^BKMILK
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.75
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.5,1,3,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.5,1,3,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90451.01,DIG=.75 D ^DICR
    CREATE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    DELETE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    FIELD)= DATE OF LAST STATUS CHANGE
    This cross reference updates DATE OF LAST STATUS CHANGE for updates to the STATUS field.
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.8
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.5,1,4,1.4)
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.5,1,4,2.4)
    2.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=90451.01,DIG=.8 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= WHO LAST CHANGED STATUS
    This cross reference updates WHO LAST CHANGED STATUS when STATUS is updated.
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.03
    1)= X ^DD(90451.01,.5,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S DT="",X="T" D ^%DT S X=+Y X ^DD(90451.01,.5,1,5,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(90451.01,.5,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="INACTIVE"
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=90451.01,DIG=.03 D ^DICR
    2)= X ^DD(90451.01,.5,1,5,2.3) I X S X=DIV S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=90451.01,DIG=.03 D ^DIC
    R
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(90451.01,.5,0)),U,3),Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))'="INACTIVE"
    CREATE CONDITION)= STATUS="INACTIVE"
    CREATE VALUE)= S DT="",X="T" D ^%DT S X=+Y
    DELETE CONDITION)= STATUS'="INACTIVE"
    DELETE VALUE)= @
    FIELD)= DATE/TIME INACTIVATED
    This cross reference updates DATE/TIME INACTIVATED when STATUS becomes INACTIVE or deletes DATE/TIME INACTIVATED when STATUS is not INACTIVE.
  • CROSS-REFERENCE:  ^^TRIGGER^90451.01^.035
    1)= X ^DD(90451.01,.5,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90451.01,.5,1,6,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(90451.01,.5,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="INACTIVE"
    1.4)= S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=90451.01,DIG=.035 D ^DICR
    2)= X ^DD(90451.01,.5,1,6,2.3) I X S X=DIV S Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^BKM(90451,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=90451.01,DIG=.035 D ^DI
    CR
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(90451.01,.5,0)),U,3),Y(1)=$S($D(^BKM(90451,D0,1,D1,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59))'="INACTIVE"
    CREATE CONDITION)= STATUS="INACTIVE"
    CREATE VALUE)= S X=DUZ
    DELETE CONDITION)= STATUS'="INACTIVE"
    DELETE VALUE)= @
    FIELD)= INACTIVATED BY
    This cross reference updates INACTIVATED BY to the user's DUZ when the STATUS becomes INACTIVE and deletes INACTIVATED BY when the STATUS becomes not INACTIVE.
.55 PRIOR STATUS 0;8 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'D' FOR DECEASED;
  • 'T' FOR TRANSIENT;

  • LAST EDITED:  AUG 17, 2005
  • HELP-PROMPT:  Enter the patients last status on this register.
.75 DATE OF LAST STATUS CHANGE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 18, 2005
  • HELP-PROMPT:  Enter the date of the last status change of this patient.
  • NOTES:  TRIGGERED by the RECORD CREATION DATE/TIME field of the REGISTER sub-field of the HMS REGISTRY File
    TRIGGERED by the DATE/TIME INACTIVATED field of the REGISTER sub-field of the HMS REGISTRY File
    TRIGGERED by the STATUS field of the REGISTER sub-field of the HMS REGISTRY File
.8 WHO LAST CHANGED STATUS 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 18, 2005
  • HELP-PROMPT:  Enter the person to last change the status of this patient.
  • NOTES:  TRIGGERED by the RECORD CREATION DATE/TIME field of the REGISTER sub-field of the HMS REGISTRY File
    TRIGGERED by the DATE/TIME INACTIVATED field of the REGISTER sub-field of the HMS REGISTRY File
    TRIGGERED by the STATUS field of the REGISTER sub-field of the HMS REGISTRY File
1 STATUS COMMENTS 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUN 04, 2008
  • HELP-PROMPT:  Enter a Comment related to Register Status, limited to 50 characters.
  • CROSS-REFERENCE:  90451.01^AC^MUMPS
    1)= D STCS^BKMOFF
    2)= D STCK^BKMOFF
    Need to pass comments to new word-processing field since it is not capable of doing a trigger.
2.3 HMS DIAGNOSIS CATEGORY 3;7 SET
  • 'H' FOR HIV;
  • 'A' FOR AIDS;
  • 'EI' FOR AT RISK- INFANT EXPOSED;
  • 'EO' FOR AT RISK- OCCUPATIONAL EXPOSURE;
  • 'EN' FOR AT RISK- NONOCCUPATIONAL EXPOSURE;
  • 'EU' FOR AT RISK- EXPOSED SOURCE UNKNOWN;

  • LAST EDITED:  AUG 15, 2005
  • HELP-PROMPT:  Enter a specific HIV-related diagnostic category from the list.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  90451^F^MUMPS
    1)= D DXBUL^BKMILK
    2)= Q
2.5 DIAGNOSIS DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2005
  • HELP-PROMPT:  Enter the date of diagnosis that placed this patient on this registry.
2.7 DIAGNOSIS COMMENTS 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUN 04, 2008
  • HELP-PROMPT:  Enter a Comment about the diagnostic category, limited to 50 characters.
  • CROSS-REFERENCE:  90451.01^AD^MUMPS
    1)= D DXCS^BKMOFF
    2)= D DXCK^BKMOFF
3 CLINICAL CLASSIFICATION 2;1 POINTER TO HMS CLINICAL CLASSIFICATION FILE (#90451.7) HMS CLINICAL CLASSIFICATION(#90451.7)

  • LAST EDITED:  AUG 11, 2005
  • HELP-PROMPT:  Select a clinical classification from the CDC list. See Glossary for definitions of each classification.
  • AUDIT:  YES, ALWAYS
3.5 CLINICAL CLASS. CHANGE DT 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2005
  • HELP-PROMPT:  Enter the date of change to Category/Level
3.55 PRIOR CLINICAL CLASSIFICATION 2;3 POINTER TO HMS CLINICAL CLASSIFICATION FILE (#90451.7) HMS CLINICAL CLASSIFICATION(#90451.7)

  • LAST EDITED:  JUL 16, 2005
  • HELP-PROMPT:  What was patients category prior to last change
4 STATE HIV REPORTING DATE 2;4 DATE

  • INPUT TRANSFORM:  D HIVRDT^BKMVA9
  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the date when the HIV status was reported to the state.
  • EXECUTABLE HELP:  D HIVRHLP^BKMVA9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.1 STATE HIV ACK STATUS 2;12 SET
  • 'Y' FOR Yes;
  • 'N' FOR No;
  • 'U' FOR Unknown;

  • LAST EDITED:  NOV 30, 2005
  • HELP-PROMPT:  Has the State acknowledged receipt of this patient's HIV status report?
4.2 STATE HIV ACKNOWLEDGMENT DATE 2;5 DATE

  • INPUT TRANSFORM:  D HIVCDT^BKMVA9
  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the date the state acknowledged receipt of HIV report.
  • EXECUTABLE HELP:  D HIVCHLP^BKMVA9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.3 STATE HIV REPORTING STATUS 2;6 SET
  • 'Y' FOR Yes;
  • 'N' FOR No;
  • 'U' FOR Unknown;
  • 'R' FOR Remind Me Later;
  • 'A' FOR N/A;

  • LAST EDITED:  NOV 30, 2005
  • HELP-PROMPT:  Has this patient's HIV status been reported to the State?
4.4 STATE HIV RPT LAST UPDATED 2;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2005
  • HELP-PROMPT:  Date/time of last update of State HIV Reporting Status.
4.41 STATE HIV ACK LAST UPDATED 2;15 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2005
  • HELP-PROMPT:  Date/time of last update of State HIV Confirmation Status.
4.5 STATE AIDS REPORT DATE 2;9 DATE

  • INPUT TRANSFORM:  D AIDRDT^BKMVA9
  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the date when the AIDS status was reported to the state.
  • EXECUTABLE HELP:  D AIDRHLP^BKMVA9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.51 STATE AIDS ACK STATUS 2;13 SET
  • 'Y' FOR Yes;
  • 'N' FOR No;
  • 'U' FOR Unknown;

  • LAST EDITED:  NOV 30, 2005
  • HELP-PROMPT:  Has the State acknowledged receipt of this patient's AIDS status report?
4.52 STATE AIDS ACKNOWLEDGEMENT DT 2;10 DATE

  • INPUT TRANSFORM:  D AIDCDT^BKMVA9
  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the date the state acknowledged receipt of AIDS report.
  • EXECUTABLE HELP:  D AIDCHLP^BKMVA9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.53 STATE AIDS REPORT STATUS 2;11 SET
************************REQUIRED FIELD************************
  • 'Y' FOR Yes;
  • 'N' FOR No;
  • 'U' FOR Unknown;
  • 'R' FOR Remind Me Later;
  • 'A' FOR N/A;

  • LAST EDITED:  NOV 30, 2005
  • HELP-PROMPT:  Has this patient's AIDS status been reported to the State?
4.54 STATE AIDS RPT LAST UPDATED 2;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2005
  • HELP-PROMPT:  Date/time of last update of State AIDS Reporting Status.
4.541 STATE AIDS ACK LAST UPDATED 2;17 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2005
  • HELP-PROMPT:  Date/time of last update of State AIDS Confirmation Status.
5 INITIAL HIV DX DATE 2;7 DATE

  • INPUT TRANSFORM:  D HIVDT^BKMVA1U
  • LAST EDITED:  JUL 20, 2005
  • HELP-PROMPT:  Enter the date when this patient was first diagnosed with HIV.
  • EXECUTABLE HELP:  D HHLP^BKMVA1U
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5.5 INITIAL AIDS DX DATE 2;8 DATE

  • INPUT TRANSFORM:  D AIDDT^BKMVA1U
  • LAST EDITED:  JUL 20, 2005
  • HELP-PROMPT:  Enter the date when this patient was first diagnosed with AIDS.
  • EXECUTABLE HELP:  D AHLP^BKMVA1U
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 REGISTER PROVIDER 3;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(""PS"")):1,'$P(^(""PS""),U,4):1,DT'>$P(^(""PS""),U,4):1,1:0)&($D(^XUSEC(""PROVIDER"",Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 15, 2005
  • HELP-PROMPT:  Select the HIV Provider for this patient, if any.
  • SCREEN:  S DIC("S")="I $S('$D(^(""PS"")):1,'$P(^(""PS""),U,4):1,DT'>$P(^(""PS""),U,4):1,1:0)&($D(^XUSEC(""PROVIDER"",Y)))"
  • EXPLANATION:  Screen out non providers who are inactive
6.5 REGISTER CASE MANAGER 3;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I +$P(^(0),U,11)'>0,$P(^(0),U,11)'>DT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 04, 2005
  • HELP-PROMPT:  Select the HIV case manager for this patient, if any.
  • SCREEN:  S DIC("S")="I +$P(^(0),U,11)'>0,$P(^(0),U,11)'>DT"
  • EXPLANATION:  Screen out inactive persons
  • CROSS-REFERENCE:  90451^C
    1)= S ^BKM(90451,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^BKM(90451,"C",$E(X,1,30),DA(1),DA)
    Case Manager cross-reference
7 ETIOLOGY 3;3 POINTER TO HMS ETIOLOGY FILE (#90451.5) HMS ETIOLOGY(#90451.5)

  • LAST EDITED:  DEC 16, 2004
  • HELP-PROMPT:  Select a cause (etiology) of the patient's DX from the CDC list. See Glossary for definitions of each classification.
  • EXECUTABLE HELP:  D ETIXHLP^BKMILK
  • AUDIT:  YES, ALWAYS
7.5 ETIOLOGY COMMENTS 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  JUN 04, 2008
  • HELP-PROMPT:  Enter a Comment about the patient's etiology, limited to 50 characters.
  • CROSS-REFERENCE:  90451.01^AE^MUMPS
    1)= D ETCS^BKMOFF
    2)= D ETCK^BKMOFF
7.51 ETIOLOGY LAST UPDATED 3;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 29, 2006
  • DESCRIPTION:  
    Date/time of last update to ETIOLOGY field value.
11 *NOT APPROPRIATE REASON 3;5 SET
  • 'R' FOR PATIENT REFUSAL;
  • 'C' FOR COMPLICATING MEDICAL ISSUES;
  • 'S' FOR SUBSTANCE ABUSE ISSUES;
  • 'M' FOR MEDICAL NONCOMPLIANCE;
  • 'O' FOR OTHER;

  • LAST EDITED:  MAY 10, 2007
  • HELP-PROMPT:  Enter the reason this person is not HAART appropriate.
15 PARTNER NOTIFICATION STATUS 6;3 SET
  • 'Y' FOR Yes;
  • 'N' FOR No;
  • 'U' FOR Unknown;
  • 'R' FOR Remind Me Later;
  • 'A' FOR N/A;

  • LAST EDITED:  NOV 30, 2005
  • HELP-PROMPT:  Has this patient's partner(s) been notified?
  • AUDIT:  YES, ALWAYS
16 PARTNER NOTIFICATION DATE 6;4 DATE

  • INPUT TRANSFORM:  D PNOTDT^BKMVA9
  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the date partner notification was assessed.
  • EXECUTABLE HELP:  D PNOTHLP^BKMVA9
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17 PARTNER NOTIFIED LAST UPDATED 6;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2005
  • HELP-PROMPT:  Date/time of last update of Partner Notification Status.
20 NEW STATUS COMMENTS 20;0 WORD-PROCESSING #90451.02

  • DESCRIPTION:  
    Enter a Comment related to Register Status, limited to 50 characters.
21 NEW DIAGNOSIS COMMENTS 21;0 WORD-PROCESSING #90451.121

  • DESCRIPTION:  
    Enter a Comment about the diagnostic category, limited to 50 characters.
22 NEW ETIOLOGY COMMENTS 22;0 WORD-PROCESSING #90451.122

  • DESCRIPTION:  
    Enter a Comment about the patient's etiology, limited to 50 characters.
30 DATE/TIME OF LAST EDIT 9;0 DATE Multiple #90451.05 90451.05
35 PRIOR DIAGNOSIS 5;1 SET
  • 'A' FOR AIDS;
  • 'H' FOR HIV;
  • 'R' FOR AT RISK;
  • 'EO' FOR EXPOSED OCCUPATIONAL;
  • 'EU' FOR EXPOSED UNKNOWN;
  • 'EK' FOR EXPOSED SOURCE KNOWN;
  • 'EN' FOR EXPOSED NON-OCCUPATIONAL;
  • 'EI' FOR EXPOSED INFANT;

  • LAST EDITED:  MAR 22, 2005
    WRITE AUTHORITY:^
40 HAART APPROPRIATE DATE 40;0 DATE Multiple #90451.03 90451.03

  • LAST EDITED:  AUG 04, 2005
45 ARV STABILITY DATE 45;0 DATE Multiple #90451.145 90451.145
50 HAART COMPLIANCE DATE 50;0 DATE Multiple #90451.07 90451.07

  • LAST EDITED:  NOV 15, 2007
51 HMS DIAGNOSIS CATEGORY HISTORY 10;0 DATE Multiple #90451.151 90451.151
Info |  Details |  All