source: FOIAVistA/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGADTPC.m@ 1245

Last change on this file since 1245 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 529 bytes
Line 
1RGADTPC ;BIR/DLR-Continuation of RGADTP routine ;9/19/02
2 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**26**;30 Apr 99
3 ;
4 ;Reference to $$A31^MPIFA31B supported by IA #3765
5 ;Reference to ^ORD(101 supported by IA #872
6 ;
7MPISYN ;
8 S:$D(ZTQUEUED) ZTREQ="@"
9 S ERR=$$A31^MPIFA31B(DFN)
10 K DFN,ERR
11 Q
12SEND ;
13 S:$D(ZTQUEUED) ZTREQ="@"
14 N EID
15 S EID=$O(^ORD(101,"B","RG ADT-"_RGEVNT_" 2.4 SERVER",0))
16 N HL,INT,HLP,HLRESLT,ARRAY
17 S HL="HL",INT=0
18 D INIT^HLFNC2(EID,.HL,INT)
19 D GENERATE^HLMA(EID,"LM",1,.HLRESLT,"",.HLP)
20 K DFN,HLA,RGEVNT
21 Q
Note: See TracBrowser for help on using the repository browser.