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

SOWK55.m

Go to the documentation of this file.
  1. SOWK55 ;B'HAM ISC/MAM - Correct Package File ; 13 April 1998 8:00 am
  1. ;;3.0; Social Work ;**55**;27 Apr 93
  1. PATCH ; update SOCIAL WORK PATCH Entry in the PACKAGE file
  1. ; set PREFIX equal to ZZSW
  1. ;
  1. K DIC,X S X="SOCIAL WORK PATCH",DIC(0)="XZ",DIC="^DIC(9.4," D ^DIC K DIC S X=+Y
  1. I X>0 S SOWKPRE="ZZSW" D PREFIX
  1. ;
  1. SOW ; update PREFEX for SOCIAL WORK entry in PACKAGE file
  1. ; set PREFIX equal to SOW
  1. K DIC,X S X="SOCIAL WORK",DIC(0)="XZ",DIC="^DIC(9.4," D ^DIC K DIC S X=+Y
  1. I X>0,$P(^DIC(9.4,X,0),"^",2)'="SOW" S SOWKPRE="SOW" D PREFIX
  1. K SOWKPRE,X,Y,DIC,DA,DR,DIE
  1. Q
  1. ;
  1. PREFIX ; reset PREFIX in PACKAGE file
  1. ;
  1. S DIE=9.4,DA=X,DR="1///"_SOWKPRE D ^DIE
  1. Q