| [613] | 1 | YSD4UT01 ;DALISC/LJA - DSM-IV Conversion Utilities ; [ 04/04/94 12:06 PM ]
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**1**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | KILLALL ; 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 | ;
|
|---|
| 28 | DELDATA ; 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 | ;
|
|---|
| 75 | EOR ;YSD4UT01 - DSM-IV Conversion Utilities ; 3/24/94 16:12
|
|---|
