source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNADR.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 3.9 KB
Line 
1SPNADR ;HISC/DAD-AD HOC REPORTS: INTERFACE FOR THE SCD (SPINAL CORD) REGISTRY FILE (#154) ;10/31/2001
2 ;;2.0;Spinal Cord Dysfunction;**11,12,13,14,15,16**;01/02/1997
3 ;;2.0;QM Integration Module;;Apr 06, 1994
4 ; *** Set up required and optional variables and call Ad Hoc Rpt Gen
5 S SPNMRTN="MENU^SPNADR",SPNORTN="OTHER^SPNADR",SPNDIC=154
6 S SPNMHDR="Registration"
7 D ^SPNAHOC0
8 Q
9MENU ; *** Build the menu array
10 S SPNMENU=1
11 F SP=1:1 S X=$P($T(TEXT+SP),";",3,99) Q:X="" D
12 . S SPNMENU(SPNMENU)=X,SPNMENU=SPNMENU+1
13 . Q
14 G MENU^SPNADR1
15OTHER ; *** Set up other (optional) EN1^DIP variables
16 S DISUPNO=0
17 S DIS(0)="I $$EN2^SPNPRTMT(D0)"
18 Q
19MACRO ; *** Check/update macro checksums
20 S SPNMRTN="MENU^SPNADR",SPNDIC=154
21 D MACCHK^SPNAHOC5
22 Q
23TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
24 ;;1^Patient^~.01;"Patient"^PAO^2:AEMNQZ^D POINTER^SPNAHOC2
25 ;;1^SSN^~999.01^FAO^1:60^
26 ;;1^Date of Birth^~999.02;"Date Of Birth"^DAO^::AETS^D DATE^SPNAHOC2
27 ;;1^Date of Death^~999.09;"Date Of Death"^DAO^::AETS^D DATE^SPNAHOC2
28 ;;1^Age^~999.025;"Age"^FAO^1:60^
29 ;;1^Registration Date^~.02;"Registration Date"^DAO^::AETS^D DATE^SPNAHOC2
30 ;;1^Registration Status^~.03;"Registration Status"^SAOM^0:NOT SCD;1:SCD - CURRENTLY SERVED;2:SCD - NOT CURRENTLY SERVED;X:EXPIRED;^D SET^SPNAHOC2
31 ;;1^Date of Last Update^~.05;"Date Of Last Update"^DAO^::AETS^D DATE^SPNAHOC2
32 ;;1^Last Updated By^~.06;"Last Updated By"^PAO^200:AEMNQZ^D POINTER^SPNAHOC2
33 ;;1^Division^12,~.01;"Division"^PAO^40.8:AEMNQZ^D POINTER^SPNAHOC2
34 ;;1^SCI Network^~1.1;"SCI Network"^SAOM^1:YES;0:NO;^D SET^SPNAHOC2
35 ;;1^SCI Level^~2.1;"SCI Level"^PAO^154.01:AEMNQZ^D POINTER^SPNAHOC2
36 ;;1^VA SCI Status^~2.6;"VA SCI Status"^SAOM^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGIA-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:VA NOT APPLICABLE^D SET^SPNAHOC2
37 ;;1^Amount VA is Used^~3.1;"Amount VA is Used"^SAOM^1:VA ONLY;2:MOSTLY VA/SOME NON-VA;3:HALF VA/HALF NON-VA;4:SOME VA/MOSTLY NON-VA;5:NON-VA ONLY;6:DID NOT SEE DOCTOR/NURSE LAST 5 YRS;^D SET^SPNAHOC2
38 ;;1^Primary Care VAMC^~3.2;"Primary Care VAMC"^PAO^4:AEMNQZ^D POINTER^SPNAHOC2
39 ;;1^Annual Rehab VAMC^~3.3;"Annual Rehab VAMC"^PAO^4:AEMNQZ^D POINTER^SPNAHOC2
40 ;;1^Additional Care VAMC^~3.4;"Additional Care VAMC"^PAO^4:AEMNQZ^D POINTER^SPNAHOC2
41 ;;0^Non-VA Care^~3.5;"Non-VA Care"^FAO^1:60^
42 ;;1^Etiology^4,~.01;"Etiology"^PAO^154.03:AEMNQZ^D POINTER^SPNAHOC2
43 ;;1^Date of Onset^4,~.02;"Date Of Onset"^DAO^::AETS^D DATE^SPNAHOC2
44 ;;0^Describe Other^4,~.03;"Describe Other"^FAO^1:60^
45 ;;1^Onset by Trauma^4,~999.01;"Onset Of SCD Cause By Trauma"^FAO^1:60^
46 ;;1^MS Subtype^~2.2;"MS Subtype"^SAOM^UN:UNKNOWN;RR:RELAPSING-REMITTING;PP:PRIMARY PROGRESSIVE;SP:SECONDARY PROGRESSIVE;PR:PROGRESSIVE RELAPSING;^D SET^SPNAHOC2
47 ;;1^Had Brain Injury?^~5.02;"Had Brain Injury?"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
48 ;;1^Had Amputation?^~5.03;"Had Amputation?"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
49 ;;1^Memory/Think Affected^~5.04;"Memory/Thinking Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
50 ;;1^Eyes Affected^~5.05;"Eyes Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
51 ;;1^One Arm Affected^~5.06;"One Arm Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
52 ;;1^One Leg Affected^~5.07;"One Leg Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
53 ;;1^Both Arms Affected^~5.08;"Both Arms Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
54 ;;1^Both Legs Affected^~5.09;"Both Legs Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
55 ;;1^Other Body Prt Affected^~5.1;"Other Body Part Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
56 ;;0^Descr Other Body Part^~2.5;"Describe Other Body Part"^FAO^1:60^
57 ;;1^Extent of Movement^~5.11;"Extent Of Movement"^SAOM^1:FULL USEFUL MOVEMENT;2:SOME USEFUL MOVEMENT;3:NO USEFUL MOVEMENT;^D SET^SPNAHOC2
58 ;;1^Extent of Feeling^~5.12;"Extent Of Feeling"^SAOM^1:FULL FEELING;2:SOME FEELING;3:NO FEELING;^D SET^SPNAHOC2
59 ;;1^Bowel Affected^~5.13;"Bowel Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
60 ;;1^Bladder Affected^~5.14;"Bladder Affected"^SAOM^0:NO;1:YES;^D SET^SPNAHOC2
61 ;;0^Remarks^~11;"Remarks"^FAO^1:80
Note: See TracBrowser for help on using the repository browser.