ACDEDE2 ;IHS/ADC/EDE/KML - DOCUMENTATION FOR V4;
;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
;
21 ;Modified followup to drop out of enter mode if unable to obtain
;information.
;
22 ;Added STATUS field to a couple of dictionaries. Set as follows:
;1=Early Full Remission, 2=Early Partial Remission, 3=Sustained full
;remission, 4=Sustained Partial Remission, 5=Maintaining Sobriety
;Used for tdc and fu.
;
23 ;Created a file to store copy sets of selected client services. Wrote
;logic to allow generating client service records for a copy set
;instead of one client service at a time.
;
24 ;Reversed smokless tobacco and smoking tobacco to be tobacco
;(smokless) and tobacco (smoking) in CDMIS DRUG file.
;
25 ;Created new option/routine to display a client's visit and all
;associated file entries.
;
26 ;Demonstrated system to local psg. They want to bring it up soon
;as Alpha test.
;
27 ;Discussed PCC link with Lori and Jim Mccain. Will propose we
;impliment it in version 4.
;
28 ;Changed CDMIS PROBLEM file entry DUAL DIAGNOSIS 8 to DUAL DISORDER
;8.
;
29 ;Created print template for CDMIS QUARTERLY/ANNUAL data.
;
30 ;Created new option ACD 2REP to generate annual report using template
;from item 29.
;
31 ;Modified reports option so ACD 2REP is executed instead of old report
;menu.
;
32 ;Changed mnemonics for all menus except supervisor menu to be more
;meaningful.
;
33 ;Modified routines that display a patient's visit history and display
;a selected visit with its associated subordiante file entry so that
;the output can go to a printer.
;
34 ;Made routine changes recommended by Nashville beta test site.
;
35 ;Note for v4 distribution: The following globals are sent via a
;^%GS.
;
;^ACDCASH 9002173.4
;^ACDCCT 9002173.6
;^ACDCOMP 9002170.1
;^ACDDRUG 9002170.5
;^ACDJBDT 9002174.2
;^ACDLOT 9002170.8
;^ACDPLEX 9002170.4
;^ACDPREV(9002170.9 9002170.9
;^ACDPROB 9002170.3
;^ACDSERV 9002170.6
;^ACDSTFC 9002174.1
;
36 ;XB routines modified are: XBBPI, XB, XBFMK, XBPFTV
;
37 ;Wrote pre-init routine to do the following:
;
;Repointed fields in CDMIS PREVENTION (9002170.7) and CDMIS CLIENT
;SCS (9002172) that pointed to the CDMIS LOCATION (9002170.8) file
;to entry NOT IN USE FOR NOW code 10 to point to OTHER code 8.
;
;Deleted entries in CDMIS INIT/INFO/FU DRUG TYPE multiple that pointed
;to entries NOT USED code I, NO DRUGS code 98, NO ALCOHOL code 99, NOT
;USED code N, and ALCOHOL code 20 in the CDMIS DRUG TABLE. Also
;deleted those entries from the CDMIS DRUG TABLE.
;
;Repointed fields in CDMIS PREVENTION (9002170.7) that pointed to the
;CDMIS PREVENTION ACTIVITIES (9002170.9) file to entry (NOT TO BE USED)
;code 10 to point to OTHER code 20.
;
;Recomputed age range for all entries in the CDMIS VISIT (9002172.1)
;file and the CDMIS CLIENT CATEGORY file. If age was missing the age
;was computed from the patient's DOB.
;
38 ;Wrote routine to generate a face sheet from the INITIAL type contact
;and created a new option for this purpose. Added the call of this
;routine to data entry add routine when an IN is added so face sheet
;can be generated at that time.
;
39 ;Wrote edit routine and input templates and replaced old edit option
;with new edit option.
;
40 ;Created new secondary data entry menu and moved low use items to new
;menu because main menu was getting cluttered.
ACDEDE2 ;IHS/ADC/EDE/KML - DOCUMENTATION FOR V4;
+1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
+2 ;
21 ;Modified followup to drop out of enter mode if unable to obtain
+1 ;information.
+2 ;
22 ;Added STATUS field to a couple of dictionaries. Set as follows:
+1 ;1=Early Full Remission, 2=Early Partial Remission, 3=Sustained full
+2 ;remission, 4=Sustained Partial Remission, 5=Maintaining Sobriety
+3 ;Used for tdc and fu.
+4 ;
23 ;Created a file to store copy sets of selected client services. Wrote
+1 ;logic to allow generating client service records for a copy set
+2 ;instead of one client service at a time.
+3 ;
24 ;Reversed smokless tobacco and smoking tobacco to be tobacco
+1 ;(smokless) and tobacco (smoking) in CDMIS DRUG file.
+2 ;
25 ;Created new option/routine to display a client's visit and all
+1 ;associated file entries.
+2 ;
26 ;Demonstrated system to local psg. They want to bring it up soon
+1 ;as Alpha test.
+2 ;
27 ;Discussed PCC link with Lori and Jim Mccain. Will propose we
+1 ;impliment it in version 4.
+2 ;
28 ;Changed CDMIS PROBLEM file entry DUAL DIAGNOSIS 8 to DUAL DISORDER
+1 ;8.
+2 ;
29 ;Created print template for CDMIS QUARTERLY/ANNUAL data.
+1 ;
30 ;Created new option ACD 2REP to generate annual report using template
+1 ;from item 29.
+2 ;
31 ;Modified reports option so ACD 2REP is executed instead of old report
+1 ;menu.
+2 ;
32 ;Changed mnemonics for all menus except supervisor menu to be more
+1 ;meaningful.
+2 ;
33 ;Modified routines that display a patient's visit history and display
+1 ;a selected visit with its associated subordiante file entry so that
+2 ;the output can go to a printer.
+3 ;
34 ;Made routine changes recommended by Nashville beta test site.
+1 ;
35 ;Note for v4 distribution: The following globals are sent via a
+1 ;^%GS.
+2 ;
+3 ;^ACDCASH 9002173.4
+4 ;^ACDCCT 9002173.6
+5 ;^ACDCOMP 9002170.1
+6 ;^ACDDRUG 9002170.5
+7 ;^ACDJBDT 9002174.2
+8 ;^ACDLOT 9002170.8
+9 ;^ACDPLEX 9002170.4
+10 ;^ACDPREV(9002170.9 9002170.9
+11 ;^ACDPROB 9002170.3
+12 ;^ACDSERV 9002170.6
+13 ;^ACDSTFC 9002174.1
+14 ;
36 ;XB routines modified are: XBBPI, XB, XBFMK, XBPFTV
+1 ;
37 ;Wrote pre-init routine to do the following:
+1 ;
+2 ;Repointed fields in CDMIS PREVENTION (9002170.7) and CDMIS CLIENT
+3 ;SCS (9002172) that pointed to the CDMIS LOCATION (9002170.8) file
+4 ;to entry NOT IN USE FOR NOW code 10 to point to OTHER code 8.
+5 ;
+6 ;Deleted entries in CDMIS INIT/INFO/FU DRUG TYPE multiple that pointed
+7 ;to entries NOT USED code I, NO DRUGS code 98, NO ALCOHOL code 99, NOT
+8 ;USED code N, and ALCOHOL code 20 in the CDMIS DRUG TABLE. Also
+9 ;deleted those entries from the CDMIS DRUG TABLE.
+10 ;
+11 ;Repointed fields in CDMIS PREVENTION (9002170.7) that pointed to the
+12 ;CDMIS PREVENTION ACTIVITIES (9002170.9) file to entry (NOT TO BE USED)
+13 ;code 10 to point to OTHER code 20.
+14 ;
+15 ;Recomputed age range for all entries in the CDMIS VISIT (9002172.1)
+16 ;file and the CDMIS CLIENT CATEGORY file. If age was missing the age
+17 ;was computed from the patient's DOB.
+18 ;
38 ;Wrote routine to generate a face sheet from the INITIAL type contact
+1 ;and created a new option for this purpose. Added the call of this
+2 ;routine to data entry add routine when an IN is added so face sheet
+3 ;can be generated at that time.
+4 ;
39 ;Wrote edit routine and input templates and replaced old edit option
+1 ;with new edit option.
+2 ;
40 ;Created new secondary data entry menu and moved low use items to new
+1 ;menu because main menu was getting cluttered.