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

DENTOP.m

Go to the documentation of this file.
  1. DENTOP ; HISC/NCA - Post-Init to Add Options ;6/17/96 15:36
  1. ;;1.2;DENTAL;**21**;AUG 15, 1996
  1. ; Add Dental Options to Menu
  1. W !!,"Add Dental Options to Dental Menu..."
  1. S X=" ;;DENT PROGMAN;DENTPURGE;12" D AD2
  1. S X=" ;;DENTACTMANAGER;DENTBATCH;10" D AD2
  1. S X=" ;;DENTACTUSER;DENTBATCH;9" D AD2
  1. KIL K ACT,DA,DENTX,DENTX1,DENTXA,DIC,DIE,DIK,DLAYGO,DR,LL,NAM,PKG,TXT,TYP,X,Y
  1. Q
  1. AD2 ; Add Dental Options to Dental Menus
  1. S DA(1)=$O(^DIC(19,"B",$P(X,";",3),0)) I 'DA(1) K DA Q
  1. K DIC S:'$D(^DIC(19,DA(1),10,0)) ^(0)="^19.01IP^^"
  1. S DENTX=$O(^DIC(19,"B",$P(X,";",4),0)) I 'DENTX Q
  1. S DENTXA=$O(^DIC(19,DA(1),10,"B",DENTX,0)) I DENTXA Q
  1. S DENTX1=$P(X,";",5)
  1. S DIC("DR")="2///"_DENTX1
  1. S DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="L",DLAYGO=19,X=$P(X,";",4) D ^DIC
  1. I $P(Y,"^",3) W !?2,X," added as item to ",$P(^DIC(19,DA(1),0),"^",1),"."
  1. K DA,DIC
  1. Q