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: ^BKM(90451

Package: IHS HIV Management System

Global: ^BKM(90451


Information

FileMan FileNo FileMan Filename Package
90451 HMS REGISTRY IHS HIV Management System

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
IHS HIV Management System 16 BKM2POST    BKMILK    BKMIXX3    BKMIXX5    BKMPLKP    BKMQQCR    BKMQQCRD    BKMQQCRU
BKMQQCRV    BKMVA1B    BKMVA2    BKMVA9    BKMVF1    BKMVSRP1    BKMVSUP    BKMVSUP2
iCare 5 BQI2POST    BQIDCREG    BQIPTMRG    BQIRGHML    BQIRGUTL    
Patient Care Component 1 BJPC2ENV    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
IHS HIV Management System 10 BKMILK    BKMPLKP    BKMQSSR    BKMVA1B    BKMVA1U    BKMVA9    BKMVCD    BKMVF1
BKMVSRP1    BKMVSSR    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
IHS HIV Management System 3 HMS BASE(#90450)[#90451.01(.01)]    HMS ETIOLOGY(#90451.5)[#90451.01(7)]    HMS CLINICAL CLASSIFICATION(#90451.7)[#90451.01(3), #90451.01(3.55)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[#90451.01(.025), #90451.01(.035), #90451.01(.8), #90451.01(6), #90451.01(6.5), #90451.03(4), #90451.05(1), #90451.07(3), #90451.145(.04), #90451.151(.03)]    
Registration 1 VA PATIENT(#2)[.02]    
Utility Tables 1 LOCATION(#9999999.06)[#90451.01(.015)]    

Fields, Total: 4

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

  • LAST EDITED:  DEC 05, 2005
  • HELP-PROMPT:  Enter the name of the patient to be entered or edited on this register.
  • DESCRIPTION:  
    This field is a pointer to the patient file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90451^B
    1)= S ^BKM(90451,"B",$E(X,1,30),DA)=""
    2)= K ^BKM(90451,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90451^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BKM(90451,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^BKM(90451,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90451,DIG=.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BKM(90451,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^BKM(90451,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90451,DIG=.02 D ^DICR
    CREATE VALUE)= INTERNAL(PATIENT NAME)
    DELETE VALUE)= @
    FIELD)= #.02
    This trigger sets up the link to the VA Patient file
.02 VA PATIENT 0;3 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  FEB 08, 2005
  • HELP-PROMPT:  Enter the VA Patient file name that this patient points to.
  • DESCRIPTION:  
    Due to the multiple locations of the storage of patient demographic data it is necessary to have a separate pointer to the VA Patient file in order to perform file jumps in enter/edit and sort/search functions.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PATIENT NAME field of the HMS REGISTRY File
  • CROSS-REFERENCE:  90451^VA
    1)= S ^BKM(90451,"VA",$E(X,1,30),DA)=""
    2)= K ^BKM(90451,"VA",$E(X,1,30),DA)
.05 REGISTER ID 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8)!'(X?3U5N) X
  • LAST EDITED:  AUG 25, 2005
  • HELP-PROMPT:  Answer must be 8 characters in length. The first 3 characters are upper case alpha, the last 5 are random numbers.
  • DESCRIPTION:  
    This is the unique identifier associated with this patient on this register.
1 REGISTER 1;0 POINTER Multiple #90451.01 90451.01

  • LAST EDITED:  AUG 17, 2005
  • IDENTIFIED BY:  STATUS(#.5)[R]
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All