[628] | 1 | SDYMPOST ;ALB/CAW - Scheduling Maintenance Update 5/26/94
|
---|
| 2 | ;;5.3;Scheduling;**20**;Aug 13, 1993
|
---|
| 3 | ;
|
---|
| 4 | EN ; -- add/inactivate stop codes
|
---|
| 5 | D ADD
|
---|
| 6 | D INACT
|
---|
| 7 | D CHANGE
|
---|
| 8 | D CDRNUM
|
---|
| 9 | ; -- add OPC FY95 FORMAT DATE
|
---|
| 10 | S $P(^DG(43,1,"SCLR"),U,25)=2941001
|
---|
| 11 | Q
|
---|
| 12 | ;
|
---|
| 13 | ;
|
---|
| 14 | ADD W !!,">>> Adding new clinic stops to CLINIC STOP FILE (#40.7)..."
|
---|
| 15 | W !," [NOTE: These stop codes CANNOT be used UNTIL 10/1/94]",!
|
---|
| 16 | S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7,"
|
---|
| 17 | F DGX=1:1 K DD,DO,DA S DGXX=$P($T(NEW+DGX),";;",2) Q:DGXX="QUIT" D
|
---|
| 18 | . S DIC("DR")="1////"_$P(DGXX,"^",2)_$S('+$P(DGXX,U,5):"",1:";4////"_$P(DGXX,"^",5)),X=$P(DGXX,"^",1)
|
---|
| 19 | . I '$D(^DIC(40.7,"C",$P(DGXX,"^",2))) D FILE^DICN,MESS
|
---|
| 20 | K DIC,DGXX
|
---|
| 21 | Q
|
---|
| 22 | ;
|
---|
| 23 | INACT W !!,">>> Inactivating clinic stops in CLINIC STOP CODE FILE (#40.7)..."
|
---|
| 24 | W !," [NOTE: These stop codes CANNOT be used AFTER 9/30/94]",!
|
---|
| 25 | D NOW^%DTC S SDATE=X
|
---|
| 26 | F DGX=1:1 K DD,DO,DA S DGXX=$P($T(OLD+DGX),";;",2) Q:DGXX="QUIT" D
|
---|
| 27 | . S DGDA=+$O(^DIC(40.7,"C",DGXX,0))
|
---|
| 28 | . I $D(^DIC(40.7,DGDA,0)) S DA=DGDA,DR="2////2941001",DIE="^DIC(40.7," D ^DIE,MESI
|
---|
| 29 | K %,%H,%I,DGX,DGDA,DGXX,DR,DA,DIC,DIE,DLAYGO,SDATE,X
|
---|
| 30 | Q
|
---|
| 31 | ;
|
---|
| 32 | CHANGE W !!,">>> Changing clinic stop names in CLINIC STOP CODE FILE (#40.7)..."
|
---|
| 33 | F DGX=1:1 K DD,DO,DA S DGXX=$P($T(CHNG+DGX),";;",2) Q:DGXX="QUIT" S DGDA=+$O(^DIC(40.7,"C",$P(DGXX,U,2),0)) I $D(^DIC(40.7,DGDA,0)) S DA=DGDA,DR=".01///"_$P(DGXX,U,4),DIE="^DIC(40.7," D ^DIE,MESC
|
---|
| 34 | K DGX,DGXX,DGDA,DIE,DR,DA Q
|
---|
| 35 | ;
|
---|
| 36 | CDRNUM W !!,">>> Changing CDR numbers in CLINIC STOP CODE FILE (#40.7)..."
|
---|
| 37 | F DGX=1:1 K DD,DO,DA S DGXX=$P($T(CDR+DGX),";;",2) Q:DGXX="QUIT" S DGDA=+$O(^DIC(40.7,"C",$P(DGXX,U,2),0)) I $D(^DIC(40.7,DGDA,0)) S DA=DGDA,DR="4///"_$P(DGXX,U,4),DIE="^DIC(40.7," D ^DIE,MESN
|
---|
| 38 | K DGX,DGXX,DGDA,DIE,DR,DA Q
|
---|
| 39 | ;
|
---|
| 40 | MESS W !?8,"...",X,?40,"(",$P(DGXX,"^",2),") added..."
|
---|
| 41 | Q
|
---|
| 42 | ;
|
---|
| 43 | MESI W !?8,"...",$P(^DIC(40.7,DGDA,0),"^"),?40,"(",DGXX,") inactivated as of 10/1/94..."
|
---|
| 44 | Q
|
---|
| 45 | ;
|
---|
| 46 | MESC W !?8,"...",$P(DGXX,U)_$P(DGXX,U,3),?44,"changed to ",!?11,$P(DGXX,U,4),"..."
|
---|
| 47 | Q
|
---|
| 48 | ;
|
---|
| 49 | MESN W !?8,"...",$P(DGXX,U)_" CDR ACCOUNT NUMBER: "_$P(DGXX,U,3),!,?11,"changed to "_$P(DGXX,U,4),"..."
|
---|
| 50 | Q
|
---|
| 51 | ;
|
---|
| 52 | NEW ;stop codes to add - example ;;STOP CODE NAME^NUMBER^^^CDR
|
---|
| 53 | ;;CHAPLAIN SERVICE - INDIVIDUAL^166^^^2610.00
|
---|
| 54 | ;;CHAPLAIN SERVICE - GROUP^167^^^2610.00
|
---|
| 55 | ;;CHAPLAIN SERVICE - COLLATERAL^168^^^2610.00
|
---|
| 56 | ;;TELEPHONE/CHAPLAIN^169^^^2610.00
|
---|
| 57 | ;;HBHC - RN/RNP/PA^171^^^5110.00
|
---|
| 58 | ;;HBHC - NURSE EXTENDER^172^^^5110.00
|
---|
| 59 | ;;HBHC - SOCIAL WORKER^173^^^5110.00
|
---|
| 60 | ;;HBHC - THERAPIST^174^^^5110.00
|
---|
| 61 | ;;HBHC - DIETITIAN^175^^^5110.00
|
---|
| 62 | ;;HBHC - CLINICAL PHARMACIST^176^^^5110.00
|
---|
| 63 | ;;HBHC - OTHER^177^^^5110.00
|
---|
| 64 | ;;HBHC/TELEPHONE^178^^^5110.00
|
---|
| 65 | ;;TELEPHONE/NEUROLOGY^325^^^2110.00
|
---|
| 66 | ;;TELEPHONE/GERIATRICS^326^^^2110.00
|
---|
| 67 | ;;WOMEN SURGERY^426^^^2210.00
|
---|
| 68 | ;;PRIMARY CARE/SURGERY^427^^^2230.00
|
---|
| 69 | ;;TELE/HOMELESS MENTALLY ILL^528^^^2311.00
|
---|
| 70 | ;;HCHV/HMI^529^^^2311.00
|
---|
| 71 | ;;TELEPHONE/HUD-VASH^530^^^2316.00
|
---|
| 72 | ;;PRIMARY CARE/GENERAL PSY^531^^^2331.00
|
---|
| 73 | ;;TELEPHONE/IPCC^546^^^5117.00
|
---|
| 74 | ;;PRIMARY CARE/SPEC. PSY.^563^^^2330.00
|
---|
| 75 | ;;DOM ADM SCREENING SERVICES^728^^^5115.00
|
---|
| 76 | ;;TELEPHONE/DOMICILIARY^729^^^5115.00
|
---|
| 77 | ;;QUIT
|
---|
| 78 | ;
|
---|
| 79 | ;
|
---|
| 80 | OLD ;STOP CODES TO BE INACTIVATED - example ;;NUMBER
|
---|
| 81 | ;;501
|
---|
| 82 | ;;543
|
---|
| 83 | ;;544
|
---|
| 84 | ;;545
|
---|
| 85 | ;;QUIT
|
---|
| 86 | ;
|
---|
| 87 | CHNG ;NAME CHANGES TO STOP CODES-example ;;STOP CODE NAME^NUMBER^ (NUMBER)^NEW NAME
|
---|
| 88 | ;;HBHC^170^ (170)^HBHC - PHYSICIAN
|
---|
| 89 | ;;REHABILITATION MEDICINE^201^ (201)^PHYSICAL MED & REHAB SVC
|
---|
| 90 | ;;RMS INCENTIVE THERAPY^207^ (207)^PM&RS INCENTIVE THERAPY
|
---|
| 91 | ;;RMS COMPENSATED WORK THERAPY^208^ (208)^PM&RS COMPENSATED WORK THERAPY
|
---|
| 92 | ;;RMS VOCATIONAL ASSISTANCE^213^ (213)^PM&RS VOCATIONAL ASSISTANCE
|
---|
| 93 | ;;GENERAL MEDICINE^301^ (301)^GENERAL INTERNAL MEDICINE
|
---|
| 94 | ;;PRIMARY CARE^323^ (323)^PRIMARY CARE/MEDICINE
|
---|
| 95 | ;;AMBULATORY SURGERY^416^ (416)^AMBULATORY SURGERY OFFICE
|
---|
| 96 | ;;MENTAL HYGIENE-INDIVIDUAL^502^ (502)^MENTAL HEALTH - INDIVIDUAL
|
---|
| 97 | ;;COMMUNITY CLINIC-INDIVIDUAL^504^ (504)^IPCC MEDICAL CENTER VISIT
|
---|
| 98 | ;;MENTAL HYGIENE-GROUP^550^ (550)^MENTAL HEALTH CLINIC-GROUP
|
---|
| 99 | ;;COMMUNITY CLINIC-GROUP^551^ (551)^IPCC COMM CLN/DAY PROGRAM VST
|
---|
| 100 | ;;COMMUNITY DAY PROGRAM^552^ (552)^IPCC COMMUNITY VISIT
|
---|
| 101 | ;;QUIT
|
---|
| 102 | ;
|
---|
| 103 | CDR ;CDR ACCOUNT CHANGE-EXAMPLE ;;STOP CODE NAME (NUMBER)^NUMBER^CDR #^CDR#
|
---|
| 104 | ;;PRIMARY CARE/MEDICINE (323)^323^2110.00^2130.00
|
---|
| 105 | ;;IPCC MEDICAL CENTER VISIT (504)^504^5114.00^5117.00
|
---|
| 106 | ;;IPCC COMM CLN/DAY PROGRAM VST (551)^551^5114.00^5117.00
|
---|
| 107 | ;;IPCC COMMUNITY VISIT (552)^552^5114.00^5117.00
|
---|
| 108 | ;;QUIT
|
---|