30 lines
2.1 KiB
Mathematica
30 lines
2.1 KiB
Mathematica
|
SPNADR1 ;HISC/DAD-AD HOC REPORTS: INTERFACE FOR THE SCD (SPINAL CORD) REGISTRY FILE (#154) ;08/23/96 14:47
|
||
|
|
;;2.0;Spinal Cord Dysfunction;**11,12,13,14,15,19**;01/02/1997
|
||
|
|
;;2.0;QM Integration Module;;Apr 06, 1994
|
||
|
|
MENU ; *** Build the menu array
|
||
|
|
F SP=1:1 S X=$P($T(TEXT+SP),";",3,99) Q:X="" D
|
||
|
|
. S SPNMENU(SPNMENU)=X,SPNMENU=SPNMENU+1
|
||
|
|
. Q
|
||
|
|
Q
|
||
|
|
TEXT ;;*** Sort Yes/No ^ Menu Text ^ ~Field # ^ DIR(0)
|
||
|
|
;;1^Extent of SCI^~6.09;"Extent of SCI"^SAOM^C:COMPLETE;I:INCOMPLETE;^D SET^SPNAHOC2
|
||
|
|
;;1^Annual Eval Offered^7,~.01;"Annual Rehab Eval Offered"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Annual Eval Received^7,~1;"Annual Rehab Eval Received"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Next Annual Eval Due^7,~2;"Next Annual Rehab Eval Due"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Last Annual Eval Offered^~999.06;"Last Annual Rehab Eval Offered"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Last Annual Eval Received^~999.07;"Last Annual Rehab Eval Rcd"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Last Annual Eval Due^~999.08;"Last Annual Rehab Eval Due"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Primary Care Provider^~8.1;"Primary Care Provider"^PAO^200:AEMNQZ^D POINTER^SPNAHOC2
|
||
|
|
;;1^SCD-Registry Coordinator^~8.2;"SCD-Registry Coordinator"^PAO^200:AEMNQZ^D POINTER^SPNAHOC2
|
||
|
|
;;1^Referral Source^~8.3;"Referral Source"^SAOM^1:OTHER VA;2:COMMUNITY HOSPITAL;3:NURSING HOME;4:PVA;5:SELF;6:DEPARTMENT OF DEFENSE;7:NON-VA CARE;8:OTHER;^D SET^SPNAHOC2
|
||
|
|
;;1^Referral VA^~8.4;"Referral VA"^PAO^4:AEMNQZ^D POINTER^SPNAHOC2
|
||
|
|
;;1^Initial Rehab Site^~8.6;"Initial Rehab Site"^SAOM^1:COMMUNITY HOSPITAL;2:VA FACILITY WITH SCI CENTER;3:VA FACILITY WITHOUT SCI CENTER;4:OTHER;^D SET^SPNAHOC2
|
||
|
|
;;1^Init Rehab Discharge Date^~8.8;"Init Rehab Discharge Date"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;1^Bowel Care Reimbursement^~10.1;"Bowel Care Reimbursement"^SAOM^1:YES;0:NO;^D SET^SPNAHOC2
|
||
|
|
;;1^BCR Date Certified^~10.2;"BCR Date Certified"^DAO^::AETS^D DATE^SPNAHOC2
|
||
|
|
;;0^BCR Provider^~10.3;"BCR Provider"^FAO^3:30^
|
||
|
|
;;0^Sensory/Motor Loss^~999.03;"Sensory/Motor Loss"^FAO^1:60^
|
||
|
|
;;1^Class of Paralysis^~999.04;"Classification of Paralysis"^FAO^1:60^
|
||
|
|
;;1^Type of Injury^~999.05;"Type Of Injury"^FAO^1:60^
|
||
|
|
;;1^Enrollment Priority^~999.095;"Enrollment Priority"^FAO^1:8^
|