- 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 Jan 18, 2025@03:38:53 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