76 lines
3.7 KiB
Mathematica
76 lines
3.7 KiB
Mathematica
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
|