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

DGRTRIG.m

Go to the documentation of this file.
  1. DGRTRIG ;EG - RELATIONSHIP FILE TRIGGERS ;09/12/2005 12:05 PM
  1. ;;5.3;Registration;**656**;Aug 13, 1994;Build 9
  1. ;
  1. ;trigger patient transmsission status (file # 301.5) if edit to Income Relation file # 408.22
  1. E40822(IEN) ;
  1. ;input IEN of file # 408.22
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S X=$G(^DGMT(408.22,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",1)
  1. I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Income Person file # 408.13
  1. E40813(IEN) ;
  1. ;input IEN of file # 408.13
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S DFN=$O(^DGPR(408.12,"C",+IEN_";DGPR(408.13,",0)) I 'DFN Q
  1. S X=$G(^DGPR(408.12,DFN,0)) I X="" Q
  1. S DFN=$P(X,"^",1) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Patient Relation file # 408.12
  1. E40812(IEN) ;
  1. ;input IEN of file # 408.12
  1. N X,DFN
  1. I '$G(IEN) Q
  1. S X=$G(^DGPR(408.12,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",1) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to MST History file # 29.11
  1. E2911(IEN) ;
  1. ;input IEN of file # 29.11
  1. N X,DFN
  1. I '$G(IEN) Q
  1. S X=$G(^DGMS(29.11,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",2) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Beneficiary Travel Certification file # 292.2
  1. E3922(IEN) ;
  1. ;input IEN of file # 392.2
  1. N X,DFN
  1. I '$G(IEN) Q
  1. S X=$G(^DGBT(392.2,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",2) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Patient Enrollment # 27.11
  1. E2711(IEN) ;
  1. ;input IEN of file # 27.11
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S X=$G(^DGEN(27.11,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",2) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Billing Patient # 354
  1. E354(IEN) ;
  1. ;input IEN of file # 354
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S X=$G(^IBA(354,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",1) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Annual Means Test # 408.31
  1. E40831(IEN) ;
  1. ;input IEN of file # 408.31
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S X=$G(^DGMT(408.31,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",2) I DFN="" Q
  1. D EVENT^IVMPLOG(DFN)
  1. Q
  1. ;trigger patient transmission status (file # 301.5) if edit to Individual Annual Income # 408.21
  1. E40821(IEN) ;
  1. ;input IEN of file 408.21
  1. I '$G(IEN) Q
  1. N X,DFN
  1. S X=$G(^DGMT(408.21,IEN,0)) I X="" Q
  1. S DFN=$P(X,"^",2) I DFN="" Q
  1. D E40812(DFN)
  1. Q