source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/EC725C.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1EC725C ;BIR/JPW-New Entries (CH) for File 725 ;11 Jan 97
2 ;;2.0; EVENT CAPTURE ;**4**;8 May 96
3 Q
4EN ;entry point
5 S ^EC(725,1,0)="OTHER DIAGNOSTIC ASSESSMENT, 10 MIN^CH001"
6 S ^EC(725,2,0)="SPA SPIRITUAL ASSESSMT PROFILE, 10 MIN^CH002"
7 S ^EC(725,3,0)="SSI SEMI STRUCT INTERVIEW, 10 MIN^CH003"
8 S ^EC(725,4,0)="ADMISSION, 10 MIN^CH004"
9 S ^EC(725,5,0)="BROCHURE FOR NEW ADMIT, 10 MIN^CH005"
10 S ^EC(725,6,0)="CRITICAL CARE, 10 MIN^CH006"
11 S ^EC(725,7,0)="DNR CONSULTATION, 10 MIN^CH007"
12 S ^EC(725,8,0)="FOLLOW UP DNR, 10 MIN^CH008"
13 S ^EC(725,9,0)="OTHER SACRAMENTS/RITES, 10 MIN^CH009"
14 S ^EC(725,10,0)="POST OPERATIVE VISIT, 10 MIN^CH010"
15 S ^EC(725,11,0)="PRAYER REQUEST, 10 MIN^CH011"
16 S ^EC(725,12,0)="PRE OPERATIVE VISIT, 10 MIN^CH012"
17 S ^EC(725,13,0)="SACRAMENT OF THE SICK, 10 MIN^CH013"
18 S ^EC(725,14,0)="WORSHIP, 10 MIN^CH014"
19 S ^EC(725,15,0)="CONSULTS, 10 MIN^CH015"
20 S ^EC(725,16,0)="FAMILY COUNSELING, 10 MIN^CH016"
21 S ^EC(725,17,0)="STAFF COUNSELING, 10 MIN^CH017"
22 S ^EC(725,18,0)="PC-ADDICT DRUG AND ALCOHOL, 10 MIN^CH018"
23 S ^EC(725,19,0)="PC-AIDS/HIV CONSL FAMILY, 10 MIN^CH019"
24 S ^EC(725,20,0)="PC-AIDS/HIV CONSL INDIVIDUAL, 10 MIN^CH020"
25 S ^EC(725,21,0)="PC-ALCOHOL ADDICTION, 10 MIN^CH021"
26 S ^EC(725,22,0)="PC-ALIENAT CHURCH, 10 MIN^CH022"
27 S ^EC(725,23,0)="PC-ANGER, 10 MIN^CH023"
28 S ^EC(725,24,0)="PC-ANXIETY REDUCTION, 10 MIN^CH024"
29 S ^EC(725,25,0)="PC-BIBLE/THEOLOG/DOC/PHILOSOPH, 10 MIN^CH025"
30 S ^EC(725,26,0)="PC-UTILS CLSD CIRC, 10 MIN^CH026"
31 S ^EC(725,27,0)="PC-CONCEPT OF DEATH, 10 MIN^CH027"
32 S ^EC(725,28,0)="PC-CONFLICT RESOLUTION, 10 MIN^CH028"
33 S ^EC(725,29,0)="PC-DENOMIN ALIENATION, 10 MIN^CH029"
34 S ^EC(725,30,0)="PC-DRUG ADDICT/DEPENDENCY, 10 MIN^CH030"
35 S ^EC(725,31,0)="PC-DYING, 10 MIN^CH031"
36 S ^EC(725,32,0)="PC-ECTHICAL ISSUES, 10 MIN^CH032"
37 S ^EC(725,33,0)="PC-ETHNIC COMM ALIENATION, 10 MIN^CH033"
38 S ^EC(725,34,0)="PC-FEAR, 10 MIN^CH034"
39 S ^EC(725,35,0)="PC-FINANCIAL, 10 MIN^CH035"
40 S ^EC(725,36,0)="PC-FORGIVENESS, 10 MIN^CH036"
41 S ^EC(725,37,0)="PC-GAMBL ADDICT, 10 MIN^CH037"
42 S ^EC(725,38,0)="PC-GOD ALIENATION, 10 MIN^CH038"
43 S ^EC(725,39,0)="PC-GRIEF, 10 MIN^CH039"
44 S ^EC(725,40,0)="PC-GUILT, 10 MIN^CH040"
45 S ^EC(725,41,0)="PC-HLTH PROMOT/WELLNESS, 10 MIN^CH041"
46 S ^EC(725,42,0)="PC-INSIGHT PROMOTION, 10 MIN^CH042"
47 S ^EC(725,43,0)="PC-MEANS TEST, 10 MIN^CH043"
48 S ^EC(725,44,0)="PC-MED PLAN COOP, 10 MIN^CH044"
49 S ^EC(725,45,0)="PC-ONCO COUNSEL, 10 MIN^CH045"
50 S ^EC(725,46,0)="PC-OTHER VISITS, 10 MIN^CH046"
51 S ^EC(725,47,0)="PC-PSYCHOSIS REDUCT, 10 MIN^CH047"
52 S ^EC(725,48,0)="PC-PURPOSE/MEANING/SELF WORTH, 10 MIN^CH048"
53 S ^EC(725,49,0)="PC-RADIO/TV UTILIZATION, 10 MIN^CH049"
54 S ^EC(725,50,0)="PC-REALITY ORIENTATION, 10 MIN^CH050"
55 S ^EC(725,51,0)="PC-RENAL DIAL FAM CNSL, 10 MIN^CH051"
56 S ^EC(725,52,0)="PC-SEXUAL ADDICTION, 10 MIN^CH052"
57 S ^EC(725,53,0)="PC-SIGNIFICANT OTHER, 10 MIN^CH053"
58 S ^EC(725,54,0)="PC-SOCIAL SKILLS ENHANCEMENT, 10 MIN^CH054"
59 S ^EC(725,55,0)="PC-SPIRITUAL GROWTH, 10 MIN^CH055"
60 S ^EC(725,56,0)="PC-STALMT SPIRIT GROWTH, 10 MIN^CH056"
61 S ^EC(725,57,0)="PC-SUICIDE, 10 MIN^CH057"
62 S ^EC(725,58,0)="PC-THEODICY-UNFAIRNESS OF GOD/LIFE 14091, 10 MIN^CH058"
63 S ^EC(725,59,0)="PC-VISUAL AIDS UTILIZ, 10 MIN^CH059"
64 S ^EC(725,60,0)="PC-FAMILY CNSELING, 10 MIN^CH060"
65 S ^EC(725,168,0)="PC-DESPAIR HOPELESSNESS, 10 MIN^CH061"
66 S ^EC(725,169,0)="COMMUNION, 10 MIN^CH062"
67 S ^EC(725,170,0)="COMPUTERIZED SPIRITUAL ASSESSMENT, 10 MIN^CH063"
68 S ^EC(725,171,0)="FIFTH STEP, 10 MIN^CH064"
69 S ^EC(725,172,0)="FUNERAL, 10 MIN^CH065"
70 S ^EC(725,173,0)="PATIENT EDUCATION-ADVANCED DIRECTIVES, 10 MIN^CH066"
71 S ^EC(725,174,0)="GROUP ON SPIRITUALITY EDUCATION, 10 MIN^CH067"
72 S ^EC(725,175,0)="PC-SEXUALITY, 10 MIN^CH068"
73 S ^EC(725,176,0)="PC-SPIRITUAL ASSESSMENT, 10 MIN^CH069"
74 S ^EC(725,177,0)="ADVANCE DIRECTIVE CONSULTATION, 10 MIN^CH070"
75 Q
Note: See TracBrowser for help on using the repository browser.