source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPATUL.m@ 1071

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1SPNPATUL ;HIRMFO/WAA - Patinet Select utility ;3/27/98 08:35
2 ;;2.0;Spinal Cord Dysfunction;**4,5**;01/02/1997
3PAT(DFN) ;Select a patient
4 S SPNLEXIT=+$G(SPNLEXIT)
5 Q:SPNLEXIT
6 N DIR,Y
7 ;Do a dir call on a free text data test for "all,ALL"
8SELECT K DIR,Y
9 S DIR(0)="FAO^2:35",DIR("A")="Select a patient: "
10 S DIR("?")="^D HELP^SPNPATUL"
11 D ^DIR
12 I Y="" Q
13 I $D(DIRUT) S SPNLEXIT=1 Q
14 S SPNSTR=Y
15 I $$UP^XLFSTR(SPNSTR)="ALL" D Q:SPNLEXIT Q:'DFN
16 .N DIR,Y
17 .S DIR(0)="YAO",DIR("A")="Do you mean ""ALL"" Patients? ",DIR("B")="YES"
18 .D ^DIR
19 .I $G(DIRUT) S SPNLEXIT=1 Q
20 .I Y D
21 ..W !,"All patients selected..." K DFN S DFN=0,DFN("ALL")="" Q
22 ..Q
23 .Q
24 I $E(SPNSTR,1)="-" D
25 .D DELETE
26 .Q
27 E D
28 .D ADD
29 .Q
30 Q:SPNLEXIT
31 G SELECT
32HELP ;This will print out all the help for the user
33 N IEN S IEN=0
34 W !,"The following is a list of selected patients:"
35 I DFN<1 W !,"No patients have been selected yet."
36 E F S IEN=$O(DFN(IEN)) Q:IEN<1 D
37 .W !,$$GET^DDSVAL(2,IEN,.01,"","E") ; Name
38 .W ?40,$$GET^DDSVAL(2,IEN,.09,"","E") ; SSN
39 .;**MOD,SD/AB,1/29/98, Changed DOB output to show 4-digit year
40 .W ?60,$$FMTE^XLFDT($$GET^DDSVAL(2,IEN,.03,"","I"),"1D") ; DOB
41 .Q
42 W !,"Enter the patient name or SSN to add a patient to the list."
43 W !,"Enter a minus ""-"" before a patient name to remove him from the list."
44 W !,"Enter ""ALL"" to select all patients and have the system use filters."
45 Q
46ADD ;Put a patient in the select list
47 N Y
48 D LOOKUP(SPNSTR) Q:SPNLEXIT
49 Q:Y=-1
50 I $D(DFN(Y)) W !,"Patient is already in list." Q
51 S DFN=DFN+1
52 S DFN(+Y)=""
53 Q
54DELETE ;Remove a patient from the select list
55 N Y
56 D LOOKUP($E(SPNSTR,2,$L(SPNSTR))) Q:SPNLEXIT
57 Q:Y=-1
58 I '$D(DFN(+Y)) W !,"Patient is not in list." Q
59 S DFN=DFN-1
60 K DFN(+Y)
61 Q
62LOOKUP(SPNSTR) ;Look-up a patient
63 S DIC=2,X=SPNSTR,DIC(0)="QEZ" D ^DIC
64 I $D(DTOUT)!($D(DUOUT)) S SPNLEXIT=1
65 Q
Note: See TracBrowser for help on using the repository browser.