| [613] | 1 | YSD4DSM ;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 | ; ----------------------------------------------------------------------
|
|---|
| 8 | CONVERT ;
|
|---|
| 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 | ;
|
|---|
| 28 | CTRL1 ; 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 | ;
|
|---|
| 52 | ERRORS ; Give user error information
|
|---|
| 53 | D REP^YSD4E010
|
|---|
| 54 | QUIT
|
|---|
| 55 | ;
|
|---|
| 56 | REPORT ; Give user statistics from conversion
|
|---|
| 57 | D STATS^YSD4E020
|
|---|
| 58 | QUIT
|
|---|
| 59 | ;
|
|---|
| 60 | EOR ;YSD4DSM - Master DSM-IV Conversion Routine ;3/24/94 16:02
|
|---|
