| [613] | 1 | DGBT1POS ;ALB/LEB - Post-install of DGBT v1.0 ;[ 11/21/01 13:20 pm]
|
|---|
| 2 | ;;1.0;Beneficiary Travel;;Jun 25, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | ; Update PACKAGE (#2) File fields not updated by the KIDS install.
|
|---|
| 5 | ; Used for documentation purposes.
|
|---|
| 6 | ;
|
|---|
| 7 | D BMES^XPDUTL(" ")
|
|---|
| 8 | D MES^XPDUTL(" Updating PACKAGE File...")
|
|---|
| 9 | ;
|
|---|
| 10 | PKG ; Retrieve 'DGBT' Package name
|
|---|
| 11 | ; Get Package IEN
|
|---|
| 12 | D FIND^DIC(9.4,"","@;1","P","DGBT","","C","","","DGBTARRY")
|
|---|
| 13 | S (DGBTI,DGBTIEN)=0
|
|---|
| 14 | F S DGBTI=$O(DGBTARRY("DILIST",DGBTI)) Q:'DGBTI D
|
|---|
| 15 | . Q:$P($G(DGBTARRY("DILIST",DGBTI,0)),"^",2)'="DGBT"
|
|---|
| 16 | . S DGBTIEN=$P($G(DGBTARRY("DILIST",DGBTI,0)),"^",1)
|
|---|
| 17 | I 'DGBTIEN D G EXIT
|
|---|
| 18 | . D BMES^XPDUTL(" ")
|
|---|
| 19 | . D MES^XPDUTL(" No PACKAGE entry defined - Cannot update!")
|
|---|
| 20 | ;
|
|---|
| 21 | UPD ; - Update fields not updated by the KIDS install.
|
|---|
| 22 | ; fields:
|
|---|
| 23 | ; Short Description (#2); required field
|
|---|
| 24 | ; Description (#3) ; word processing field
|
|---|
| 25 | ; File (#6) ; multiple
|
|---|
| 26 | ; Fields ; multiple
|
|---|
| 27 | ;
|
|---|
| 28 | ; - Replace Short Description (#2) field.
|
|---|
| 29 | K FDATA S FDATA(9.4,DGBTIEN_",",2)="Beneficiary Travel"
|
|---|
| 30 | D FILE^DIE("E","FDATA","ERR")
|
|---|
| 31 | D BMES^XPDUTL(" ")
|
|---|
| 32 | D MES^XPDUTL(" SHORT DESCRIPTION field complete.")
|
|---|
| 33 | K FDATA,ERR
|
|---|
| 34 | ;
|
|---|
| 35 | ; - Replace Description (#3) field. Leave blank.
|
|---|
| 36 | D WP^DIE(9.4,DGBTIEN_",",3,"K","")
|
|---|
| 37 | D BMES^XPDUTL(" ")
|
|---|
| 38 | D MES^XPDUTL(" DESCRIPTION field complete.")
|
|---|
| 39 | ;
|
|---|
| 40 | FILE ; - Replace File (#9.44) field.
|
|---|
| 41 | ; first remove (delete) existing fields.
|
|---|
| 42 | N DIC K DGBTARRY
|
|---|
| 43 | D LIST^DIC(9.44,","_DGBTIEN_",","@;.01","P","","","","","","","DGBTARRY")
|
|---|
| 44 | S (DGBTII,DGBTFIL)=0
|
|---|
| 45 | F S DGBTII=$O(DGBTARRY("DILIST",DGBTII)) Q:'DGBTII D
|
|---|
| 46 | . S DGBTFIEN=$P(DGBTARRY("DILIST",DGBTII,0),"^",1)
|
|---|
| 47 | . S DIE="^DIC(9.4,",DA(1)=DGBTIEN,DIE=DIE_DA(1)_",4,"
|
|---|
| 48 | . S DA=+DGBTFIEN,DR=".01///@" D ^DIE
|
|---|
| 49 | ; after old entries deleted, add current File entries
|
|---|
| 50 | F X="43","43.1","392","392.1","392.2","392.3","392.4" D
|
|---|
| 51 | . S DIC="^DIC(9.4,",DA(1)=DGBTIEN
|
|---|
| 52 | . S DIC=DIC_DA(1)_",4,",DIC(0)="L",DIC("P")=$P(^DD(9.4,6,0),"^",2)
|
|---|
| 53 | . D ^DIC
|
|---|
| 54 | D BMES^XPDUTL(" ")
|
|---|
| 55 | D MES^XPDUTL(" FILE field complete.")
|
|---|
| 56 | ; - Add fields.
|
|---|
| 57 | FLDS ; Add FIELD entries to File entries #43, #43.1
|
|---|
| 58 | ; Add ASSIGN A VERSION NUMBER? entries to File entries #392-392.4
|
|---|
| 59 | S DIC="^DIC(9.4,",DA(1)=DGBTIEN,DIC(0)="X"
|
|---|
| 60 | S DIC=DIC_DA(1)_",4,",DIC("P")=$P(^DD(9.4,6,0),"^",2)
|
|---|
| 61 | F X="43","43.1","392","392.1","392.2","392.3","392.4" D
|
|---|
| 62 | . D ^DIC
|
|---|
| 63 | . S DIE=DIC,DA=+Y
|
|---|
| 64 | . I X=43 F FLD=720,721,722 S DR="2///"_FLD D ^DIE
|
|---|
| 65 | . I X=43.1 F FLD=30.01,30.02,30.03,30.04,30.05 S DR="2///"_FLD D ^DIE
|
|---|
| 66 | . I X[392 S DR="222.2///Y" D ^DIE
|
|---|
| 67 | D BMES^XPDUTL(" ")
|
|---|
| 68 | D MES^XPDUTL(" FIELD field complete.")
|
|---|
| 69 | ;
|
|---|
| 70 | XPREF ; Add 'DGBTZ' entry to the EXCLUDED NAME SPACE (#919) field.
|
|---|
| 71 | S DIC="^DIC(9.4,",DA(1)=DGBTIEN
|
|---|
| 72 | S DIC=DIC_DA(1)_",""EX"",",DIC(0)="L",DIC("P")=$P(^DD(9.4,919,0),"^",2)
|
|---|
| 73 | S X="DGBTZ" D ^DIC
|
|---|
| 74 | ;
|
|---|
| 75 | EXIT K DIC,DIE,DGBTII,DGBTFIL,DGBTFIEN,DGBTIEN,X,DA,DGBTARRY
|
|---|
| 76 | Q
|
|---|
