source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4UT01.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1YSD4UT01 ;DALISC/LJA - DSM-IV Conversion Utilities ; [ 04/04/94 12:06 PM ]
2 ;;5.01;MENTAL HEALTH;**1**;Dec 30, 1994
3 ;
4KILLALL ; Kill all local and global variables created by DSM-Converson.
5 K A7U0,A7U3,A7U70,A7U7D,A7UIEN,A7U7K,A7U7Q,A7UIEN,A7UK,A7UQ,AYUX
6 K ACTION,CHOICE,CT,DA,DD,DIC,DIE,DIFQ,DIK,DIQ,DIR,DIU
7 K D0,DO,DR,FF,FILE,GREF,IEN,IENDSM,J,LINE,MSG,N0,ND,NK,NM,NO,NODE,NQ
8 K OK,ONO,POP,POS,POSTLF,PRELF,QNO,STOP,TYPE,USERS,V,VT,X,Y
9 K YSD4,YSD40,YSD41,YSD42,YSD43,YSD430,YSD49N
10 K YSD4ABRT,YSD4ACT,YSD4ALL,YSD4CFLD,YSD4CFLG,YSD4CIEN
11 K YSD4CNT3,YSD4CNTR,YSD4COND,YSD4CONT,YSD4CONV,YSD4CT,YSD4D
12 K YSD4DATA,YSD4DDNO,YSD4DFN,YSD4DIEN,YSD4DIRA,YSD4DR0
13 K YSD4DSP,YSD4DT,YSD4DUZ,YSD4DX1,YSD4DX1C,YSD4DX1F,YSD4DXNO,YSD4E
14 K YSD4E0,YSD4E1,YSD4EABT,YSD4ECON,YSD4ECTR,YSD4EDE,YSD4EDR
15 K YSD4EDT,YSD4EFN,YSD4EIEN,YSD4EL,YSD4EMIN,YSD4EMR
16 K YSD4END,YSD4ENO,YSD4EOTH,YSD4EP,YSD4EPID
17 K YSD4EPN,YSD4EQID,YSD4ERD,YSD4ERR,YSD4EREP,YSD4ESMD,YSD4ESME,YSD4ESTE
18 K YSD4ETXT,YSD4FND,YSD4GCT,YSD4I,YSD4IDT,YSD4IEN,YSD4INO,YSD4KF
19 K YSD4L,YSD4LINE,YSD4M,YSD4MCH,YSD4MENU,YSD4MIEN,YSD4MLC
20 K YSD4MNO,YSD4N,YSD4NC,YSD4ND,YSD4NDN,YSD4NDX,YSD4NM
21 K YSD4NMNU,YSD4NO,YSD4NODE,YSD4NREA,YSD4NV,YSD4ODX,YSD4ODX1
22 K YSD4OK,YSD4P,YSD4PDX,YSD4R,YSD4REA,YSD4REF,YSD4RFLG
23 K YSD4S1,YSD4S2,YSD4SCR,YSD4SITE,YSD4ST,YSD4STE,YSD4STR,YSD4TXT,YSD4V
24 K YSD4VAR,YSD4X,YSNM,YSNO,YSPNOPT
25 K ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE
26 QUIT
27 ;
28DELDATA ; Delete all data in the DSM Conversion file
29 ;
30 ; Any data?
31 I '$O(^YSD(627.99,0)) D QUIT ;->
32 . W !!,"The DSM Conversion file contains no data!!"
33 . H 4
34 ;
35 ; Inform...
36 W !!,"The DSM Conversion (#627.99) file holds data generated during the Mental"
37 W !,"Health V. 5.01 post init repointing of DSM patient data. This file will be"
38 W !,"deleted when the next version of Mental Health is installed. However, you"
39 W !,"may wish to delete the data in this file now. (This should not be done"
40 W !,"until Mental Health V. 5.01 has been used by clinicians entering, editing,"
41 W !,"and viewing DSM data, for a sufficient length of time to detect"
42 W !,"any conversion problems.)",!!
43 W !!,"You are about to delete the data contained in the DSM Conversion file!!",!!
44 ;
45 ; Ask permission...
46 N DIR
47 S DIR(0)="Y",DIR("A")="OK to continue",DIR("B")="No"
48 D ^DIR
49 I +Y'=1 D QUIT ;->
50 . W " ... No action taken ..."
51 . H 3
52 ;
53 ; Ask for one more verification...
54 W !!,"The data in the DSM Conversion file will now be deleted!!!",!!
55 H 1
56 K DIR
57 S DIR(0)="EA",DIR("A")="Press RETURN, or any other key to begin deletion... "
58 D ^DIR
59 I +Y'=1 D QUIT ;->
60 . W " ... No action taken ..."
61 . H 3
62 ;
63 ; OK. Now, delete...
64 S X=$G(^YSD(627.99,0)),YSNEW0=$P(X,U,1,2)_U_U
65 I YSNEW0'["DSM CONVERSION" D QUIT ;->
66 . W " ... Invalid 0 node!! No action taken ..."
67 . H 3
68 K ^YSD(627.99)
69 S ^YSD(627.99,0)=YSNEW0
70 K YSNEW0
71 W " ... All data deleted ..."
72 H 3
73 QUIT
74 ;
75EOR ;YSD4UT01 - DSM-IV Conversion Utilities ; 3/24/94 16:12
Note: See TracBrowser for help on using the repository browser.