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: ^BATREG

Package: Asthma Tracking System

Global: ^BATREG


Information

FileMan FileNo FileMan Filename Package
90181.01 ASTHMA REGISTER Asthma Tracking System

Description

Directly Accessed By Routines, Total: 23

Package Total Routines
Asthma Tracking System 18 BATBLG    BATLRP1    BATREG    BATRP10    BATRP11    BATRPT0    BATRPT1    BATRPT2
BATRPT3    BATRPT4    BATRPT5    BATRPT6    BATRPT7    BATRPT8    BATRPT9    BATSUM
BATU    BATVSUM    
Patient Care Component 2 APCDEREG    APCHSAS1    
GUI Objects 1 BGOVAST    
Health Summary Components 1 BHSAST1    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Asthma Tracking System 3 BATBLG    BATREG    BATVSUM    
GUI Objects 1 BGOVAST    
Patient Care Component 1 APCDEREG    
iCare 1 BQIRGADD    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 2 PATIENT(#9000001)[.01]    VISIT(#9000010)[.05]    
Kernel 1 NEW PERSON(#200)[.04, .11, .12]

Fields, Total: 15

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  FEB 24, 2001
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90181.01^B
    1)= S ^BATREG("B",$E(X,1,30),DA)=""
    2)= K ^BATREG("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(90181.01,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=90181.01,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DT
    DELETE VALUE)= NO EFFECT
    FIELD)= #.09
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90181.01,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=90181.01,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.11
.02 STATUS 0;2 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;
  • 'D' FOR DECEASED;
  • 'T' FOR TRANSIENT;
  • 'U' FOR UNREVIEWED;

  • LAST EDITED:  FEB 06, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.03
    1)= X ^DD(90181.01,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(90181.01,.02,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(90181.01,.02,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="INACTIVE"
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90181.01,DIG=.03 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(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(90181.01,.02,1,1,2.4)
    2.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90181.01,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= STATUS="INACTIVE"
    CREATE VALUE)= S X=DT
    DELETE VALUE)= @
    FIELD)= #.03
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.04
    1)= X ^DD(90181.01,.02,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^BATREG(D0,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(90181.01,.02,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(90181.01,.02,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="INACTIVE"
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90181.01,DIG=.04 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(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(90181.01,.02,1,2,2.4)
    2.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90181.01,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= STATUS="INACTIVE"
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= #.04
.03 DATE INACTIVATED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 06, 2001
  • NOTES:  TRIGGERED by the STATUS field of the ASTHMA REGISTER File
.04 INACTIVATED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 06, 2001
  • NOTES:  TRIGGERED by the STATUS field of the ASTHMA REGISTER File
.05 LAST ASTHMA PCC VISIT 0;5 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  FEB 07, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(90181.01,.05,1,1,1.1) X ^DD(90181.01,.05,1,1,1.4)
    1.1)= S X=DIV S X=$S('$D(^AUPNVSIT(+DIV,0)):"",1:$P(^(0),U,1)),X=$P(X,".",1)
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=90181.01,DIG=.06 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(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(90181.01,.05,1,1,2.4)
    2.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=90181.01,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= DATE(#.05)
    DELETE VALUE)= @
    FIELD)= #.06
.06 DATE OF LAST ASTHMA VISIT 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 2001
  • NOTES:  TRIGGERED by the LAST ASTHMA PCC VISIT field of the ASTHMA REGISTER File
  • CROSS-REFERENCE:  ^^TRIGGER^90181.01^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$$NEXT^BATU(D0) X ^DD(90181.01,.06,1,1,1.4)
    1.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90181.01,DIG=.07 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(^BATREG(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(90181.01,.06,1,1,2.4)
    2.4)= S DIH=$S($D(^BATREG(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=90181.01,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$NEXT^BATU(D0)
    DELETE VALUE)= @
    FIELD)= #.07
.07 CALCULATED DATE DUE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 2001
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE OF LAST ASTHMA VISIT field of the ASTHMA REGISTER File
.08 NEXT SCHEDULED APPT 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 2001
.09 DATE ADDED TO FILE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 24, 2001
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PATIENT field of the ASTHMA REGISTER File
.091 LAST SEVERITY COMPUTED

  • MUMPS CODE:  S X=$$LASTSEV^BATU(DA,5)
  • ALGORITHM:  S X=$$LASTSEV^BATU(DA,5)
.092 DATE LAST SEVERITY COMPUTED

  • MUMPS CODE:  S X=$$LASTSEV^BATU(DA,3)
  • ALGORITHM:  S X=$$LASTSEV^BATU(DA,3)
.093 DATE OF ASTHMA MANAGEMENT PLAN COMPUTED

  • MUMPS CODE:  S X=$$LASTAM^BATU(DA,2)
  • ALGORITHM:  S X=$$LASTAM^BATU(DA,2)
.11 USER WHO ADDED 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 24, 2001
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PATIENT field of the ASTHMA REGISTER File
.12 CASE MANAGER 0;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 05, 2001
1100 NOTES/COMMENTS 11;0 WORD-PROCESSING #90181.0111
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All