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

VPRP14.m

Go to the documentation of this file.
  1. VPRP14 ;SLC/MKB -- Inits for patch 14 ;3/4/20 12:07
  1. ;;1.0;VIRTUAL PATIENT RECORD;**14**;Sep 01, 2011;Build 38
  1. ;;Per VHA Directive 6402, this routine should not be modified.
  1. ;
  1. ;
  1. PRE ; -- preinit to remove unused Entities
  1. N DIK,DA,VPRNM,X,DR,DIE,XQORM
  1. ; remove any old PLI patch entities
  1. S DIK="^DDE(",VPRNM="VPR P14 A"
  1. F S VPRNM=$O(^DDE("B",VPRNM)) Q:VPRNM'?1"VPR P"2N1" "1.E S DA=+$O(^(VPRNM,0)) I DA D ^DIK
  1. ; remove Social Hx items from test
  1. ; S DIK="^DDE(",VPRNM="VPR SHX A"
  1. ; F S VPRNM=$O(^DDE("B",VPRNM)) Q:VPRNM'?1"VPR SHX "1.E S DA=+$O(^(VPRNM,0)) I DA D ^DIK
  1. P1 ; add Seq# to VPR item on PS event
  1. S X=+$O(^ORD(101,"B","VPR XQOR EVENTS",0))
  1. S DA(1)=+$O(^ORD(101,"B","PS EVSEND OR",0))
  1. S DA=+$O(^ORD(101,DA(1),10,"B",X,0))
  1. I DA,+$G(^ORD(101,DA(1),10,DA,0))=X,'$P(^(0),U,3) D
  1. . S DR="3///2",DIE="^ORD(101,"_DA(1)_",10," D ^DIE
  1. . S XQORM=DA(1)_";ORD(101," D XREF^XQORM
  1. Q