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

SDY5STOP.m

Go to the documentation of this file. 
  1. SDY5STOP ;ALB/CAW,GTS,ESD,JAM,GT - Stop Code/DSS Identifier Update 8/2/2004
  1.  ;;5.3;Scheduling;**388**;AUG 13, 1993
  1.  ;
  1.  ;**  This patch is used as a Post-Init in a KIDS build to modify the
  1.  ;**   the DSS Identifier file [^DIC(40.7,]
  1.  ;
  1. EN ;** Add/inactivate/change/reactivate DSS IDs (stop codes)
  1.  ;**  The following code executes if file modifications exist
  1.  ;
  1.  N SDVAR
  1.  D:$P($T(NEW+1),";;",2)'="QUIT" ADD
  1.  D:$P($T(CHNG+1),";;",2)'="QUIT" CHANGE
  1.  Q
  1.  ;
  1.  ;
  1. ADD ;** Add DSS IDs
  1.  ;
  1.  ;  SDXX is in format:
  1.  ; STOP CODE NAME^AMIS #^RESTRICTION TYPE^REST. DATE^CDR #
  1.  ;
  1.  N SDX,SDXX
  1.  S SDVAR=1
  1.  D MES^XPDUTL("")
  1.  D BMES^XPDUTL(">>> Adding new Clinic Stops (DSS IDs) to CLINIC STOP File (#40.7)...")
  1.  ;
  1.  ;** NOTE: The following line is for DSS IDs that are not yet active
  1.  D BMES^XPDUTL(" [NOTE:  These Stop Codes CANNOT be used UNTIL 10/1/04]")
  1.  S DIC(0)="L",DLAYGO=40.7,DIC="^DIC(40.7,"
  1.  F SDX=1:1 K DD,DO,DA S SDXX=$P($T(NEW+SDX),";;",2) Q:SDXX="QUIT"  DO
  1.  .S DIC("DR")="1////"_$P(SDXX,"^",2)_$S('+$P(SDXX,U,5):"",1:";4////"_$P(SDXX,"^",5))
  1.  .S DIC("DR")=DIC("DR")_";5////"_$P(SDXX,"^",3)_";6///"_$P(SDXX,"^",4)
  1.  .S X=$P(SDXX,"^",1)
  1.  .I '$D(^DIC(40.7,"C",$P(SDXX,"^",2))) D FILE^DICN,MESS Q
  1.  .;I $D(^DIC(40.7,"C",$P(SDXX,"^",2))) D EDIT(SDXX),MESSEX
  1.  K DIC,DLAYGO,X
  1.  Q
  1.  ;
  1. EDIT(SDXX) ;- Edit fields w/new values if stop code record already exists
  1.  ;
  1.  Q:$G(SDXX)=""
  1.  N DA,DIE,DLAYGO,DR
  1.  S DA=+$O(^DIC(40.7,"C",+$P(SDXX,"^",2),0))
  1.  Q:'DA
  1.  S DIE="^DIC(40.7,",DR=".01////"_$P(SDXX,"^")_";1////"_$P(SDXX,"^",2)_";2////@"_$S('+$P(SDXX,U,5):"",1:";4////"_$P(SDXX,"^",5))_";5////"_$P(SDXX,"^",3)_";6///"_$P(SDXX,"^",4)
  1.  D ^DIE
  1.  Q
  1.  ;
  1. CHANGE ;** Change DSS ID names
  1.  ;
  1.  ;  SDXX is in format:
  1.  ; STOP CODE NAME^AMIS #^^NEW STOP CODE NAME
  1.  ;
  1.  N SDX,SDXX,SDDA
  1.  S SDVAR=1
  1.  D MES^XPDUTL("")
  1.  D BMES^XPDUTL(">>> Changing Clinic Stop (DSS ID) names in CLINIC STOP File (#40.7)...")
  1.  F SDX=1:1 K DD,DO,DA S SDXX=$P($T(CHNG+SDX),";;",2) Q:SDXX="QUIT"  DO
  1.  .S SDDA=+$O(^DIC(40.7,"C",$P(SDXX,U,2),0))
  1.  .I $D(^DIC(40.7,SDDA,0)) DO
  1.  ..S DA=SDDA,DR=".01///"_$P(SDXX,U,4),DIE="^DIC(40.7,"
  1.  ..D ^DIE,MESC
  1.  K DIE,DR,DA
  1.  Q
  1.  ;
  1. MESS ;** Add message
  1.  N ECXADMSG
  1.  I +$G(SDVAR) D HDR(SDVAR)
  1.  D MES^XPDUTL(" ")
  1.  S ECXADMSG="Added:       "_$P(SDXX,"^",2)_"      "_$P(SDXX,"^")
  1.  I $P(SDXX,"^",5)'="" S ECXADMSG=ECXADMSG_" [CDR#: "_$P(SDXX,"^",5)_"]"
  1.  D MES^XPDUTL(ECXADMSG)
  1.  I $P(SDXX,"^",3)'="" S ECXADMSG="                      Restricted Type: "_$P(SDXX,"^",3)_"    Restricted Date: "_$P(SDXX,"^",4)
  1.  D MES^XPDUTL(ECXADMSG)
  1.  K SDVAR
  1.  Q
  1.  ;
  1. MESSEX ;** Display message if stop code already exists
  1.  N ECXADMSG
  1.  I +$G(SDVAR) D HDR(SDVAR)
  1.  D MES^XPDUTL(" ")
  1.  S ECXADMSG="             "_$P(SDXX,"^",2)_"      "_$P(SDXX,"^")_"  already exists."
  1.  D MES^XPDUTL(ECXADMSG)
  1.  K SDVAR
  1.  Q
  1.  ;
  1. MESC ;** Change message
  1.  N SDCMSG,SDCMSG1
  1.  I +$G(SDVAR) D HDR(SDVAR)
  1.  D MES^XPDUTL(" ")
  1.  S SDCMSG="Changed:      "_$P(SDXX,U,2)_"           "_$P(SDXX,U)
  1.  S SDCMSG1="     to:      "_$P(SDXX,U,2)_"           "_$P(SDXX,U,4)
  1.  D MES^XPDUTL(SDCMSG)
  1.  D MES^XPDUTL(SDCMSG1)
  1.  K SDVAR
  1.  Q
  1.  ;
  1. HDR(SDVAR) ;- Header
  1.  Q:'$G(SDVAR)
  1.  N SDHDR
  1.  S SDHDR=$P($T(@("HDR"_SDVAR)),";;",2)
  1.  D BMES^XPDUTL(SDHDR)
  1.  Q
  1.  ;
  1.  ;
  1. HDR1 ;;           Stop Code              Name
  1.  ;
  1. HDR2 ;;                CDR        Stop Code             Name
  1.  ;
  1. HDR3 ;;           Stop Code      Name                       Rest. Type    Date
  1.  ;
  1. NEW ;DSS IDs to add- ex ;;STOP CODE NAME^NUMBER^RESTRICTION TYPE^RESTRICTION DATE^CDR
  1.  ;;HBPC Nursing (RN / LP)^171^P^10/1/2004
  1.  ;;HBPC PHYSIC EXTND(NP,CNS,PA)^172^P^10/1/2004
  1.  ;;PMRS CWT/TWE FACE TO FACE^208^E
  1.  ;;COMP & PENS (C&P) EXAMS^450^S^10/1/2004
  1.  ;;TRANSPLANT^457^S^10/1/2004
  1.  ;;RESEARCH^474^S^10/1/2004
  1.  ;;COMPREHENSIVE FUNDOSCOPY EXAM^480^S^10/1/2004
  1.  ;;BRONCHOSCOPY^481^S^10/1/2004
  1.  ;;PTSD CLINICAL TEAM PTS IND^540^P^10/1/2004
  1.  ;;MH CWT/TWE FACE TO FACE^574^E
  1.  ;;ADMIN PAT ACTIVTIES (MASNONCT)^674^P^10/1/2004
  1.  ;;NON-VIDEO MONITORING ONLY^683^P^10/1/2004
  1.  ;;CARE OF CCS PROGRAM PATIENT^685^E
  1.  ;;PMRS CWT/SE FACE TO FACE^222^E^
  1.  ;;PMRS CWT/SE NON-F TO F (MASNONCT)^223^E
  1.  ;;PMRS CWT/TWE NON-F TO F (MASNONCT)^228^E
  1.  ;;MEDICAL PRE-PROCED EVAL^336^E^
  1.  ;;MOVE PROGRAM IND^372^E^
  1.  ;;MOVE PROGRAM GRP^373^E^
  1.  ;;LOCALLY DEFINED^451^S^10/1/2004
  1.  ;;LOCALLY DEFINED^452^S^10/1/2004
  1.  ;;LOCALLY DEFINED^453^S^10/1/2004
  1.  ;;LOCALLY DEFINED^454^S^10/1/2004
  1.  ;;LOCALLY DEFINED^455^S^10/1/2004
  1.  ;;LOCALLY DEFINED^456^S^10/1/2004
  1.  ;;LOCALLY DEFINED^458^S^10/1/2004
  1.  ;;LOCALLY DEFINED^459^S^10/1/2004
  1.  ;;LOCALLY DEFINED^460^S^10/1/2004
  1.  ;;LOCALLY DEFINED^461^S^10/1/2004
  1.  ;;LOCALLY DEFINED^462^S^10/1/2004
  1.  ;;LOCALLY DEFINED^463^S^10/1/2004
  1.  ;;LOCALLY DEFINED^464^S^10/1/2004
  1.  ;;LOCALLY DEFINED^465^S^10/1/2004
  1.  ;;LOCALLY DEFINED^466^S^10/1/2004
  1.  ;;LOCALLY DEFINED^467^S^10/1/2004
  1.  ;;LOCALLY DEFINED^468^S^10/1/2004
  1.  ;;LOCALLY DEFINED^469^S^10/1/2004
  1.  ;;LOCALLY DEFINED^470^S^10/1/2004
  1.  ;;LOCALLY DEFINED^471^S^10/1/2004
  1.  ;;LOCALLY DEFINED^472^S^10/1/2004
  1.  ;;LOCALLY DEFINED^473^S^10/1/2004
  1.  ;;LOCALLY DEFINED^475^S^10/1/2004
  1.  ;;LOCALLY DEFINED^476^S^10/1/2004
  1.  ;;LOCALLY DEFINED^477^S^10/1/2004
  1.  ;;LOCALLY DEFINED^478^S^10/1/2004
  1.  ;;LOCALLY DEFINED^479^S^10/1/2004
  1.  ;;LOCALLY DEFINED^482^S^10/1/2004
  1.  ;;LOCALLY DEFINED^483^S^10/1/2004
  1.  ;;LOCALLY DEFINED^484^S^10/1/2004
  1.  ;;LOCALLY DEFINED^485^S^10/1/2004
  1.  ;;MH CWT/SE FACE TO FACE^568^E^
  1.  ;;MH CWT/SE NON-F TO F (MAS NONCT^569^E^
  1.  ;;MH CWT/TWE NON-F TO F (MAS NONCT^570^E^
  1.  ;;SEND-OUT PROCS RADIOLOGY^643^P^10/1/2004
  1.  ;;STATE HOME ADULT DAY HLTHCARE^658^P^10/1/2004
  1.  ;;QUIT
  1.  ;
  1. CHNG ;DSS ID name changes- example ;;STOP CODE NAME^NUMBER^^NEW NAME
  1.  ;;HBPC - RN/RNP/PA//^171^^HBPC Nursing (RN / LP)
  1.  ;;HBPC - NURSE EXTENDER^172^^HBPC PHYSIC EXTND(NP,CNS,PA)
  1.  ;;PM&RS COMPENSATED WORK THERAPY^208^^PMRS CWT/TWE FACE TO FACE
  1.  ;;COMP & PENS (C&P) EXAMS^450^^COMP & PENS (C&P) EXAMS
  1.  ;;TRANSPLANT^457^^TRANSPLANT
  1.  ;;RESEARCH^474^^RESEARCH
  1.  ;;COMPREHENSIVE FUNDOSCOPY EXAM^480^^COMPREHENSIVE FUNDOSCOPY EXAM
  1.  ;;BRONCHOSCOPY^481^^BRONCHOSCOPY
  1.  ;;PCT POST-TRAUMATIC STRESS-IND^540^^PTSD CLINICAL TEAM PTS IND
  1.  ;;MH COMP WORK THERAPY (CWT) GRP^574^^MH CWT/TWE FACE TO FACE
  1.  ;;ADMIN PT ORIENT NONCTMAS PRI^674^^ADMIN PAT ACTIVTIES (MASNONCT)
  1.  ;;NONVIDEO HOME TELEHEALTH MONITOR ONLY (NONCOUNT)^683^^NON-VIDEO MONITORING ONLY
  1.  ;;CCS OFFICE VISIT^685^^CARE OF CCS PROGRAM PATIENT
  1.  ;;QUIT