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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AMHRMSR

Package: Mental Health Social Services

Global: ^AMHRMSR


Information

FileMan FileNo FileMan Filename Package
9002011.12 MHSS RECORD MEASUREMENTS Mental Health Social Services

Description

Directly Accessed By Routines, Total: 60

Package Total Routines
IHS GPRA Information System 24 BGP0D25    BGP0D5    BGP1D25    BGP1D5    BGP2D25    BGP2D5    BGP3D25    BGP3D5
BGP4D25    BGP4D5    BGP5D25    BGP5D27    BGP5D5    BGP6D25    BGP6D27    BGP7D25
BGP7D27    BGP8D25    BGP8D27    BGP8PC11    BGP8PC12    BGP8PC13    BGP9D25    BGP9D5
Mental Health Social Services 17 AMHGDVF2    AMHGEVF    AMHGU    AMHHS    AMHLEFP2    AMHPCCL1    AMHPHQM    AMHPHQO
AMHRAS1    AMHRAS2    AMHRAS31    AMHRDE1    AMHRDE2    AMHRDE31    AMHRGADM    AMHRGADO
AMHUTIL3    
IHS Uniform Data System 8 BUDBRP6Q    BUDCRP6Q    BUDDRP6M    BUDDRP6Q    BUDERP6M    BUDERP6Q    BUDHRP6M    BUDHRP6Q
Patient Care Component Reports 8 APCLAL1    APCLAL1A    APCLAL2    APCLAL31    APCLAPIU    APCLDE1    APCLDE2    APCLDE31
IHS Patient 2 AUPNVMS2    AUPNVMSR    
Diabetes Registry 1 BDMAPIU    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Mental Health Social Services 3 AMHEHR    AMHGDVF1    AMHGEVF    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Mental Health Social Services 1 MHSS RECORD MEASUREMENTS(#9002011.12)[1208]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Mental Health Social Services 2 MHSS RECORD(#9002011)[.03]    MHSS RECORD MEASUREMENTS(#9002011.12)[1208]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[12021204]    
Scheduling 1 CLINIC STOP(#40.7)[1203]    
Utility Tables 1 MEASUREMENT TYPE(#9999999.07)[.01]    

Fields, Total: 15

Field # Name Loc Type Details
.01 TYPE 0;1 POINTER TO MEASUREMENT TYPE FILE (#9999999.07)
************************REQUIRED FIELD************************
MEASUREMENT TYPE(#9999999.07)

  • LAST EDITED:  AUG 15, 2007
  • HELP-PROMPT:  Enter the measurement Type.
  • DESCRIPTION:  
    This is the type of measurement being taken on the patient.
  • TECHNICAL DESCR:  
    Pointer to the measurement type file.
  • CROSS-REFERENCE:  9002011.12^B
    1)= S ^AMHRMSR("B",$E(X,1,30),DA)=""
    2)= K ^AMHRMSR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.12^AV9^MUMPS
    1)= S:$D(AMHLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9002011.12^AA^MUMPS
    1)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U,2),$P(%,U,3) S ^AMHRMSR("AA",$P(%,U,2),X,(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)=""
    2)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U,2),$P(%,U,3) K ^AMHRMSR("AA",$P(%,U,2),X,(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)
.019 TYPE DESCRIPTION COMPUTED

  • MUMPS CODE:  X ^DD(9002011.12,.019,9.2) S Y(9002011.12,.019,101)=$S($D(^AUTTMSR(D0,0)):^(0),1:"") S X=$P(Y(9002011.12,.019,101),U,2) S D0=Y(9002011.12,.019,80)
    9.2 = S Y(9002011.12,.019,80)=$G(D0),Y(9002011.12,.019,1)=$S($D(^AMHRMSR(D0,0)):^(0),1:""),D0=$P(Y(9002011.12,.019,1),U,1) S:'D0!'$D(^AUTTMSR(+D0,0)) D0=-1
  • ALGORITHM:  TYPE:.02
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  AUG 27, 2007
  • HELP-PROMPT:  Enter the patient name.
  • DESCRIPTION:  
    Patient Name.
  • TECHNICAL DESCR:  
    Pointer to the patient file.  Always stuffed by data entry/no editing allowed.
  • CROSS-REFERENCE:  9002011.12^AC
    1)= S ^AMHRMSR("AC",$E(X,1,30),DA)=""
    2)= K ^AMHRMSR("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.12^AATOO^MUMPS
    1)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U),$P(%,U,3) S ^AMHRMSR("AA",X,$P(%,U),(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)=""
    2)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U),$P(%,U,3) K ^AMHRMSR("AA",X,$P(%,U),(9999999-$P($P(^AMHREC($P(%,U,3),0),U),".")),DA)
