NUPAPI ;PHOENIX/KLD; 7/15/09; NUPA PRE & POST-INITS; 2/23/12 1:27 PM
;;1.0;NUPA;;;Build 105
ST S DIK="^NUPA(1927.1," F DA=0:0 S DA=$O(^NUPA(1927.1,DA)) Q:'DA D
.D:$P(^NUPA(1927.1,DA,0),U)'="ASSESS NEW VERSION" ^DIK
D ADD^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc") ;IA 2263
D CHG^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc") ;IA 2263
K DA,DIK D HFCAT,TOBACCO,HF^NUPAPI1,HF^NUPAPI2 Q
;
PRE K ^NUPA(1927.2),^NUPA(1927.24),^NUPA(1927.41) Q ;Because KIDS wasn't overwriting the files
;
HFCAT ;Enter Health Factor Categories
N DIC,I,X S DIC="^AUTTHF(",DIC(0)="L"
F I=0:1 S X=$P($T(HFC+I),";",3) Q:X="END" D:'$D(^AUTTHF("B",X))
.S DIC("DR")=".1///C" K DD,DO D FILE^DICN
Q
HFC ;;ONS AA BRADEN SCALE
;;ONS AA CARDIOVASCULAR
;;ONS AA EDUCATION
;;ONS AA FALL PREVENTION INTERVENTIONS
;;ONS AA FUNCTIONAL
;;ONS AA GASTROINTESTINAL
;;ONS AA GENERAL INFO
;;ONS AA GENITOURINARY
;;ONS AA HX OF FALLING
;;ONS AA INFECT CONTROL
;;ONS AA MENTAL HEALTH
;;ONS AA MORSE FALL SCALE SCORE
;;ONS AA MRSA
;;ONS AA MUSCULOSKELETAL
;;ONS AA NEUROLOGICAL
;;ONS AA PAIN
;;ONS AA PRESSURE ULCER-EDUCATION
;;ONS AA LANGUAGE
;;ONS AA PSYCHOSOCIAL
;;ONS AA RESPIRATORY
;;ONS AA RESTRAINTS
;;ONS AA SECONDARY DIAGNOSIS
;;ONS AA SKIN
;;ONS AA SKIN ASSESSMENT
;;ONS AA SKIN HIGH RISK FACTORS
;;ONS AA SKIN INTERVENTIONS
;;ONS AA UNIT ORIENT
;;ONS AA VASCULAR ACCESS
;;ONS FALL PREVENTION AMBULATORY AIDS
;;ONS FALL PREVENTION GAIT/TRANSFER
;;ONS FALL PREVENTION HX OF FALLING
;;ONS FALL PREVENTION HX OF SECONDARY DX
;;ONS FALL PREVENTION IV/HEP/SALINE LOCK
;;ONS FALL PREVENTION MENTAL STATUS
;;ONS FALL PREVENTION UNIVERSAL
;;ONS FR HISTORY OF FALLING
;;ONS FR MORSE FALL SCALE SCORE
;;ONS FR SECONDARY DIAGNOSIS
;;ONS PF INFORMATION ON FALL
;;ONS PF MORSE FALL SCALE SCORE
;;ONS PF NEW PAIN CATEGORY
;;ONS PF POST FALL ASSESSMENT
;;ONS PF RESTRAINTS
;;ONS PRESSURE ULCER PROTOCOL
;;ONS PRESSURE ULCER-ACTIVITY
;;ONS PRESSURE ULCER-EDUCATION
;;ONS PRESSURE ULCER-EDUCATION
;;ONS PRESSURE ULCER-FRICTION/SHEAR
;;ONS PRESSURE ULCER-MOISTURE
;;ONS PRESSURE ULCER-NUTRITION
;;ONS PRESSURE ULCER-PRESSURE REDUCING
;;ONS PRESSURE ULCER-REMOBILIZE
;;ONS RA BRADEN SCALE
;;ONS RA CARDIOVASCULAR
;;ONS RA CARDIOVASCULAR
;;ONS RA EDUCATION
;;ONS RA FALL PREVENTION INTERVENTIONS
;;ONS RA GASTRONINTESTINAL
;;ONS RA GENERAL INFO
;;ONS RA GENITOURINARY
;;ONS RA HX OF FALLING
;;ONS RA INFECT CONTROL
;;ONS RA MENTAL HEALTH
;;ONS RA LANGUAGE
;;ONS RA MORSE FALL SCALE SCORE
;;ONS RA MRSA
;;ONS RA MUSCULOSKELETAL
;;ONS RA NEUROLOGICAL
;;ONS RA PAIN
;;ONS RA PRESSURE ULCER
;;ONS RA PSYCHOSOCIAL
;;ONS RA RESPIRATORY
;;ONS RA RESTRAINTS
;;ONS RA SECONDARY DIAGNOSIS
;;ONS RA SKIN
;;ONS RA SKIN ASSESSMENT
;;ONS RA SKIN HIGH RISK FACTORS
;;ONS RA SKIN INTERVENTIONS
;;ONS RA UNIT ORIENT
;;ONS RA VASCULAR ACCESS
;;ONS TOBACCO USE SCREEN
;;END
;
AA ;;SKIN RISK-QUADRAPLEGIA;SKIN HIGH RISK FACTORS
;;SKIN RISK-SPINAL CORD INJURY;SKIN HIGH RISK FACTORS
;;SKIN TEMPERATURE;SKIN ASSESSMENT
;;SKIN TURGOR;SKIN ASSESSMENT
;;SKIN-EDUCATION;ONS PRESSURE ULCER PROTOCOL
;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
;;SUICIDE DCLINES ANSR;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
;;UNIT ORIENT NO;UNIT ORIENT
;;URINARY CATHETER DATE INSERTED;GENITOURINARY
;;URINARY CATHETER DATE REMOVED;GENITOURINARY
;;URINARY CATHETER ON ADMISSION;GENITOURINARY
;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
;;END
TOBACCO N DIC,NUPA,X S DIC="^AUTTHF(",DIC(0)="L"
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))
.S DIC("DR")=".1///F;.08///Y;.03///"_X(1) K DD,DO D FILE^DICN Q
Q
TOB ;;ONS TOBACCO USE CURRENT;ONS TOBACCO USE SCREEN
;;ONS TOBACCO LIFETIME NON-USER;ONS TOBACCO USE SCREEN
;;ONS TOBACCO USE FORMER LESS THAN 1Y;ONS TOBACCO USE SCREEN
;;ONS TOBACCO USE FORMER 1Y-7Y;ONS TOBACCO USE SCREEN
;;ONS TOBACCO USE FORMER GREATER THAN 7Y;ONS TOBACCO USE SCREEN
;;END
;
RA ;;SKIN TEMPERATURE;SKIN ASSESSMENT
;;SKIN TURGOR;SKIN ASSESSMENT
;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
;;UNIT ORIENT NO;UNIT ORIENT
;;URINARY CATHETER DATE INSERTED;GENITOURINARY
;;URINARY CATHETER DATE REMOVED;GENITOURINARY
;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNUPAPI 5510 printed Dec 13, 2024@02:24:14 Page 2
NUPAPI ;PHOENIX/KLD; 7/15/09; NUPA PRE & POST-INITS; 2/23/12 1:27 PM
+1 ;;1.0;NUPA;;;Build 105
ST SET DIK="^NUPA(1927.1,"
FOR DA=0:0
SET DA=$ORDER(^NUPA(1927.1,DA))
if 'DA
QUIT
Begin DoDot:1
+1 if $PIECE(^NUPA(1927.1,DA,0),U)'="ASSESS NEW VERSION"
DO ^DIK
End DoDot:1
+2 ;IA 2263
DO ADD^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc")
+3 ;IA 2263
DO CHG^XPAR("SYS","NUPA PRESSURE ULCER SITE",,"vaww1.domain.ext/nursing/docs/npuap_press_ulcer_stages_rev_2-07.doc")
+4 KILL DA,DIK
DO HFCAT
DO TOBACCO
DO HF^NUPAPI1
DO HF^NUPAPI2
QUIT
+5 ;
PRE ;Because KIDS wasn't overwriting the files
KILL ^NUPA(1927.2),^NUPA(1927.24),^NUPA(1927.41)
QUIT
+1 ;
HFCAT ;Enter Health Factor Categories
+1 NEW DIC,I,X
SET DIC="^AUTTHF("
SET DIC(0)="L"
+2 FOR I=0:1
SET X=$PIECE($TEXT(HFC+I),";",3)
if X="END"
QUIT
if '$DATA(^AUTTHF("B",X))
Begin DoDot:1
+3 SET DIC("DR")=".1///C"
KILL DD,DO
DO FILE^DICN
End DoDot:1
+4 QUIT
HFC ;;ONS AA BRADEN SCALE
+1 ;;ONS AA CARDIOVASCULAR
+2 ;;ONS AA EDUCATION
+3 ;;ONS AA FALL PREVENTION INTERVENTIONS
+4 ;;ONS AA FUNCTIONAL
+5 ;;ONS AA GASTROINTESTINAL
+6 ;;ONS AA GENERAL INFO
+7 ;;ONS AA GENITOURINARY
+8 ;;ONS AA HX OF FALLING
+9 ;;ONS AA INFECT CONTROL
+10 ;;ONS AA MENTAL HEALTH
+11 ;;ONS AA MORSE FALL SCALE SCORE
+12 ;;ONS AA MRSA
+13 ;;ONS AA MUSCULOSKELETAL
+14 ;;ONS AA NEUROLOGICAL
+15 ;;ONS AA PAIN
+16 ;;ONS AA PRESSURE ULCER-EDUCATION
+17 ;;ONS AA LANGUAGE
+18 ;;ONS AA PSYCHOSOCIAL
+19 ;;ONS AA RESPIRATORY
+20 ;;ONS AA RESTRAINTS
+21 ;;ONS AA SECONDARY DIAGNOSIS
+22 ;;ONS AA SKIN
+23 ;;ONS AA SKIN ASSESSMENT
+24 ;;ONS AA SKIN HIGH RISK FACTORS
+25 ;;ONS AA SKIN INTERVENTIONS
+26 ;;ONS AA UNIT ORIENT
+27 ;;ONS AA VASCULAR ACCESS
+28 ;;ONS FALL PREVENTION AMBULATORY AIDS
+29 ;;ONS FALL PREVENTION GAIT/TRANSFER
+30 ;;ONS FALL PREVENTION HX OF FALLING
+31 ;;ONS FALL PREVENTION HX OF SECONDARY DX
+32 ;;ONS FALL PREVENTION IV/HEP/SALINE LOCK
+33 ;;ONS FALL PREVENTION MENTAL STATUS
+34 ;;ONS FALL PREVENTION UNIVERSAL
+35 ;;ONS FR HISTORY OF FALLING
+36 ;;ONS FR MORSE FALL SCALE SCORE
+37 ;;ONS FR SECONDARY DIAGNOSIS
+38 ;;ONS PF INFORMATION ON FALL
+39 ;;ONS PF MORSE FALL SCALE SCORE
+40 ;;ONS PF NEW PAIN CATEGORY
+41 ;;ONS PF POST FALL ASSESSMENT
+42 ;;ONS PF RESTRAINTS
+43 ;;ONS PRESSURE ULCER PROTOCOL
+44 ;;ONS PRESSURE ULCER-ACTIVITY
+45 ;;ONS PRESSURE ULCER-EDUCATION
+46 ;;ONS PRESSURE ULCER-EDUCATION
+47 ;;ONS PRESSURE ULCER-FRICTION/SHEAR
+48 ;;ONS PRESSURE ULCER-MOISTURE
+49 ;;ONS PRESSURE ULCER-NUTRITION
+50 ;;ONS PRESSURE ULCER-PRESSURE REDUCING
+51 ;;ONS PRESSURE ULCER-REMOBILIZE
+52 ;;ONS RA BRADEN SCALE
+53 ;;ONS RA CARDIOVASCULAR
+54 ;;ONS RA CARDIOVASCULAR
+55 ;;ONS RA EDUCATION
+56 ;;ONS RA FALL PREVENTION INTERVENTIONS
+57 ;;ONS RA GASTRONINTESTINAL
+58 ;;ONS RA GENERAL INFO
+59 ;;ONS RA GENITOURINARY
+60 ;;ONS RA HX OF FALLING
+61 ;;ONS RA INFECT CONTROL
+62 ;;ONS RA MENTAL HEALTH
+63 ;;ONS RA LANGUAGE
+64 ;;ONS RA MORSE FALL SCALE SCORE
+65 ;;ONS RA MRSA
+66 ;;ONS RA MUSCULOSKELETAL
+67 ;;ONS RA NEUROLOGICAL
+68 ;;ONS RA PAIN
+69 ;;ONS RA PRESSURE ULCER
+70 ;;ONS RA PSYCHOSOCIAL
+71 ;;ONS RA RESPIRATORY
+72 ;;ONS RA RESTRAINTS
+73 ;;ONS RA SECONDARY DIAGNOSIS
+74 ;;ONS RA SKIN
+75 ;;ONS RA SKIN ASSESSMENT
+76 ;;ONS RA SKIN HIGH RISK FACTORS
+77 ;;ONS RA SKIN INTERVENTIONS
+78 ;;ONS RA UNIT ORIENT
+79 ;;ONS RA VASCULAR ACCESS
+80 ;;ONS TOBACCO USE SCREEN
+81 ;;END
+82 ;
AA ;;SKIN RISK-QUADRAPLEGIA;SKIN HIGH RISK FACTORS
+1 ;;SKIN RISK-SPINAL CORD INJURY;SKIN HIGH RISK FACTORS
+2 ;;SKIN TEMPERATURE;SKIN ASSESSMENT
+3 ;;SKIN TURGOR;SKIN ASSESSMENT
+4 ;;SKIN-EDUCATION;ONS PRESSURE ULCER PROTOCOL
+5 ;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
+6 ;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
+7 ;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
+8 ;;SUICIDE DCLINES ANSR;PSYCHOSOCIAL
+9 ;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
+10 ;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
+11 ;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
+12 ;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
+13 ;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
+14 ;;UNIT ORIENT NO;UNIT ORIENT
+15 ;;URINARY CATHETER DATE INSERTED;GENITOURINARY
+16 ;;URINARY CATHETER DATE REMOVED;GENITOURINARY
+17 ;;URINARY CATHETER ON ADMISSION;GENITOURINARY
+18 ;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
+19 ;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
+20 ;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
+21 ;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
+22 ;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
+23 ;;END
TOBACCO NEW DIC,NUPA,X
SET DIC="^AUTTHF("
SET DIC(0)="L"
+1 FOR NUPA("I")=0:1
SET X=$PIECE($TEXT(TOB+NUPA("I")),";",3,4)
SET X(1)=$PIECE(X,";",2)
SET X=$PIECE(X,";")
if "END"[X
QUIT
if '$DATA(^AUTTHF("B",X))
Begin DoDot:1
+2 SET DIC("DR")=".1///F;.08///Y;.03///"_X(1)
KILL DD,DO
DO FILE^DICN
QUIT
End DoDot:1
+3 QUIT
TOB ;;ONS TOBACCO USE CURRENT;ONS TOBACCO USE SCREEN
+1 ;;ONS TOBACCO LIFETIME NON-USER;ONS TOBACCO USE SCREEN
+2 ;;ONS TOBACCO USE FORMER LESS THAN 1Y;ONS TOBACCO USE SCREEN
+3 ;;ONS TOBACCO USE FORMER 1Y-7Y;ONS TOBACCO USE SCREEN
+4 ;;ONS TOBACCO USE FORMER GREATER THAN 7Y;ONS TOBACCO USE SCREEN
+5 ;;END
+6 ;
RA ;;SKIN TEMPERATURE;SKIN ASSESSMENT
+1 ;;SKIN TURGOR;SKIN ASSESSMENT
+2 ;;SUICIDAL THOUGHTS DECLINES ANSWER;PSYCHOSOCIAL
+3 ;;SUICIDAL THOUGHTS NO;PSYCHOSOCIAL
+4 ;;SUICIDAL THOUGHTS YES;PSYCHOSOCIAL
+5 ;;SUICIDE PRIOR ATTEMPT DECL ANSW;PSYCHOSOCIAL
+6 ;;SUICIDE PRIOR ATTEMPT NO;PSYCHOSOCIAL
+7 ;;SUICIDE PRIOR ATTEMPT YES;PSYCHOSOCIAL
+8 ;;UNIT ORIENT FOR PATIENT;UNIT ORIENT
+9 ;;UNIT ORIENT FOR SUPPORT PERSON;UNIT ORIENT
+10 ;;UNIT ORIENT NO;UNIT ORIENT
+11 ;;URINARY CATHETER DATE INSERTED;GENITOURINARY
+12 ;;URINARY CATHETER DATE REMOVED;GENITOURINARY
+13 ;;WANDERING RISK-COGNITIVE ABILITY;PSYCHOSOCIAL
+14 ;;WANDERING RISK-DANGER SELF/OTHERS;PSYCHOSOCIAL
+15 ;;WANDERING RISK-GRAVELY DISABLED;PSYCHOSOCIAL
+16 ;;WANDERING RISK-LEGAL GUARDIAN;PSYCHOSOCIAL
+17 ;;WANDERING RISK-LEGALLY COMMITTED;PSYCHOSOCIAL
+18 ;;END
