SOWK55 ;B'HAM ISC/MAM - Correct Package File ; 13 April 1998 8:00 am
;;3.0; Social Work ;**55**;27 Apr 93
PATCH ; update SOCIAL WORK PATCH Entry in the PACKAGE file
; set PREFIX equal to ZZSW
;
K DIC,X S X="SOCIAL WORK PATCH",DIC(0)="XZ",DIC="^DIC(9.4," D ^DIC K DIC S X=+Y
I X>0 S SOWKPRE="ZZSW" D PREFIX
;
SOW ; update PREFEX for SOCIAL WORK entry in PACKAGE file
; set PREFIX equal to SOW
K DIC,X S X="SOCIAL WORK",DIC(0)="XZ",DIC="^DIC(9.4," D ^DIC K DIC S X=+Y
I X>0,$P(^DIC(9.4,X,0),"^",2)'="SOW" S SOWKPRE="SOW" D PREFIX
K SOWKPRE,X,Y,DIC,DA,DR,DIE
Q
;
PREFIX ; reset PREFIX in PACKAGE file
;
S DIE=9.4,DA=X,DR="1///"_SOWKPRE D ^DIE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSOWK55 676 printed Dec 13, 2024@02:37:42 Page 2
SOWK55 ;B'HAM ISC/MAM - Correct Package File ; 13 April 1998 8:00 am
+1 ;;3.0; Social Work ;**55**;27 Apr 93
PATCH ; update SOCIAL WORK PATCH Entry in the PACKAGE file
+1 ; set PREFIX equal to ZZSW
+2 ;
+3 KILL DIC,X
SET X="SOCIAL WORK PATCH"
SET DIC(0)="XZ"
SET DIC="^DIC(9.4,"
DO ^DIC
KILL DIC
SET X=+Y
+4 IF X>0
SET SOWKPRE="ZZSW"
DO PREFIX
+5 ;
SOW ; update PREFEX for SOCIAL WORK entry in PACKAGE file
+1 ; set PREFIX equal to SOW
+2 KILL DIC,X
SET X="SOCIAL WORK"
SET DIC(0)="XZ"
SET DIC="^DIC(9.4,"
DO ^DIC
KILL DIC
SET X=+Y
+3 IF X>0
IF $PIECE(^DIC(9.4,X,0),"^",2)'="SOW"
SET SOWKPRE="SOW"
DO PREFIX
+4 KILL SOWKPRE,X,Y,DIC,DA,DR,DIE
+5 QUIT
+6 ;
PREFIX ; reset PREFIX in PACKAGE file
+1 ;
+2 SET DIE=9.4
SET DA=X
SET DR="1///"_SOWKPRE
DO ^DIE
+3 QUIT
