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

PRSXP126.m

Go to the documentation of this file.
  1. PRSXP126 ;WOIFO/KJS PAID v4.0 Post-Initialization Routine ;12-9-2011
  1. ;;4.0;PAID;**126**;Sep 21, 1995;Build 59
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; This routine contains the post-initialization code for PAID
  1. ; package v4.0. Patch 126
  1. ;
  1. Q
  1. ;
  1. POST ;
  1. ;Reindex POC TIME AEP INDEX
  1. N DIK,DA
  1. S DIK="^PRSN(451,DA(1),""E"","
  1. S DIK(1)="1^AEP"
  1. S DA(1)=0
  1. F S DA(1)=$O(^PRSN(451,DA(1))) Q:DA(1)'?1.N D
  1. .D ENALL^DIK
  1. ;
  1. ;Reindex POC TIME ALN INDEX
  1. N DIK,DA
  1. S DIK="^PRSN(451,DA(4),""E"",DA(3),""D"",DA(2),""V"",DA(1),""T"","
  1. S DIK(1)="4^ALN"
  1. S DA(4)=0
  1. F S DA(4)=$O(^PRSN(451,DA(4))) Q:DA(4)'?1.N D
  1. .S DA(3)=0
  1. .F S DA(3)=$O(^PRSN(451,DA(4),"E",DA(3))) Q:DA(3)'?1.N D
  1. ..S DA(2)=0
  1. ..F S DA(2)=$O(^PRSN(451,DA(4),"E",DA(3),"D",DA(2))) Q:DA(2)'?1.N D
  1. ...S DA(1)=0
  1. ...F S DA(1)=$O(^PRSN(451,DA(4),"E",DA(3),"D",DA(2),"V",DA(1))) Q:DA(1)'?1.N D
  1. ....D ENALL^DIK
  1. ;
  1. N DA
  1. S DA=0
  1. F S DA=$O(^PRSN(451.7,DA)) Q:'DA D
  1. . N PRSFDA,IEN,PRSIEN,REC
  1. . S REC=^PRSN(451.7,DA,0),PRSIEN=$P(REC,U,6),TL=$P(^PRSPC(PRSIEN,0),U,8)
  1. . S PRSFDA(451.7,DA_",",15)=TL ; T&L
  1. . D UPDATE^DIE("","PRSFDA","IEN"),MSG^DIALOG()
  1. Q