Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NUPAPI

NUPAPI.m

Go to the documentation of this file.
  1. NUPAPI ;PHOENIX/KLD; 7/15/09; NUPA PRE & POST-INITS; 2/23/12 1:27 PM
  1. ;;1.0;NUPA;;;Build 105
  1. ST S DIK="^NUPA(1927.1," F DA=0:0 S DA=$O(^NUPA(1927.1,DA)) Q:'DA D
  1. .D:$P(^NUPA(1927.1,DA,0),U)'="ASSESS NEW VERSION" ^DIK
  1. D ADD^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc") ;IA 2263
  1. D CHG^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc") ;IA 2263
  1. K DA,DIK D HFCAT,TOBACCO,HF^NUPAPI1,HF^NUPAPI2 Q
  1. ;
  1. PRE K ^NUPA(1927.2),^NUPA(1927.24),^NUPA(1927.41) Q ;Because KIDS wasn't overwriting the files
  1. ;
  1. HFCAT ;Enter Health Factor Categories
  1. N DIC,I,X S DIC="^AUTTHF(",DIC(0)="L"
  1. F I=0:1 S X=$P($T(HFC+I),";",3) Q:X="END" D:'$D(^AUTTHF("B",X))
  1. .S DIC("DR")=".1///C" K DD,DO D FILE^DICN
  1. Q
  1. HFC ;;ONS AA BRADEN SCALE
  1. ;;ONS AA CARDIOVASCULAR
  1. ;;ONS AA EDUCATION
  1. ;;ONS AA FALL PREVENTION INTERVENTIONS
  1. ;;ONS AA FUNCTIONAL
  1. ;;ONS AA GASTROINTESTINAL
  1. ;;ONS AA GENERAL INFO
  1. ;;ONS AA GENITOURINARY
  1. ;;ONS AA HX OF FALLING
  1. ;;ONS AA INFECT CONTROL
  1. ;;ONS AA MENTAL HEALTH
  1. ;;ONS AA MORSE FALL SCALE SCORE
  1. ;;ONS AA MRSA
  1. ;;ONS AA MUSCULOSKELETAL
  1. ;;ONS AA NEUROLOGICAL
  1. ;;ONS AA PAIN
  1. ;;ONS AA PRESSURE ULCER-EDUCATION
  1. ;;ONS AA LANGUAGE
  1. ;;ONS AA PSYCHOSOCIAL
  1. ;;ONS AA RESPIRATORY
  1. ;;ONS AA RESTRAINTS
  1. ;;ONS AA SECONDARY DIAGNOSIS
  1. ;;ONS AA SKIN
  1. ;;ONS AA SKIN ASSESSMENT
  1. ;;ONS AA SKIN HIGH RISK FACTORS
  1. ;;ONS AA SKIN INTERVENTIONS
  1. ;;ONS AA UNIT ORIENT
  1. ;;ONS AA VASCULAR ACCESS
  1. ;;ONS FALL PREVENTION AMBULATORY AIDS
  1. ;;ONS FALL PREVENTION GAIT/TRANSFER
  1. ;;ONS FALL PREVENTION HX OF FALLING
  1. ;;ONS FALL PREVENTION HX OF SECONDARY DX
  1. ;;ONS FALL PREVENTION IV/HEP/SALINE LOCK
  1. ;;ONS FALL PREVENTION MENTAL STATUS
  1. ;;ONS FALL PREVENTION UNIVERSAL
  1. ;;ONS FR HISTORY OF FALLING
  1. ;;ONS FR MORSE FALL SCALE SCORE
  1. ;;ONS FR SECONDARY DIAGNOSIS
  1. ;;ONS PF INFORMATION ON FALL
  1. ;;ONS PF MORSE FALL SCALE SCORE
  1. ;;ONS PF NEW PAIN CATEGORY
  1. ;;ONS PF POST FALL ASSESSMENT
  1. ;;ONS PF RESTRAINTS
  1. ;;ONS PRESSURE ULCER PROTOCOL
  1. ;;ONS PRESSURE ULCER-ACTIVITY
  1. ;;ONS PRESSURE ULCER-EDUCATION
  1. ;;ONS PRESSURE ULCER-EDUCATION
  1. ;;ONS PRESSURE ULCER-FRICTION/SHEAR
  1. ;;ONS PRESSURE ULCER-MOISTURE
  1. ;;ONS PRESSURE ULCER-NUTRITION
  1. ;;ONS PRESSURE ULCER-PRESSURE REDUCING
  1. ;;ONS PRESSURE ULCER-REMOBILIZE
  1. ;;ONS RA BRADEN SCALE
  1. ;;ONS RA CARDIOVASCULAR
  1. ;;ONS RA CARDIOVASCULAR
  1. ;;ONS RA EDUCATION
  1. ;;ONS RA FALL PREVENTION INTERVENTIONS
  1. ;;ONS RA GASTRONINTESTINAL
  1. ;;ONS RA GENERAL INFO
  1. ;;ONS RA GENITOURINARY
  1. ;;ONS RA HX OF FALLING
  1. ;;ONS RA INFECT CONTROL
  1. ;;ONS RA MENTAL HEALTH
  1. ;;ONS RA LANGUAGE
  1. ;;ONS RA MORSE FALL SCALE SCORE
  1. ;;ONS RA MRSA
  1. ;;ONS RA MUSCULOSKELETAL
  1. ;;ONS RA NEUROLOGICAL
  1. ;;ONS RA PAIN
  1. ;;ONS RA PRESSURE ULCER
  1. ;;ONS RA PSYCHOSOCIAL
  1. ;;ONS RA RESPIRATORY
  1. ;;ONS RA RESTRAINTS
  1. ;;ONS RA SECONDARY DIAGNOSIS
  1. ;;ONS RA SKIN
  1. ;;ONS RA SKIN ASSESSMENT
  1. ;;ONS RA SKIN HIGH RISK FACTORS
  1. ;;ONS RA SKIN INTERVENTIONS
  1. ;;ONS RA UNIT ORIENT
  1. ;;ONS RA VASCULAR ACCESS
  1. ;;ONS TOBACCO USE SCREEN
  1. ;;END
  1. ;
  1. AA ;;SKIN RISK-QUADRAPLEGIA;SKIN HIGH RISK FACTORS
  1. ;;SKIN RISK-SPINAL CORD INJURY;SKIN HIGH RISK FACTORS
  1. ;;SKIN TEMPERATURE;SKIN ASSESSMENT
  1. ;;SKIN TURGOR;SKIN ASSESSMENT
  1. ;;SKIN-EDUCATION;ONS PRESSURE ULCER PROTOCOL
  1. ;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
  1. ;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
  1. ;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
  1. ;;SUICIDE DCLINES ANSR;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
  1. ;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
  1. ;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
  1. ;;UNIT ORIENT NO;UNIT ORIENT
  1. ;;URINARY CATHETER DATE INSERTED;GENITOURINARY
  1. ;;URINARY CATHETER DATE REMOVED;GENITOURINARY
  1. ;;URINARY CATHETER ON ADMISSION;GENITOURINARY
  1. ;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
  1. ;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
  1. ;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
  1. ;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
  1. ;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
  1. ;;END
  1. TOBACCO N DIC,NUPA,X S DIC="^AUTTHF(",DIC(0)="L"
  1. F NUPA("I")=0:1 S X=$P($T(TOB+NUPA("I")),";",3,4),X(1)=$P(X,";",2),X=$P(X,";") Q:"END"[X D:'$D(^AUTTHF("B",X))
  1. .S DIC("DR")=".1///F;.08///Y;.03///"_X(1) K DD,DO D FILE^DICN Q
  1. Q
  1. TOB ;;ONS TOBACCO USE CURRENT;ONS TOBACCO USE SCREEN
  1. ;;ONS TOBACCO LIFETIME NON-USER;ONS TOBACCO USE SCREEN
  1. ;;ONS TOBACCO USE FORMER LESS THAN 1Y;ONS TOBACCO USE SCREEN
  1. ;;ONS TOBACCO USE FORMER 1Y-7Y;ONS TOBACCO USE SCREEN
  1. ;;ONS TOBACCO USE FORMER GREATER THAN 7Y;ONS TOBACCO USE SCREEN
  1. ;;END
  1. ;
  1. RA ;;SKIN TEMPERATURE;SKIN ASSESSMENT
  1. ;;SKIN TURGOR;SKIN ASSESSMENT
  1. ;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
  1. ;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
  1. ;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
  1. ;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
  1. ;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
  1. ;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
  1. ;;UNIT ORIENT NO;UNIT ORIENT
  1. ;;URINARY CATHETER DATE INSERTED;GENITOURINARY
  1. ;;URINARY CATHETER DATE REMOVED;GENITOURINARY
  1. ;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
  1. ;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
  1. ;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
  1. ;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
  1. ;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
  1. ;;END