- 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 Jan 18, 2025@03:24:55 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