Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRC5A

PRC5A.m

Go to the documentation of this file.
  1. PRC5A ;WISC/PLT-IFCAP pre-install routine defined in package file ;9/13/00 17:46
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;invoke by the pre-initial installation field of package file.
  1. EN ;called from routine prcinit[1]
  1. D EN^DDIOL("IFCAP PRE-INIT STARTS at "_$$NOW)
  1. D DESCRIP^PRC5INS1(410,443.99) ;remove ifcap dd field descriptions
  1. ;remove erroneous computed field nodes of Free-Text field
  1. K ^DD(420.01,2,9.01),^(9.1),^(9.2)
  1. K ^DD(420.01,3,9.01),^(9.1),^(9.2)
  1. ;Delete discontinued fields
  1. S DIK="^DD(443.6,",DA(1)=443.6 F DA=.4,8.4 D:$D(^DD(443.6,DA)) ^DIK
  1. K DA,DIK
  1. ;kill erroneous index nodes
  1. K ^DD(442.8,0,"IX","AE",442.8,.01)
  1. ;kill old "NM" nodes where name change
  1. K ^DD(420.11,0,"NM","SUBACCOUNT")
  1. F X="PRCO EDI RE-TRAN^PRCHPC PO","PRCHPM CS RETRANSMIT BATCH^PRCHPM CS TRANSMISSION MENU" D UNLINK($P(X,"^"),$P(X,"^",2))
  1. D ^PRCIPR1A ;delete option/routine/template(s)
  1. D EN3^PRC5C1 ;reindex special fcp in file 420
  1. ;add entry in file 420.92 if not defined
  1. I '$O(^PRCU(420.92,"B",PRCFIXV,"")) D
  1. . N PRCRI,A
  1. . S A="",PRCRI(9.4)=$O(^DIC(9.4,"B","IFCAP",0)) I PRCRI(9.4) S A=$P(^DIC(9.4,PRCRI(9.4),"VERSION"),"^",1)
  1. . S A=A_"/"_$P($T(+2^PRCINIT),";",3)
  1. . S X=PRCFIXV,X("DR")="1////"_A_";2.6///^S X=""N"""
  1. . D ADD^PRC0B1(.X,.Y,"420.92;^PRCU(420.92,")
  1. . I Y=-1 K Y I Y W !,"ERROR TRAP! CALL IRM/ISC SUPPORT."
  1. . QUIT
  1. D EN^DDIOL("IFCAP PRE-INIT ENDS at"_$$NOW)
  1. QUIT
  1. ;
  1. ;
  1. NOW() ;ev value date@time of now
  1. N %H,Y,X,%
  1. S %H=$H D YX^%DTC
  1. QUIT Y
  1. ;
  1. ;A: Option to remove; B: Menu
  1. N X,DA
  1. S X=$O(^DIC(19,"B",A,0)) Q:X'?1.N
  1. S DA(1)=$O(^DIC(19,"B",B,0)) Q:DA(1)'?1.N
  1. S DA=$O(^DIC(19,DA(1),10,"B",X,0)) Q:DA'?1.N
  1. S DIK="^DIC(19,"_DA(1)_",10," D ^DIK K DIK
  1. Q