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 ---[H[J[2J[HECX323PT 1325 printed Oct 16, 2024@17:50:41 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
