EC725C.m

EC725C ;BIR/JPW-New Entries (CH) for File 725 ;11 Jan 97

 ;;2.0; EVENT CAPTURE ;**4**;8 May 96

 Q

EN ;entry point

 S ^EC(725,1,0)="OTHER DIAGNOSTIC ASSESSMENT, 10 MIN^CH001"

 S ^EC(725,2,0)="SPA SPIRITUAL ASSESSMT PROFILE, 10 MIN^CH002"

 S ^EC(725,3,0)="SSI SEMI STRUCT INTERVIEW, 10 MIN^CH003"

 S ^EC(725,4,0)="ADMISSION, 10 MIN^CH004"

 S ^EC(725,5,0)="BROCHURE FOR NEW ADMIT, 10 MIN^CH005"

 S ^EC(725,6,0)="CRITICAL CARE, 10 MIN^CH006"

 S ^EC(725,7,0)="DNR CONSULTATION, 10 MIN^CH007"

 S ^EC(725,8,0)="FOLLOW UP DNR, 10 MIN^CH008"

 S ^EC(725,9,0)="OTHER SACRAMENTS/RITES, 10 MIN^CH009"

 S ^EC(725,10,0)="POST OPERATIVE VISIT, 10 MIN^CH010"

 S ^EC(725,11,0)="PRAYER REQUEST, 10 MIN^CH011"

 S ^EC(725,12,0)="PRE OPERATIVE VISIT, 10 MIN^CH012"

 S ^EC(725,13,0)="SACRAMENT OF THE SICK, 10 MIN^CH013"

 S ^EC(725,14,0)="WORSHIP, 10 MIN^CH014"

 S ^EC(725,15,0)="CONSULTS, 10 MIN^CH015"

 S ^EC(725,16,0)="FAMILY COUNSELING, 10 MIN^CH016"

 S ^EC(725,17,0)="STAFF COUNSELING, 10 MIN^CH017"

 S ^EC(725,18,0)="PC-ADDICT DRUG AND ALCOHOL, 10 MIN^CH018"

 S ^EC(725,19,0)="PC-AIDS/HIV CONSL FAMILY, 10 MIN^CH019"

 S ^EC(725,20,0)="PC-AIDS/HIV CONSL INDIVIDUAL, 10 MIN^CH020"

 S ^EC(725,21,0)="PC-ALCOHOL ADDICTION, 10 MIN^CH021"

 S ^EC(725,22,0)="PC-ALIENAT CHURCH, 10 MIN^CH022"

 S ^EC(725,23,0)="PC-ANGER, 10 MIN^CH023"

 S ^EC(725,24,0)="PC-ANXIETY REDUCTION, 10 MIN^CH024"

 S ^EC(725,25,0)="PC-BIBLE/THEOLOG/DOC/PHILOSOPH, 10 MIN^CH025"

 S ^EC(725,26,0)="PC-UTILS CLSD CIRC, 10 MIN^CH026"

 S ^EC(725,27,0)="PC-CONCEPT OF DEATH, 10 MIN^CH027"

 S ^EC(725,28,0)="PC-CONFLICT RESOLUTION, 10 MIN^CH028"

 S ^EC(725,29,0)="PC-DENOMIN ALIENATION, 10 MIN^CH029"

 S ^EC(725,30,0)="PC-DRUG ADDICT/DEPENDENCY, 10 MIN^CH030"

 S ^EC(725,31,0)="PC-DYING, 10 MIN^CH031"

 S ^EC(725,32,0)="PC-ECTHICAL ISSUES, 10 MIN^CH032"

 S ^EC(725,33,0)="PC-ETHNIC COMM ALIENATION, 10 MIN^CH033"

 S ^EC(725,34,0)="PC-FEAR, 10 MIN^CH034"

 S ^EC(725,35,0)="PC-FINANCIAL, 10 MIN^CH035"

 S ^EC(725,36,0)="PC-FORGIVENESS, 10 MIN^CH036"

 S ^EC(725,37,0)="PC-GAMBL ADDICT, 10 MIN^CH037"

 S ^EC(725,38,0)="PC-GOD ALIENATION, 10 MIN^CH038"

 S ^EC(725,39,0)="PC-GRIEF, 10 MIN^CH039"

 S ^EC(725,40,0)="PC-GUILT, 10 MIN^CH040"

 S ^EC(725,41,0)="PC-HLTH PROMOT/WELLNESS, 10 MIN^CH041"

 S ^EC(725,42,0)="PC-INSIGHT PROMOTION, 10 MIN^CH042"

 S ^EC(725,43,0)="PC-MEANS TEST, 10 MIN^CH043"

 S ^EC(725,44,0)="PC-MED PLAN COOP, 10 MIN^CH044"

 S ^EC(725,45,0)="PC-ONCO COUNSEL, 10 MIN^CH045"

 S ^EC(725,46,0)="PC-OTHER VISITS, 10 MIN^CH046"

 S ^EC(725,47,0)="PC-PSYCHOSIS REDUCT, 10 MIN^CH047"

 S ^EC(725,48,0)="PC-PURPOSE/MEANING/SELF WORTH, 10 MIN^CH048"

 S ^EC(725,49,0)="PC-RADIO/TV UTILIZATION, 10 MIN^CH049"

 S ^EC(725,50,0)="PC-REALITY ORIENTATION, 10 MIN^CH050"

 S ^EC(725,51,0)="PC-RENAL DIAL FAM CNSL, 10 MIN^CH051"

 S ^EC(725,52,0)="PC-SEXUAL ADDICTION, 10 MIN^CH052"

 S ^EC(725,53,0)="PC-SIGNIFICANT OTHER, 10 MIN^CH053"

 S ^EC(725,54,0)="PC-SOCIAL SKILLS ENHANCEMENT, 10 MIN^CH054"

 S ^EC(725,55,0)="PC-SPIRITUAL GROWTH, 10 MIN^CH055"

 S ^EC(725,56,0)="PC-STALMT SPIRIT GROWTH, 10 MIN^CH056"

 S ^EC(725,57,0)="PC-SUICIDE, 10 MIN^CH057"

 S ^EC(725,58,0)="PC-THEODICY-UNFAIRNESS OF GOD/LIFE 14091, 10 MIN^CH058"

 S ^EC(725,59,0)="PC-VISUAL AIDS UTILIZ, 10 MIN^CH059"

 S ^EC(725,60,0)="PC-FAMILY CNSELING, 10 MIN^CH060"

 S ^EC(725,168,0)="PC-DESPAIR HOPELESSNESS, 10 MIN^CH061"

 S ^EC(725,169,0)="COMMUNION, 10 MIN^CH062"

 S ^EC(725,170,0)="COMPUTERIZED SPIRITUAL ASSESSMENT, 10 MIN^CH063"

 S ^EC(725,171,0)="FIFTH STEP, 10 MIN^CH064"

 S ^EC(725,172,0)="FUNERAL, 10 MIN^CH065"

 S ^EC(725,173,0)="PATIENT EDUCATION-ADVANCED DIRECTIVES, 10 MIN^CH066"

 S ^EC(725,174,0)="GROUP ON SPIRITUALITY EDUCATION, 10 MIN^CH067"

 S ^EC(725,175,0)="PC-SEXUALITY, 10 MIN^CH068"

 S ^EC(725,176,0)="PC-SPIRITUAL ASSESSMENT, 10 MIN^CH069"

 S ^EC(725,177,0)="ADVANCE DIRECTIVE CONSULTATION, 10 MIN^CH070"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC725C   3912     printed  Nov 22, 2024@17:06:32                                                                                                                                                                                                      Page 2