.03 MHSS RECORD 0;3 POINTER TO MHSS RECORD FILE (#9002011)
************************REQUIRED FIELD************************
MHSS RECORD(#9002011)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRMSR(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 15, 2007
  • HELP-PROMPT:  Enter the encounter from the Visit file. Always stuffed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,8)=$P(^AMHRMSR(DA,0),U,2)"
  • EXPLANATION:  Must be for current patient.
  • CROSS-REFERENCE:  9002011.12^AD
    1)= S ^AMHRMSR("AD",$E(X,1,30),DA)=""
    2)= K ^AMHRMSR("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002011.12^AATOOO^MUMPS
    1)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U),$P(%,U,2) S ^AMHRMSR("AA",$P(%,U,2),$P(%,U),(9999999-$P($P(^AMHREC(X,0),U),".")),DA)=""
    2)= NEW % S %=^AMHRMSR(DA,0) I $P(%,U),$P(%,U,2) K ^AMHRMSR("AA",$P(%,U,2),$P(%,U),(9999999-$P($P(^AMHREC(X,0),U),".")),DA)
.04 VALUE 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X["""" X I $D(X) K:$L(X)>100!($L(X)<1) X D:$D(X) BHM^AUPNVMSR
  • OUTPUT TRANSFORM:  S Y=$$OUTBH^AUPNVMSR(D0,Y)
  • LAST EDITED:  AUG 16, 2007
  • TECHNICAL DESCR:  
    The entry logic for each measurement type value is found in the AUPNVMSR routine that is executed by the input transform.  APCDALVR Variable = APCDALVR("APCDTVAL")
  • EXECUTABLE HELP:  D BHHELP^AUPNVMS2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 PERCENTILE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  AUG 20, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100, 1 Decimal Digit
  • TECHNICAL DESCR:  
    A value for this field be entered by trigger off the .04 field for heights and weights of patients aged below the age of 16.  APCDALVR Variable = APCDALVR("APCDTPCT")
.06 NUMERATOR ON VC/VU 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 10, 1996
  • HELP-PROMPT:  Enter the date and time the measurement was taken.
  • DESCRIPTION:  This is the date and time that the measurement was taken by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date
    and time of the appointment, not the time that the provider performed the clinical event.
    The data may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction that the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the
    measurement was done.  The event date does not have to be the visit Date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement.  Historical entries will not be eligible for credit.
    PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing. APCDALVR Variable = APCDALVR("APCDTCDT")
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Enter the provider who ordered this measurement.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the measurment to be done.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Must be a Provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 01, 1995
  • HELP-PROMPT:  Enter the provider who took the measurement.
  • DESCRIPTION:  
    This is the provider who took the measurement at the encounter.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTEPR")
1208 PARENT 12;8 POINTER TO MHSS RECORD MEASUREMENTS FILE (#9002011.12) MHSS RECORD MEASUREMENTS(#9002011.12)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  AUG 10, 1995
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any measurment data is being edited from the original entry of data.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
80102 DATA SOURCE 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  AUG 10, 1995
  • HELP-PROMPT:  Answer is automatically entered by the PCE filing logic.
  • DESCRIPTION:  
    This field is populated automatically by the PCE filing logic.  The format of the field is as follows: Pointer to PCE Data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE Data Source file. If this is not passed, then PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data.  If the record existed previously, PCE filing logic compares the old and new records of information.  An "E" will be
    automatically used if the filing logic finds the data has been edited.  If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous Data Source value, up to 85 characters.
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Enter a comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the patient's measurement which may be entered by the provider.  It may be entered manually via the PCE User Interface.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All