| [613] | 1 | YSD4C001 ;DALISC/LJA - Display Messages ; [ 04/10/94 12:36 PM ]
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;;
|
|---|
| 4 | ;
|
|---|
| 5 | INSTR(TYPE,FF,PRELF,POSTLF) ;
|
|---|
| 6 | ; Called by YSD4DSM
|
|---|
| 7 | QUIT:$G(TYPE)']"" ;->
|
|---|
| 8 | I $G(FF) W @IOF
|
|---|
| 9 | I $G(PRELF) F I=1:1:PRELF W !
|
|---|
| 10 | F YSD4LINE=1:1 S YSD4TXT=$T(@TYPE+YSD4LINE) QUIT:YSD4TXT'[";;" D
|
|---|
| 11 | . S YSD4TXT=$P(YSD4TXT,";;",2,99)
|
|---|
| 12 | . W:$X>2 ! W YSD4TXT
|
|---|
| 13 | I $G(POSTLF) F I=1:1:POSTLF W !
|
|---|
| 14 | QUIT
|
|---|
| 15 | ;
|
|---|
| 16 | OVERALL ; Overall instructions regarding what happens during conversion
|
|---|
| 17 | ;;The DSM conversion is about to begin. During this conversion...
|
|---|
| 18 | ;;
|
|---|
| 19 | ;; * All entries in the Medical Record file, pointing to the DSM3 file, will be
|
|---|
| 20 | ;; repointed to the DSM file.
|
|---|
| 21 | ;;
|
|---|
| 22 | ;; * All entries in the Generic Progress Notes file, pointing to the DSM-III-R
|
|---|
| 23 | ;; file, will be repointed to the DSM file.
|
|---|
| 24 | ;;
|
|---|
| 25 | ;; * All entries in the Diagnostic Results - Mental Health file, pointing to
|
|---|
| 26 | ;; the DSM-III-R file, will be repointed to the DSM file.
|
|---|
| 27 | ;;
|
|---|
| 28 | ;;Please read the Mental Health V. 5.01 Installation guide for full
|
|---|
| 29 | ;;documentation of the process!!
|
|---|
| 30 | ;
|
|---|
| 31 | STARTMR ;
|
|---|
| 32 | ;;Repointing Medical Record file data from the DSM3 file to the DSM file...
|
|---|
| 33 | ;
|
|---|
| 34 | STARTGPN ;
|
|---|
| 35 | ;;Repointing Generic Progress Notes data from the DSM-III-R to the DSM file...
|
|---|
| 36 | ;
|
|---|
| 37 | STARTDR ;
|
|---|
| 38 | ;;Repointing Diagnostic Results data from the DSM-III-R file to the DSM file...
|
|---|
| 39 | ;
|
|---|
| 40 | PROCDONE ;
|
|---|
| 41 | ;;Installation of DSM-IV Diagnostic Codes and patient data conversion completed!!
|
|---|
| 42 | ;
|
|---|
| 43 | EOR ;YSD4C001 - Display Messages ; [ 04/06/94 10:06 AM ]
|
|---|
