Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDYMPOST

SDYMPOST.m

Go to the documentation of this file. 
  1. SDYMPOST ;ALB/CAW - Scheduling Maintenance Update 5/26/94
  1.  ;;5.3;Scheduling;**20,1015**;Aug 13, 1993;Build 21
  1.  ;
  1. EN ; -- add/inactivate stop codes
  1.  D ADD
  1.  D INACT
  1.  D CHANGE
  1.  D CDRNUM
  1.  ; -- add OPC FY95 FORMAT DATE
  1.  S $P(^DG(43,1,"SCLR"),U,25)=2941001
  1.  Q
  1.  ;
  1.  ;
  1. ADD W !!,">>> Adding new clinic stops to CLINIC STOP FILE (#40.7)..."
  1.  W !,"    [NOTE:  These stop codes CANNOT be used UNTIL 10/1/94]",!
  1.  S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7,"
  1.  F DGX=1:1 K DD,DO,DA S DGXX=$P($T(NEW+DGX),";;",2) Q:DGXX="QUIT"  D
  1.  . S DIC("DR")="1////"_$P(DGXX,"^",2)_$S('+$P(DGXX,U,5):"",1:";4////"_$P(DGXX,"^",5)),X=$P(DGXX,"^",1)
  1.  . I '$D(^DIC(40.7,"C",$P(DGXX,"^",2))) D FILE^DICN,MESS
  1.  K DIC,DGXX
  1.  Q
  1.  ;
  1. INACT W !!,">>> Inactivating clinic stops in CLINIC STOP CODE FILE (#40.7)..."
  1.  W !,"    [NOTE:  These stop codes CANNOT be used AFTER 9/30/94]",!
  1.  D NOW^%DTC S SDATE=X
  1.  F DGX=1:1 K DD,DO,DA S DGXX=$P($T(OLD+DGX),";;",2) Q:DGXX="QUIT"  D
  1.  . S DGDA=+$O(^DIC(40.7,"C",DGXX,0))
  1.  . I $D(^DIC(40.7,DGDA,0)) S DA=DGDA,DR="2////2941001",DIE="^DIC(40.7," D ^DIE,MESI
  1.  K %,%H,%I,DGX,DGDA,DGXX,DR,DA,DIC,DIE,DLAYGO,SDATE,X
  1.  Q
  1.  ;
  1. CHANGE W !!,">>> Changing clinic stop names in CLINIC STOP CODE FILE (#40.7)..."
  1.  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
  1.  K DGX,DGXX,DGDA,DIE,DR,DA Q
  1.  ;
  1. CDRNUM W !!,">>> Changing CDR numbers in CLINIC STOP CODE FILE (#40.7)..."
  1.  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
  1.  K DGX,DGXX,DGDA,DIE,DR,DA Q
  1.  ;
  1. MESS W !?8,"...",X,?40,"(",$P(DGXX,"^",2),") added..."
  1.  Q
  1.  ;
  1. MESI W !?8,"...",$P(^DIC(40.7,DGDA,0),"^"),?40,"(",DGXX,") inactivated as of 10/1/94..."
  1.  Q
  1.  ;
  1. MESC W !?8,"...",$P(DGXX,U)_$P(DGXX,U,3),?44,"changed to ",!?11,$P(DGXX,U,4),"..."
  1.  Q
  1.  ;
  1. MESN W !?8,"...",$P(DGXX,U)_" CDR ACCOUNT NUMBER: "_$P(DGXX,U,3),!,?11,"changed to "_$P(DGXX,U,4),"..."
  1.  Q
  1.  ;
  1. NEW ;stop codes to add - example ;;STOP CODE NAME^NUMBER^^^CDR
  1.  ;;CHAPLAIN SERVICE - INDIVIDUAL^166^^^2610.00
  1.  ;;CHAPLAIN SERVICE - GROUP^167^^^2610.00
  1.  ;;CHAPLAIN SERVICE - COLLATERAL^168^^^2610.00
  1.  ;;TELEPHONE/CHAPLAIN^169^^^2610.00
  1.  ;;HBHC - RN/RNP/PA^171^^^5110.00
  1.  ;;HBHC - NURSE EXTENDER^172^^^5110.00
  1.  ;;HBHC - SOCIAL WORKER^173^^^5110.00
  1.  ;;HBHC - THERAPIST^174^^^5110.00
  1.  ;;HBHC - DIETITIAN^175^^^5110.00
  1.  ;;HBHC - CLINICAL PHARMACIST^176^^^5110.00
  1.  ;;HBHC - OTHER^177^^^5110.00
  1.  ;;HBHC/TELEPHONE^178^^^5110.00
  1.  ;;TELEPHONE/NEUROLOGY^325^^^2110.00
  1.  ;;TELEPHONE/GERIATRICS^326^^^2110.00
  1.  ;;WOMEN SURGERY^426^^^2210.00
  1.  ;;PRIMARY CARE/SURGERY^427^^^2230.00
  1.  ;;TELE/HOMELESS MENTALLY ILL^528^^^2311.00
  1.  ;;HCHV/HMI^529^^^2311.00
  1.  ;;TELEPHONE/HUD-VASH^530^^^2316.00
  1.  ;;PRIMARY CARE/GENERAL PSY^531^^^2331.00
  1.  ;;TELEPHONE/IPCC^546^^^5117.00
  1.  ;;PRIMARY CARE/SPEC. PSY.^563^^^2330.00
  1.  ;;DOM ADM SCREENING SERVICES^728^^^5115.00
  1.  ;;TELEPHONE/DOMICILIARY^729^^^5115.00
  1.  ;;QUIT
  1.  ;
  1.  ;
  1. OLD ;STOP CODES TO BE INACTIVATED - example ;;NUMBER
  1.  ;;501
  1.  ;;543
  1.  ;;544
  1.  ;;545
  1.  ;;QUIT
  1.  ;
  1. CHNG ;NAME CHANGES TO STOP CODES-example ;;STOP CODE NAME^NUMBER^ (NUMBER)^NEW NAME
  1.  ;;HBHC^170^ (170)^HBHC - PHYSICIAN
  1.  ;;REHABILITATION MEDICINE^201^ (201)^PHYSICAL MED & REHAB SVC
  1.  ;;RMS INCENTIVE THERAPY^207^ (207)^PM&RS INCENTIVE THERAPY
  1.  ;;RMS COMPENSATED WORK THERAPY^208^ (208)^PM&RS COMPENSATED WORK THERAPY
  1.  ;;RMS VOCATIONAL ASSISTANCE^213^ (213)^PM&RS VOCATIONAL ASSISTANCE
  1.  ;;GENERAL MEDICINE^301^ (301)^GENERAL INTERNAL MEDICINE
  1.  ;;PRIMARY CARE^323^ (323)^PRIMARY CARE/MEDICINE
  1.  ;;AMBULATORY SURGERY^416^ (416)^AMBULATORY SURGERY OFFICE
  1.  ;;MENTAL HYGIENE-INDIVIDUAL^502^ (502)^MENTAL HEALTH - INDIVIDUAL
  1.  ;;COMMUNITY CLINIC-INDIVIDUAL^504^ (504)^IPCC MEDICAL CENTER VISIT
  1.  ;;MENTAL HYGIENE-GROUP^550^ (550)^MENTAL HEALTH CLINIC-GROUP
  1.  ;;COMMUNITY CLINIC-GROUP^551^ (551)^IPCC COMM CLN/DAY PROGRAM VST
  1.  ;;COMMUNITY DAY PROGRAM^552^ (552)^IPCC COMMUNITY VISIT
  1.  ;;QUIT
  1.  ;
  1. CDR ;CDR ACCOUNT CHANGE-EXAMPLE ;;STOP CODE NAME (NUMBER)^NUMBER^CDR #^CDR#
  1.  ;;PRIMARY CARE/MEDICINE (323)^323^2110.00^2130.00
  1.  ;;IPCC MEDICAL CENTER VISIT (504)^504^5114.00^5117.00
  1.  ;;IPCC COMM CLN/DAY PROGRAM VST (551)^551^5114.00^5117.00
  1.  ;;IPCC COMMUNITY VISIT (552)^552^5114.00^5117.00
  1.  ;;QUIT