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

BEHOARIN.m

Go to the documentation of this file.
  1. BEHOARIN ;MSC/IND/DKM - ART Package KIDS Support ;22-Apr-2011 15:52;PLS
  1. ;;1.1;BEH COMPONENTS;**045002**;Sep 18, 2007
  1. ;=================================================================
  1. ; Environment check
  1. EC Q
  1. ; Pre-init
  1. PRE ;
  1. N DIU
  1. S DIU="^BEHOAR(90460.06,",DIU(0)="D" D EN^DIU2
  1. Q
  1. ;N IEN,REC,DFN
  1. S IEN=0
  1. F S IEN=$O(^GMR(120.86,IEN)) Q:'IEN S DFN=+$G(^(IEN,0)) D
  1. .I DFN,DFN'=IEN D
  1. ..M REC(DFN)=^GMR(120.86,IEN)
  1. ..K ^GMR(120.86,IEN),^GMR(120.86,"B",DFN,IEN)
  1. ..S ^GMR(120.86,"B",DFN,DFN)=""
  1. M:$D(REC) ^GMR(120.86)=REC
  1. Q
  1. ; Post-init
  1. POST ;D REGMENU^BEHUTIL("BEHOAR MAIN",,"ART","BEHOMENU")
  1. N LP,DA
  1. S LP=0 F S LP=$O(^BEHOAR(90460.06,LP)) Q:'LP D
  1. .S DA=LP,DIK="^BEHOAR(90460.06," D IX^DIK
  1. Q