EC725C    ;BIR/JPW-New Entries (CH) for File 725 ;11 Jan 97

 +1       ;;2.0; EVENT CAPTURE ;**4**;8 May 96

 +2        QUIT 

EN        ;entry point

 +1        SET ^EC(725,1,0)="OTHER DIAGNOSTIC ASSESSMENT, 10 MIN^CH001"

 +2        SET ^EC(725,2,0)="SPA SPIRITUAL ASSESSMT PROFILE, 10 MIN^CH002"

 +3        SET ^EC(725,3,0)="SSI SEMI STRUCT INTERVIEW, 10 MIN^CH003"

 +4        SET ^EC(725,4,0)="ADMISSION, 10 MIN^CH004"

 +5        SET ^EC(725,5,0)="BROCHURE FOR NEW ADMIT, 10 MIN^CH005"

 +6        SET ^EC(725,6,0)="CRITICAL CARE, 10 MIN^CH006"

 +7        SET ^EC(725,7,0)="DNR CONSULTATION, 10 MIN^CH007"

 +8        SET ^EC(725,8,0)="FOLLOW UP DNR, 10 MIN^CH008"

 +9        SET ^EC(725,9,0)="OTHER SACRAMENTS/RITES, 10 MIN^CH009"

 +10       SET ^EC(725,10,0)="POST OPERATIVE VISIT, 10 MIN^CH010"

 +11       SET ^EC(725,11,0)="PRAYER REQUEST, 10 MIN^CH011"

 +12       SET ^EC(725,12,0)="PRE OPERATIVE VISIT, 10 MIN^CH012"

 +13       SET ^EC(725,13,0)="SACRAMENT OF THE SICK, 10 MIN^CH013"

 +14       SET ^EC(725,14,0)="WORSHIP, 10 MIN^CH014"

 +15       SET ^EC(725,15,0)="CONSULTS, 10 MIN^CH015"

 +16       SET ^EC(725,16,0)="FAMILY COUNSELING, 10 MIN^CH016"

 +17       SET ^EC(725,17,0)="STAFF COUNSELING, 10 MIN^CH017"

 +18       SET ^EC(725,18,0)="PC-ADDICT DRUG AND ALCOHOL, 10 MIN^CH018"

 +19       SET ^EC(725,19,0)="PC-AIDS/HIV CONSL FAMILY, 10 MIN^CH019"

 +20       SET ^EC(725,20,0)="PC-AIDS/HIV CONSL INDIVIDUAL, 10 MIN^CH020"

 +21       SET ^EC(725,21,0)="PC-ALCOHOL ADDICTION, 10 MIN^CH021"

 +22       SET ^EC(725,22,0)="PC-ALIENAT CHURCH, 10 MIN^CH022"

 +23       SET ^EC(725,23,0)="PC-ANGER, 10 MIN^CH023"

 +24       SET ^EC(725,24,0)="PC-ANXIETY REDUCTION, 10 MIN^CH024"

 +25       SET ^EC(725,25,0)="PC-BIBLE/THEOLOG/DOC/PHILOSOPH, 10 MIN^CH025"

 +26       SET ^EC(725,26,0)="PC-UTILS CLSD CIRC, 10 MIN^CH026"

 +27       SET ^EC(725,27,0)="PC-CONCEPT OF DEATH, 10 MIN^CH027"

 +28       SET ^EC(725,28,0)="PC-CONFLICT RESOLUTION, 10 MIN^CH028"

 +29       SET ^EC(725,29,0)="PC-DENOMIN ALIENATION, 10 MIN^CH029"

 +30       SET ^EC(725,30,0)="PC-DRUG ADDICT/DEPENDENCY, 10 MIN^CH030"

 +31       SET ^EC(725,31,0)="PC-DYING, 10 MIN^CH031"

 +32       SET ^EC(725,32,0)="PC-ECTHICAL ISSUES, 10 MIN^CH032"

 +33       SET ^EC(725,33,0)="PC-ETHNIC COMM ALIENATION, 10 MIN^CH033"

 +34       SET ^EC(725,34,0)="PC-FEAR, 10 MIN^CH034"

 +35       SET ^EC(725,35,0)="PC-FINANCIAL, 10 MIN^CH035"

 +36       SET ^EC(725,36,0)="PC-FORGIVENESS, 10 MIN^CH036"

 +37       SET ^EC(725,37,0)="PC-GAMBL ADDICT, 10 MIN^CH037"

 +38       SET ^EC(725,38,0)="PC-GOD ALIENATION, 10 MIN^CH038"

 +39       SET ^EC(725,39,0)="PC-GRIEF, 10 MIN^CH039"

 +40       SET ^EC(725,40,0)="PC-GUILT, 10 MIN^CH040"

 +41       SET ^EC(725,41,0)="PC-HLTH PROMOT/WELLNESS, 10 MIN^CH041"

 +42       SET ^EC(725,42,0)="PC-INSIGHT PROMOTION, 10 MIN^CH042"

 +43       SET ^EC(725,43,0)="PC-MEANS TEST, 10 MIN^CH043"

 +44       SET ^EC(725,44,0)="PC-MED PLAN COOP, 10 MIN^CH044"

 +45       SET ^EC(725,45,0)="PC-ONCO COUNSEL, 10 MIN^CH045"

 +46       SET ^EC(725,46,0)="PC-OTHER VISITS, 10 MIN^CH046"

 +47       SET ^EC(725,47,0)="PC-PSYCHOSIS REDUCT, 10 MIN^CH047"

 +48       SET ^EC(725,48,0)="PC-PURPOSE/MEANING/SELF WORTH, 10 MIN^CH048"

 +49       SET ^EC(725,49,0)="PC-RADIO/TV UTILIZATION, 10 MIN^CH049"

 +50       SET ^EC(725,50,0)="PC-REALITY ORIENTATION, 10 MIN^CH050"

 +51       SET ^EC(725,51,0)="PC-RENAL DIAL FAM CNSL, 10 MIN^CH051"

 +52       SET ^EC(725,52,0)="PC-SEXUAL ADDICTION, 10 MIN^CH052"

 +53       SET ^EC(725,53,0)="PC-SIGNIFICANT OTHER, 10 MIN^CH053"

 +54       SET ^EC(725,54,0)="PC-SOCIAL SKILLS ENHANCEMENT, 10 MIN^CH054"

 +55       SET ^EC(725,55,0)="PC-SPIRITUAL GROWTH, 10 MIN^CH055"

 +56       SET ^EC(725,56,0)="PC-STALMT SPIRIT GROWTH, 10 MIN^CH056"

 +57       SET ^EC(725,57,0)="PC-SUICIDE, 10 MIN^CH057"

 +58       SET ^EC(725,58,0)="PC-THEODICY-UNFAIRNESS OF GOD/LIFE 14091, 10 MIN^CH058"

 +59       SET ^EC(725,59,0)="PC-VISUAL AIDS UTILIZ, 10 MIN^CH059"

 +60       SET ^EC(725,60,0)="PC-FAMILY CNSELING, 10 MIN^CH060"

 +61       SET ^EC(725,168,0)="PC-DESPAIR HOPELESSNESS, 10 MIN^CH061"

 +62       SET ^EC(725,169,0)="COMMUNION, 10 MIN^CH062"

 +63       SET ^EC(725,170,0)="COMPUTERIZED SPIRITUAL ASSESSMENT, 10 MIN^CH063"

 +64       SET ^EC(725,171,0)="FIFTH STEP, 10 MIN^CH064"

 +65       SET ^EC(725,172,0)="FUNERAL, 10 MIN^CH065"

 +66       SET ^EC(725,173,0)="PATIENT EDUCATION-ADVANCED DIRECTIVES, 10 MIN^CH066"

 +67       SET ^EC(725,174,0)="GROUP ON SPIRITUALITY EDUCATION, 10 MIN^CH067"

 +68       SET ^EC(725,175,0)="PC-SEXUALITY, 10 MIN^CH068"

 +69       SET ^EC(725,176,0)="PC-SPIRITUAL ASSESSMENT, 10 MIN^CH069"

 +70       SET ^EC(725,177,0)="ADVANCE DIRECTIVE CONSULTATION, 10 MIN^CH070"

 +71       QUIT