ECX323PT.m

ECX323PT ;ALB/JAP - PATCH ECX*3*23 Post-Install ; February 26, 1999

 ;;3.0;DSS EXTRACTS;**23**;Dec 22, 1997

 ;

POST ;Entry point

 ;update field #12 in each file #727.1 record with default value

 N DIC,DIE,DA,DR,X,Y,IEN,ECX,ECXX,HEAD,MAX

 D MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with default")

 D MES^XPDUTL("value for new MAX. LINES PER MESSAGE field (#12)...")

 D MES^XPDUTL(" ")

 F ECX=1:1 S ECXX=$P($T(TEXT+ECX),";;",2) Q:ECXX="QUIT"  D

 .S IEN=$P(ECXX,U,1),MAX=$P(ECXX,U,2),HEAD=$P(ECXX,U,3)

 .K X,Y S DIC="^ECX(727.1,",DIC(0)="XOM",X=HEAD D ^DIC

 .I Y=-1 D  Q

 ..D MES^XPDUTL("   WARNING: Could not update entry #"_IEN_" for "_HEAD_" extract.")

 ..D MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 ..D MES^XPDUTL(" ")

 .S (DA,IEN)=+Y,DIE=DIC,DR="12///^S X=MAX" D ^DIE

 .D MES^XPDUTL("   Setting record #"_IEN_" for the "_HEAD_" extract with a")

 .D MES^XPDUTL("   default value of "_MAX_" in field #12.")

 .D MES^XPDUTL(" ")

 Q

 ;

TEXT ;field #12 defaults for file #727.1 records

 ;;1^100^ADM

 ;;2^150^CLI

 ;;3^200^NOS

 ;;4^200^NUR

 ;;5^200^DEN

 ;;7^200^MOV

 ;;8^200^UDP

 ;;9^200^PRE

 ;;10^200^SUR

 ;;12^200^LAB

 ;;13^200^RAD

 ;;14^200^ECS

 ;;15^200^IVP

 ;;16^200^TRT

 ;;17^200^PAS

 ;;18^200^LAR

 ;;19^200^ECQ

 ;;20^150^PRO

 ;;QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECX323PT   1325     printed  Apr 23, 2025@18:04:19                                                                                                                                                                                                    Page 2

ECX323PT  ;ALB/JAP - PATCH ECX*3*23 Post-Install ; February 26, 1999

 +1       ;;3.0;DSS EXTRACTS;**23**;Dec 22, 1997

 +2       ;

POST      ;Entry point

 +1       ;update field #12 in each file #727.1 record with default value

 +2        NEW DIC,DIE,DA,DR,X,Y,IEN,ECX,ECXX,HEAD,MAX

 +3        DO MES^XPDUTL("Updating EXTRACT DEFINITIONS file (#727.1) with default")

 +4        DO MES^XPDUTL("value for new MAX. LINES PER MESSAGE field (#12)...")

 +5        DO MES^XPDUTL(" ")

 +6        FOR ECX=1:1

               SET ECXX=$PIECE($TEXT(TEXT+ECX),";;",2)

               if ECXX="QUIT"

                   QUIT 

               Begin DoDot:1

 +7                SET IEN=$PIECE(ECXX,U,1)

                   SET MAX=$PIECE(ECXX,U,2)

                   SET HEAD=$PIECE(ECXX,U,3)

 +8                KILL X,Y

                   SET DIC="^ECX(727.1,"

                   SET DIC(0)="XOM"

                   SET X=HEAD

                   DO ^DIC

 +9                IF Y=-1

                       Begin DoDot:2

 +10                       DO MES^XPDUTL("   WARNING: Could not update entry #"_IEN_" for "_HEAD_" extract.")

 +11                       DO MES^XPDUTL("            Please consult with NVS for DSS EXTRACTS support.")

 +12                       DO MES^XPDUTL(" ")

                       End DoDot:2

                       QUIT 

 +13               SET (DA,IEN)=+Y

                   SET DIE=DIC

                   SET DR="12///^S X=MAX"

                   DO ^DIE

 +14               DO MES^XPDUTL("   Setting record #"_IEN_" for the "_HEAD_" extract with a")

 +15               DO MES^XPDUTL("   default value of "_MAX_" in field #12.")

 +16               DO MES^XPDUTL(" ")

               End DoDot:1

 +17       QUIT 

 +18      ;

TEXT      ;field #12 defaults for file #727.1 records

 +1       ;;1^100^ADM

 +2       ;;2^150^CLI

 +3       ;;3^200^NOS

 +4       ;;4^200^NUR

 +5       ;;5^200^DEN

 +6       ;;7^200^MOV

 +7       ;;8^200^UDP

 +8       ;;9^200^PRE

 +9       ;;10^200^SUR

 +10      ;;12^200^LAB

 +11      ;;13^200^RAD

 +12      ;;14^200^ECS

 +13      ;;15^200^IVP

 +14      ;;16^200^TRT

 +15      ;;17^200^PAS

 +16      ;;18^200^LAR

 +17      ;;19^200^ECQ

 +18      ;;20^150^PRO

 +19      ;;QUIT