source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4DSM.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1YSD4DSM ;DALISC/LJA - Master DSM-IV Conversion Routine ;[ 07/13/94 2:37 PM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4 QUIT ;->
5 ; ---------------------- DSM Patient Data Conversion -------------------
6 ; Call CONVERT to start the DSM-IV Conversion process...
7 ; ----------------------------------------------------------------------
8CONVERT ;
9 D CHECKENV^YSD4C000 QUIT:'YSD4OK ;-> Call examines environment, and
10 ; establishes var's needed for
11 ; control of following process
12 ;
13 ; Give user overall process instructions IF restarting
14 I '$O(^YSD(627.99,0)) D INSTR^YSD4C001("OVERALL",0,2,2)
15 ;
16 S YSD4RS=0 ; restart switch
17 ;
18 ; Let user stop process now IF restarting...
19 I $O(^YSD(627.99,0)) D
20 . S YSD4RS=1
21 . D OUT^YSD4PRE0 ; Place out order message on all DSM options
22 . S YSD4DIRA="OK to restart conversion now"
23 . D OKCONT^YSD4C000(2)
24 . I 'YSD4OK D Q
25 . . D OUT^YSD4POST
26 . . K YSD4RS
27 ;
28CTRL1 ; YSD4POST calls here... Independent calls allowed to CONVERT, above.
29 ; Tell them ^MR conversion is starting... Ask for OK
30 I $$DO^YSD4C010("MRCONV") D
31 . D INSTR^YSD4C001("STARTMR",0,2,1)
32 . D CTRL^YSD40030 ; Convert ^MR data here
33 ;
34 ; Tell user ^GMR(121 conversion is starting... Ask for OK
35 I $$DO^YSD4C010("GPNCONV") D
36 . D INSTR^YSD4C001("STARTGPN",0,1,1)
37 . D CTRL^YSD40050 ; Convert ^GMR(121 data here
38 ;
39 ; Tell user ^YSD(627.8, conversion is starting... Ask for OK
40 I $$DO^YSD4C010("DRCONV") D
41 . D INSTR^YSD4C001("STARTDR",0,1,1)
42 . D CTRL^YSD40040 ; Convert ^GMR(121 data here
43 ;
44 ; Tell user that Conversion is completed...
45 D INSTR^YSD4C001("PROCDONE",0,2)
46 ;
47 D ERRORS
48 D:YSD4RS OUT^YSD4POST ; take out of order message off all DSM options
49 K YSD4RS
50 QUIT
51 ;
52ERRORS ; Give user error information
53 D REP^YSD4E010
54 QUIT
55 ;
56REPORT ; Give user statistics from conversion
57 D STATS^YSD4E020
58 QUIT
59 ;
60EOR ;YSD4DSM - Master DSM-IV Conversion Routine ;3/24/94 16:02
Note: See TracBrowser for help on using the repository browser.