- 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 Mar 13, 2025@21:18:54 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 ]
