source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDYBSTOP.m@ 1147

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1SDYBSTOP ;ALB/MLI - Add new Clinic Stop Codes ; 12/10/93
2 ;;5.3;Scheduling;**13**;Aug 13, 1993
3 ;
4EN ; -- add/inactivate stop codes
5 D ADD
6 D INACT
7 Q
8 ;
9 ;
10ADD W !!,">>> Adding new clinic stops to CLINIC STOP FILE (#40.7)..."
11 W !," [NOTE: These stop codes CANNOT be used UNTIL 2/1/94]",!
12 S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7,"
13 F DGX=1:1 K DD,DO,DA S DGXX=$P($T(NEW+DGX),";;",2) Q:DGXX="QUIT" D
14 . S DIC("DR")="1////"_$P(DGXX,"^",2)_$S('+$P(DGXX,U,5):"",1:";4////"_$P(DGXX,"^",5)),X=$P(DGXX,"^",1)
15 . I '$D(^DIC(40.7,"C",$P(DGXX,"^",2))) D FILE^DICN,MESS
16 K DIC,DGXX
17 Q
18 ;
19 ;
20INACT W !!,">>> Inactivating clinic stops in CLINIC STOP CODE FILE (#40.7)..."
21 W !," [NOTE: These stop codes CANNOT be used AFTER 1/31/94]",!
22 D NOW^%DTC S SDATE=X
23 F DGX=1:1 K DD,DO,DA S DGXX=$P($T(OLD+DGX),";;",2) Q:DGXX="QUIT" D
24 . S DGDA=+$O(^DIC(40.7,"C",DGXX,0))
25 . I $D(^DIC(40.7,DGDA,0)) S DA=DGDA,DR="2////2940131",DIE="^DIC(40.7," D ^DIE,MESI
26 K %,%H,%I,DGX,DGDA,DGXX,DR,DA,DIC,DIE,DLAYGO,SDATE,X
27 Q
28 ;
29 ;
30MESS W !?8,"...",X,?40,"(",$P(DGXX,"^",2),") added..."
31 Q
32 ;
33 ;
34MESI W !?8,"...",$P(^DIC(40.7,DGDA,0),"^"),?40,"(",DGXX,") inactivated as of 1/31/94..."
35 Q
36 ;
37 ;
38NEW ;stop codes to add
39 ;;TELEPHONE TRIAGE^103^^^2111.00
40 ;;PRIMARY CARE^323^^^2110.00
41 ;;TELEPHONE/MEDICINE^324^^^2110.00
42 ;;TELEPHONE/SURGERY^424^^^2210.00
43 ;;TELEPHONE/SPECIAL PSYCHIATRY^526^^^2310.00
44 ;;TELEPHONE/GENERAL PSYCHIATRY^527^^^2311.00
45 ;;TELEPHONE/PTSD^542^^^2313.00
46 ;;TELEPHONE/ALCOHOL DEPENDENCE^543^^^2316.00
47 ;;TELEPHONE/DRUG DEPENDENCE^544^^^2316.00
48 ;;TELEPHONE/SUBSTANCE ABUSE^545^^^2316.00
49 ;;TELEPHONE/ANCILLARY^147^^^2610.00
50 ;;TELEPHONE/REHAB AND SUPPORT^216^^^2611.00
51 ;;TELEPHONE/DIAGNOSTIC^148^^^2612.00
52 ;;TELEPHONE/PROSTHETICS/ORTHOTIC^425^^^2614.00
53 ;;TELEPHONE/DENTAL^181^^^2710.00
54 ;;TELEPHONE/DIALYSIS^611^^^2410.00
55 ;;WOMEN'S STRESS DISORDER TEAMS^525^^^2311.00
56 ;;QUIT
57 ;
58 ;
59OLD ;STOP CODES TO BE INACTIVATED
60 ;;571
61 ;;572
62 ;;QUIT
Note: See TracBrowser for help on using the repository browser.