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 Oct 16, 2024@18:14:50 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 ]
