SOWK55.m

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 ---SOWK55   676     printed  Apr 09, 2024@21:40:16                                                                                                                                                                                                       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