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

DGVTSA28.m

Go to the documentation of this file.
  1. DGVTSA28 ;7DELTA/KDC - VTS Stand alone Option routine ;07-MAR-2012
  1. ;;5.3;REGISTRATION;**853**;07-MAR-2012;Build 104
  1. ;
  1. ; Integration Agreements Utilized:
  1. ; START, EXC, STOP^RGHLLOG - #2796
  1. ; BLDEVN, BLDPD1, BLDPID^VAFCQRY - #3630
  1. ;
  1. A28(DFN) ;BUILD AND SEND A28
  1. N RESLT,CNT,MPI,EVN,TCNT,ERR,PD1,PID
  1. N HL,MTIEN,HLDT,HLDT1,HLL,HLMID,HLNEXT
  1. K HLA("HLA"),HLA("HLS")
  1. S CNT=1
  1. D INIT^HLFNC2("DG VTS ADT-A28 SERVER",.HL)
  1. I $O(HL(""))="" Q "-1^"_$P(HL,"^",2)
  1. S HLECH=HL("ECH"),HLFS=HL("FS"),COMP=$E(HL("ECH"),1),REP=$E(HL("ECH"),2),SUBCOMP=$E(HL("ECH"),4)
  1. D CREATE^HLTF(.HLMID,.MTIEN,.HLDT,.HLDT1)
  1. S ERR="",TCNT=0
  1. N NODE
  1. S EVN(1)=$$EVN^VAFHLEVN("A28",4,)
  1. Q:ERR'="" ERR
  1. D BLDPID^VAFCQRY(DFN,1,"ALL",.PID,.HL,.ERR)
  1. Q:ERR'="" ERR
  1. S PD1(1)=$$EN^VAFHLPD1(DFN,",3,")
  1. Q:ERR'="" ERR
  1. S HLA("HLS",1)=EVN(1)
  1. S HLA("HLS",3)=PD1(1)
  1. S CNT=0 F S CNT=$O(PID(CNT)) Q:CNT="" D
  1. .I CNT=1 S HLA("HLS",2)=PID(CNT)
  1. .I CNT>1 S HLA("HLS",2,CNT-1)=PID(CNT)
  1. S HLA("HLS",4)=$$EN1^VAFHLZPD(DFN,"1,17,21,34")
  1. S HLL("LINKS",1)="DG VTS ADT-A28 CLIENT^AITC_VTS"
  1. D GENERATE^HLMA("DG VTS ADT-A28 SERVER","LM",1,.RESLT,MTIEN)
  1. K HLA,HLEID,HLL("LINKS"),COMP,REP,SUBCOMP,HLECH,HLFS,HLA("HLA"),HLA("HLS"),MPIFRSLT
  1. Q