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

VAFHUTL9.m

Go to the documentation of this file.
  1. VAFHUTL9 ;ALB/RJS - UTILTIES FOR ADT/R HL7 INTERFACE - 6/15/95
  1. ;;5.3;Registration;**91**;Jun 06, 1996
  1. ;
  1. ;This Routine contains several utilities used by the PIMS
  1. ;HL7 ADT software
  1. ;
  1. SEG(SEGMENT,PIECE,CODE) ;Return segment from VADC array and kill node
  1. N VANODE,VADATA,VADONE K VADONE
  1. S VANODE=0
  1. F S VANODE=$O(VADC(VANODE)) Q:VANODE=""!($D(VADONE)) D
  1. .S VADATA=VADC(VANODE)
  1. .I ($P(VADATA,HLFS,1)=SEGMENT)&($P($P(VADATA,HLFS,PIECE),VAC,1)=CODE) S VADONE=1 K VADC(VANODE)
  1. Q:$D(VADONE) $G(VADATA)
  1. Q ""
  1. SEG1(SEGMENT,PIECE,CODE) ;Return segment from VADC array
  1. N VANODE,VADATA,VADONE K VADONE
  1. S VANODE=0
  1. F S VANODE=$O(VADC(VANODE)) Q:VANODE=""!($D(VADONE)) D
  1. .S VADATA=VADC(VANODE)
  1. .I ($P(VADATA,HLFS,1)=SEGMENT) S VADONE=1
  1. Q:$D(VADONE) $G(VADATA)
  1. Q ""
  1. INITIZE(HLDA) ;Initialize VADC array with incoming message
  1. N VANODE S VANODE=0
  1. F S VANODE=$O(^HL(772,HLDA,"IN",VANODE)) Q:VANODE'>0 D
  1. .S VADC(VANODE)=^HL(772,HLDA,"IN",VANODE,0)
  1. Q
  1. INIT1 ;
  1. F I=1:1 X HLNEXT Q:HLQUIT'>0 S X(I)=HLNODE MERGE X(I)=HLNODE
  1. MERGE VADC=X
  1. Q
  1. SSNDFN(SSN) ;Input ssn output DFN
  1. Q:$G(SSN)="" -1
  1. S DFN=$O(^DPT("SSN",+SSN,0))
  1. Q:$L(DFN) DFN
  1. S DFN=$O(^DPT("SSN",SSN,0))
  1. Q:$L(DFN) DFN
  1. Q -1