source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNFMENU.m@ 873

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

initial load of FOIAVistA 6/30/08 version
File size: 3.0 KB
Line 
1SPNFMENU ;HISC/DAD/WAA-INPUT/OUTPUT MENU PROCESS ;8/19/96 11:06
2 ;;2.0;Spinal Cord Dysfunction;**12,19,20,21**;01/02/1997
3 ;
4 ; This program is a menu program that allow the user to maintain
5 ; the current patient and system varables.
6 ;
7 ; This program will be called from the three major
8 ; screen edit programs and allow the user to select another
9 ; for those programs.
10 ;
11 ; Input:
12 ; SPNFDFN = Patient DFN within file 2
13 ; SPNFREG = The menu Manager option that called him.
14 ;
15MENU(SPNFREG,SPNFDFN) ; Main menu loop
16 ; This is to select the type of data to enter for a patient.
17 ; If none of the give report are selected then SPNFEXIT is set to 1
18 ; and the program exits.
19 ; Returns SPNFREG as a value of 1 to 4 indicating the type
20 ; of OPTION to be USED.
21 ; Input:
22 ; SPNFREG = Menu Option
23 ; SPNFDFN = Patient DFN
24 ;
25 ; Output:
26 ; SPNFEXIT = 1 User exited
27 ; 0 User passed
28 K DIRUT
29 N SPNFREG1
30 S SPNFEXIT=0
31 D G:SPNFEXIT EXIT
32 . I SPNFDFN=0 D PAT^SPNFMENU Q:SPNFEXIT
33 . I SPNFREG=0 D
34 . .D ; Menu Header
35 . . .S DFN=SPNFDFN
36 . . .D DEM^VADPT
37 . . .W !!,"Patient: ",VADM(1)," ",$P(VADM(2),U,2)
38 . . .W ?60,"DOB: ",$P(VADM(3),U,2)
39 . . .D KVAR^VADPT
40 . . .Q
41 . .K DIR S DIR(0)="SOM^1:Registration and Health Care Information;2:Outcome Information;3:Clinical Information;4:Select a NEW Patient"
42 . .S DIR("A")="Select the type of record you wish to enter/edit"
43 . .S DIR("?",1)=" Enter 1 to enter/edit Registration and Health Care Information"
44 . .S DIR("?",2)=" Enter 2 to enter/edit Outcome Information"
45 . .S DIR("?",3)=" Enter 3 to enter/edit Clinical Information"
46 . .S DIR("?",4)=" Enter 4 to Select a NEW Patient"
47 . .S DIR("?")=" Choose either 1,2,3, or 4."
48 . .W ! D ^DIR K DIR S SPNFREG=+Y
49 . .I $D(DIRUT) S:$D(DTOUT)!($D(DUOUT)) SPNFEXIT=1 Q
50 . .Q
51 . I SPNFREG=0 S SPNFEXIT=1 Q
52 . D EDIT(SPNFREG,.SPNFDFN)
53 . S SPNFREG=0
54 . Q
55 Q
56EXIT K DA,DDSCHANG,DDSFILE,DDSSAVE,DIC,DIE,DIMSG,DR,DTOUT
57 K SPNFFIM,SPNLD0,SPNFDFN,SPNLFLAG,X,Y
58 Q
59 ;
60EDIT(SPNFTYPE,SPNFDFN) ; *** Choose add / edit a record
61 ; SPNFTYPE = 1 - Registration and Health Care Information
62 ; 2 - Outcome Information
63 ; 3 - Clinical Information
64 ; 4 - Select a NEW Patient
65 ; SPNFDFN = DFN in PATIENT file (#2)
66 S SPNFEXIT=0
67 I SPNFTYPE=2 D REPT^SPNFEDT0(SPNFDFN) Q
68 I SPNFTYPE=1!(SPNFTYPE=3) D Q
69 .D PAT^SPNFEDT1(SPNFTYPE,SPNFDFN)
70 .Q
71 I SPNFTYPE=4 D PAT^SPNFMENU Q
72 Q
73 ;
74PAT ;Select a patient from the patient file
75 ; Return list:
76 ; SPNFDFN = If DFN is null patient DFN from the patient file
77 ; SPNFMS = 1 patient has MS Etiology
78 ; 0 Patient doesn't have MS
79 ;
80 I SPNFREG=3 D PAT1541 Q ;USED TO ROUTE USER ON THE CLINICAL DATA
81 S SPNFEXIT=0
82 K DIC
83 W ! S DLAYGO=154,DIC="^SPNL(154,",DIC(0)="AELMQ" D ^DIC
84 I +Y'>0 S SPNFEXIT=1 Q
85 S SPNFDFN=+Y
86 Q
87PAT1541 ;Used to look up patients for Outcomes info or Clinical info
88 S SPNFEXIT=0
89 K DIC
90 S DIC("A")="Select SCD (SPINAL CORD) REGISTRY PATIENT: "
91 S DIC="^SPNL(154,",DIC(0)="AEMQ" D ^DIC ;no help text
92 I +Y'>0 S SPNFEXIT=1 Q
93 S SPNFDFN=+Y
Note: See TracBrowser for help on using the repository browser.