source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD4C001.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1YSD4C001 ;DALISC/LJA - Display Messages ; [ 04/10/94 12:36 PM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5INSTR(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 ;
16OVERALL ; 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 ;
31STARTMR ;
32 ;;Repointing Medical Record file data from the DSM3 file to the DSM file...
33 ;
34STARTGPN ;
35 ;;Repointing Generic Progress Notes data from the DSM-III-R to the DSM file...
36 ;
37STARTDR ;
38 ;;Repointing Diagnostic Results data from the DSM-III-R file to the DSM file...
39 ;
40PROCDONE ;
41 ;;Installation of DSM-IV Diagnostic Codes and patient data conversion completed!!
42 ;
43EOR ;YSD4C001 - Display Messages ; [ 04/06/94 10:06 AM ]
Note: See TracBrowser for help on using the repository browser.