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

EDPFX233.m

Go to the documentation of this file.
  1. EDPFX233 ;SLC/BWF - Pre-init for facility install ;2/28/12 08:33am
  1. ;;2.0;EMERGENCY DEPARTMENT;;May 2, 2012;Build 103
  1. ;
  1. FIX233() ;
  1. N IEN,DISPNM,ABBREV
  1. S IEN=0 F S IEN=$O(^EDPB(233.1,IEN)) Q:'IEN D
  1. .S DISPNM=$$GET1^DIQ(233.1,IEN,.02)
  1. .S ABBREV=$$GET1^DIQ(233.1,IEN,.03)
  1. .I DISPNM=""!(ABBREV="") D
  1. ..D DISP(IEN)
  1. ..I DISPNM="" D EDFLD(IEN,.02)
  1. ..I ABBREV="" D EDFLD(IEN,.03)
  1. Q
  1. DISP(IEN) ;
  1. N DATA,ERR,IENS
  1. S IENS=IEN_","
  1. D GETS^DIQ(233.1,IENS,".01;.02;.03","IE","DATA","ERR")
  1. W !,?2,"NAME: ",?20,$G(DATA(233.1,IENS,.01,"E"))
  1. W !,?2,"DISPLAY NAME:",?20,$G(DATA(233.1,IENS,.02,"E"))
  1. W !,?2,"ABBREVIATION:",?20,$G(DATA(233.1,IENS,.03,"E")),!
  1. Q
  1. EDFLD(IEN,FLD) ;
  1. N DIE,DA,DR
  1. S DIE("NO^")=""
  1. W !!,"You must correct the following fields before continuing:",!
  1. S DIE="^EDPB(233.1,",DA=IEN,DR=FLD
  1. L +^EDPB(233.1,IEN):2
  1. I $T D ^DIE L -^EDPB(233.1,IEN) W !!! Q
  1. W !,?10,"Another user is editing this entry. Please try again later.",!! Q
  1. Q