Routine: YSD4C001

YSD4C001 ;DALISC/LJA - Display Messages ; [ 04/10/94  12:36 PM ]

 ;;5.01;MENTAL HEALTH;;Dec 30, 1994

;;

INSTR(TYPE,FF,PRELF,POSTLF) ;

 ;  Called by YSD4DSM

 QUIT:$G(TYPE)']""  ;->

 I $G(FF) W @IOF

 I $G(PRELF) F I=1:1:PRELF W !

 F YSD4LINE=1:1 S YSD4TXT=$T(@TYPE+YSD4LINE) QUIT:YSD4TXT'[";;"  D

 .  S YSD4TXT=$P(YSD4TXT,";;",2,99)

 .  W:$X>2 ! W YSD4TXT

 I $G(POSTLF) F I=1:1:POSTLF W !

 QUIT

OVERALL ;  Overall instructions regarding what happens during conversion

 ;;The DSM conversion is about to begin.  During this conversion...

;;

 ;;  *  All entries in the Medical Record file, pointing to the DSM3 file, will be

 ;;     repointed to the DSM file.

;;

 ;;  *  All entries in the Generic Progress Notes file, pointing to the DSM-III-R

 ;;     file, will be repointed to the DSM file.

;;

 ;;  *  All entries in the Diagnostic Results - Mental Health file, pointing to

 ;;     the DSM-III-R file, will be repointed to the DSM file.

;;

 ;;Please read the Mental Health V. 5.01 Installation guide for full

 ;;documentation of the process!!

STARTMR ;

 ;;Repointing Medical Record file data from the DSM3 file to the DSM file...

STARTGPN ;

 ;;Repointing Generic Progress Notes data from the DSM-III-R to the DSM file...

STARTDR ;

 ;;Repointing Diagnostic Results data from the DSM-III-R file to the DSM file...

PROCDONE ;

 ;;Installation of DSM-IV Diagnostic Codes and patient data conversion completed!!

EOR ;YSD4C001 - Display Messages ; [ 04/06/94  10:06 AM ]

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSD4C001   1552     printed  Apr 09, 2024@21:20:04                                                                                                                                                                                                    Page 2

YSD4C001  ;DALISC/LJA - Display Messages ; [ 04/10/94  12:36 PM ]

 +1       ;;5.01;MENTAL HEALTH;;Dec 30, 1994

 +2       ;;

 +3       ;

INSTR(TYPE,FF,PRELF,POSTLF) ;

 +1       ;  Called by YSD4DSM

 +2       ;->

           if $GET(TYPE)']""

               QUIT

 +3        IF $GET(FF)

               WRITE @IOF

 +4        IF $GET(PRELF)

               FOR I=1:1:PRELF

                   WRITE !

 +5        FOR YSD4LINE=1:1

               SET YSD4TXT=$TEXT(@TYPE+YSD4LINE)

               if YSD4TXT'[";;"

                   QUIT

               Begin DoDot:1

 +6                SET YSD4TXT=$PIECE(YSD4TXT,";;",2,99)

 +7                if $X>2

                       WRITE !

                   WRITE YSD4TXT

               End DoDot:1

 +8        IF $GET(POSTLF)

               FOR I=1:1:POSTLF

                   WRITE !

 +9        QUIT

 +10      ;

OVERALL   ;  Overall instructions regarding what happens during conversion

 +1       ;;The DSM conversion is about to begin.  During this conversion...

 +2       ;;

 +3       ;;  *  All entries in the Medical Record file, pointing to the DSM3 file, will be

 +4       ;;     repointed to the DSM file.

 +5       ;;

 +6       ;;  *  All entries in the Generic Progress Notes file, pointing to the DSM-III-R

 +7       ;;     file, will be repointed to the DSM file.

 +8       ;;

 +9       ;;  *  All entries in the Diagnostic Results - Mental Health file, pointing to

 +10      ;;     the DSM-III-R file, will be repointed to the DSM file.

 +11      ;;

 +12      ;;Please read the Mental Health V. 5.01 Installation guide for full

 +13      ;;documentation of the process!!

 +14      ;

STARTMR   ;

 +1       ;;Repointing Medical Record file data from the DSM3 file to the DSM file...

 +2       ;

STARTGPN  ;

 +1       ;;Repointing Generic Progress Notes data from the DSM-III-R to the DSM file...

 +2       ;

STARTDR   ;

 +1       ;;Repointing Diagnostic Results data from the DSM-III-R file to the DSM file...

 +2       ;

PROCDONE  ;

 +1       ;;Installation of DSM-IV Diagnostic Codes and patient data conversion completed!!

 +2       ;

EOR       ;YSD4C001 - Display Messages ; [ 04/06/94  10:06 AM ]

YSD4C001.m