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

DVBADD.m

Go to the documentation of this file.
  1. DVBADD ;ALB/MLI - DD calls from AMIE files ; 2/15/96@1
  1. ;;2.7;AMIE;**4**;Apr 10, 1995
  1. ;
  1. ; This routine contains calls made from AMIE DDs
  1. ;
  1. EXAMSET ; set logic for .01 field of AMIE EXAM file
  1. ; (loops through and resets APE x-refs in file 396.4)
  1. ;
  1. ; FM passes x=new value; da=ien
  1. ;
  1. ; uses I=loop counter,RD=request date,DFN=patient
  1. ;
  1. N I,DFN,NODE,NODE2,RD
  1. S I=0
  1. I $G(X)=""!($G(DA)="") Q
  1. I '$D(ZTQUEUED) W !,"Setting APE x-refs with new name...please wait"
  1. F S I=$O(^DVB(396.4,"F",DA,I)) Q:'I D
  1. . S NODE=$G(^DVB(396.4,I,0))
  1. . S NODE2=$G(^DVB(396.3,+$P(NODE,"^",2),0))
  1. . S DFN=+NODE2,RD=+$P(NODE2,"^",2)
  1. . S ^DVB(396.4,"APE",DFN,X,RD,I)=""
  1. Q
  1. ;
  1. ;
  1. EXAMKILL ; kill logic for .01 field of AMIE EXAM file
  1. ; (loops through and kills APE x-refs in file 396.4)
  1. ;
  1. ; FM passes x=new value; da=ien
  1. ;
  1. ; uses I=loop counter,RD=request date,DFN=patient
  1. ;
  1. N I,DFN,NODE,NODE2,RD
  1. S I=0
  1. I $G(X)=""!($G(DA)="") Q
  1. I '$D(ZTQUEUED) W !,"Killing APE x-refs with old name...please wait"
  1. F S I=$O(^DVB(396.4,"F",DA,I)) Q:'I D
  1. . S NODE=$G(^DVB(396.4,I,0))
  1. . S NODE2=$G(^DVB(396.3,+$P(NODE,"^",2),0))
  1. . S DFN=+NODE2,RD=+$P(NODE2,"^",2)
  1. . K ^DVB(396.4,"APE",DFN,X,RD,I)
  1. Q