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

Package: IHS Patient

Global: ^AUPNVNTS


Information

FileMan FileNo FileMan Filename Package
9000010.49 V NUTRITION SCREENING IHS Patient

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Patient Care Component 2 APCDUTL    APCHS8    
Health Summary Components 1 BHSNRS    
IHS Patient 1 AUPNCIX    
PCC Medical Query 1 AMQQMGR1    
Patient Care Component Reports 1 APCLAPI5    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V NUTRITION SCREENING(#9000010.49)[1208]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V NUTRITION SCREENING(#9000010.49)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1213]    
Kernel 1 NEW PERSON(#200)[1202120412171219]    
Utility Tables 1 EXAM(#9999999.15)[.01]    

Fields, Total: 32

Field # Name Loc Type Details
.01 NUTRITIONAL RISK SCREENING 0;1 POINTER TO EXAM FILE (#9999999.15)
************************REQUIRED FIELD************************
EXAM(#9999999.15)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=40" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 20, 2009
  • HELP-PROMPT:  Enter the nutritional risk screening exam (exam code 40)
  • DESCRIPTION:  
    This is the entry in the Exam file that represents what type of exam was done at the encounter.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=1,$P(^(0),U,2)=40"
  • EXPLANATION:  Only Nutritional Risk Screening exam is allowed.
  • CROSS-REFERENCE:  9000010.49^B
    1)= S ^AUPNVNTS("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVNTS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.49^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.49^AATOO2^MUMPS
    1)= I $P(^AUPNVNTS(DA,0),U,2),$P(^AUPNVNTS(DA,0),U,3) S ^AUPNVNTS("AA",$P(^AUPNVNTS(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVNTS(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVNTS(DA,0),U,2),$P(^AUPNVNTS(DA,0),U,3) K ^AUPNVNTS("AA",$P(^AUPNVNTS(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVNTS(DA,0),U,3),0),".",1)),DA)
.019 EXAM CODE COMPUTED

  • MUMPS CODE:  N DIT X ^DD(9000010.49,.019,9.3) S X=$P(DIT(101),U,2) S D0=DIT(80)
    9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^AUPNVNTS(D0,0)):^(0),1:"")
    9.3 = X ^DD(9000010.49,.019,9.2) S D0=$P(DIT(1),U,1) S:'$D(^AUTTEXAM(+D0,0)) D0=-1 S DIT(101)=$S($D(^AUTTEXAM(D0,0)):^(0),1:"")
  • ALGORITHM:  EXAM:CODE
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  OCT 15, 2009
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.49^AC
    1)= S ^AUPNVNTS("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVNTS("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.49^AATOO2^MUMPS
    1)= I $P(^AUPNVNTS(DA,0),U,2),$P(^AUPNVNTS(DA,0),U,3)]"" S ^AUPNVNTS("AA",X,+^AUPNVNTS(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVNTS(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVNTS(DA,0),U,3)]"" K ^AUPNVNTS("AA",X,+^AUPNVNTS(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVNTS(DA,0),U,3),0),".",1)),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVNTS(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 15, 2009
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the exam was done.
  • DESCRIPTION:  
    This is the encounter in the Visit file that represents when and where the exam was done.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVNTS(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.49^AD
    1)= S ^AUPNVNTS("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVNTS("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
    "AD",VISIT,DA
  • CROSS-REFERENCE:  9000010.49^AA^MUMPS
    1)= I $P(^AUPNVNTS(DA,0),U,2),$P(^AUPNVNTS(DA,0),U) S ^AUPNVNTS("AA",$P(^AUPNVNTS(DA,0),U,2),+^AUPNVNTS(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= I $P(^AUPNVNTS(DA,0),U,2),$P(^AUPNVNTS(DA,0),U) K ^AUPNVNTS("AA",$P(^AUPNVNTS(DA,0),U,2),+^AUPNVNTS(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, exam pointer, inverted visit, internal entry number.
    "AA",PATIENT,EXAM,VISIT,DA
  • CROSS-REFERENCE:  9000010.49^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
.04 AGE 70+ 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient's age is greater than or equal to 70 years old.
.05 ADMITTED W/NUTRITION SUPPORT? 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient was admitted with nutrition support (e.g., tube feeding, special formula, supplement).
.06 HIGH RISK WEIGHT ISSUES 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • EXECUTABLE HELP:  D V4906^AUPNCIX
.07 HIGH RISK DIAGNOSIS? 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
.08 POOR APPETITE / NPO? 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient has had either: 1) a poor appetitie for greater than or equal to 5 days or 2) has been NPO for greater than or equal to 3 days.
.09 DIFFICULTY CHEWING? 0;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient has difficulty chewing, swallowing, or pain in mouth, teeth, or gums.
.1 FOOD ALLERGIES/INTOLERANCES? 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient has any food allergies and/or intolerances
.11 RECENT VOMITING? 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient has recently vomited for more than 3 days or had diarrhea more than 3 times per day.
.12 OTHER RISK 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Select whether the patient has a nutritional risk factor other than those listed above.
.121 # OF YES VALUES COMPUTED

  • MUMPS CODE:  S X=$$NY^AUPNCIX(DA)
  • ALGORITHM:  S X=$$NY^AUPNCIX(DA)
  • LAST EDITED:  JUL 12, 2009
.13 OTHER RISK COMMENT 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Describe the risk factor. This comment will display on the health summary. 1-45 characters in length.
.14 NUTRITIONAL RISK 0;14 SET
  • 'L' FOR LOW;
  • 'H' FOR HIGH;

  • LAST EDITED:  JUL 12, 2009
.15 SEND REFERRAL? 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  If a patient answers Yes to specific risk questions, it is recommended that a referral be sent to the Registered Dietitian. Should the referral be sent?
1101 RISK COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>180!($L(X)<1) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Enter comments associated with the nutritional risk. 1-180 characters in length.
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the date and time the exam was given.
  • DESCRIPTION:  This is the date and time the exam was given 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 the provider performed the clinical event.
    The date may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction 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:  JUN 08, 1994
  • HELP-PROMPT:  Enter the provider who ordered this exam.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the exam.
  • 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:  Select ordering 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/SCREENING PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 19, 1994
  • HELP-PROMPT:  Enter the provider who gave the exam.
  • DESCRIPTION:  
    This is the provider who gave the exam.
  • 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 V NUTRITION SCREENING FILE (#9000010.49) V NUTRITION SCREENING(#9000010.49)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
1209 EXTERNAL KEY 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
1213 ANCILLARY POV 12;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  SEP 19, 2003
1215 ORDERING LOCATION 12;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 19, 2008
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.49^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVNTS(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.49,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVNTS(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.49,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.49^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVNTS(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.49,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVNTS(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.49,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V NUTRITION SCREENING File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V NUTRITION SCREENING File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.49^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVNTS(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.49,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVNTS(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.49,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V NUTRITION SCREENING File
1301 REFERRAL COMMENT 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>180!($L(X)<1) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Enter comments associated with the referral. 1-180 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All