source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53739P.m@ 619

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

initial load of WorldVistAEHR
File size: 1.6 KB
RevLine 
[613]1DG53739P ;ALB/DHH - post-install for DG*5.3*739 ; 1/18/07 9:42am
2 ;;5.3;Registration;**739**;Aug 13, 1993;Build 5
3EN ;
4 ;FIND SERVER
5 N DGI,DGPROT,DA,Y,DIC,X,DGS,DIK
6 F DGI=1:1 S DGPROT=$P($T(PROT+DGI),";;",2) Q:DGPROT="QUIT" D
7 . S X=$P(DGPROT,"^")
8 . S DIC="^ORD(101," D ^DIC Q:+Y'>0 D
9 .. S DGS=+Y D ITEM
10 .. I +Y'>0&(DGPROT'["A19") D MES^XPDUTL(" "_$P(DGPROT,"^",2)_" client item was not found!!!")
11 .. S X=$P(DGPROT,"^",2),DIC="^ORD(101,"_DGS_",775," D ^DIC Q:+Y'>0 D
12 ... S DA(1)=DGS,DA=+Y,DIK="^ORD(101,"_DA(1)_",775," D ^DIK S Y=1
13 ... D MES^XPDUTL(" "_$P(DGPROT,"^",2)_" client subscriber deleted ")
14 . I Y'>0 D MES^XPDUTL(" "_$P(DGPROT,"^",2)_" client subscriber not found !!!")
15 I +Y'>0&(DGPROT'="QUIT") D MES^XPDUTL(" "_$P(DGPROT,"^",1)_" server protocol not found!!!")
16 Q
17 ;
18ITEM ;Remove item entry from server protocol
19 S DIC="^ORD(101,"_DGS_",10,",X=$P(DGPROT,"^",2) D ^DIC Q:+Y'>0 D
20 . S DA=+Y,DA(1)=DGS,DIK="^ORD(101,"_DA(1)_",10," D ^DIK S Y=1
21 . D MES^XPDUTL(" "_$P(DGPROT,"^",2)_" client item has been deleted from "_$P(DGPROT,"^")_" server protocol")
22 Q
23 ;
24PROT ;Protocol (Server)^Protocol (Subscriber)
25 ;;VAFC ADT-A01 SERVER^DG PTF ADT-A01 CLIENT
26 ;;VAFC ADT-A02 SERVER^DG PTF ADT-A02 CLIENT
27 ;;VAFC ADT-A03 SERVER^DG PTF ADT-A03 CLIENT
28 ;;VAFC ADT-A04 SERVER^DG PTF ADT-A04 CLIENT
29 ;;VAFC ADT-A08 SERVER^DG PTF ADT-A08 CLIENT
30 ;;VAFC ADT-A08-TSP SERVER^DG PTF ADT-A08-TSP CLIENT
31 ;;VAFC ADT-A11 SERVER^DG PTF ADT-A11 CLIENT
32 ;;VAFC ADT-A12 SERVER^DG PTF ADT-A12 CLIENT
33 ;;VAFC ADT-A13 SERVER^DG PTF ADT-A13 CLIENT
34 ;;VAFC ADT-A19 SERVER^DG PTF ADT-A19 CLIENT
35 ;;QUIT
36 ;
Note: See TracBrowser for help on using the repository browser.