DG53P526.m

DG53P526 ;BAY/JAT - ADD RESOURCE DEVICE ; 6/3/03 3:26pm

 ;;5.3;Registration;**526,1015**;AUG 13,1993 ;Build 21

EN ; pre-init

 N DIC,DGLOC,DGNAME,DGI,DGSLOTS,DGTYP,DGSUBTYP,X

 D BMES^XPDUTL(">>>Adding Resource Device")

 S DIC=3.5

 S DIC(0)="L"

 S DGLOC="DG field editing protocol"

 S (DGNAME,DGI)="DG FIELD MONITOR"

 S DGSLOTS=9

 S DGTYP="RESOURCES"

 S DGSUBTYP="P-OTHER"

 S DIC("DR")=".02///"_DGLOC_";1///"_DGNAME_";2///"_DGTYP_";3///"_DGSUBTYP_";35///"_DGSLOTS

 S X=DGNAME

 I +$O(^%ZIS(1,"B",X,0)) Q

 K DO D FILE^DICN

 I Y=-1 Q

 D BMES^XPDUTL(">>>DG FIELD MONITOR device added")

 Q

DG53P526  ;BAY/JAT - ADD RESOURCE DEVICE ; 6/3/03 3:26pm

 +1       ;;5.3;Registration;**526,1015**;AUG 13,1993 ;Build 21

EN        ; pre-init

 +1        NEW DIC,DGLOC,DGNAME,DGI,DGSLOTS,DGTYP,DGSUBTYP,X

 +2        DO BMES^XPDUTL(">>>Adding Resource Device")

 +3        SET DIC=3.5

 +4        SET DIC(0)="L"

 +5        SET DGLOC="DG field editing protocol"

 +6        SET (DGNAME,DGI)="DG FIELD MONITOR"

 +7        SET DGSLOTS=9

 +8        SET DGTYP="RESOURCES"

 +9        SET DGSUBTYP="P-OTHER"

 +10       SET DIC("DR")=".02///"_DGLOC_";1///"_DGNAME_";2///"_DGTYP_";3///"_DGSUBTYP_";35///"_DGSLOTS

 +11       SET X=DGNAME

 +12       IF +$ORDER(^%ZIS(1,"B",X,0))

               QUIT 

 +13       KILL DO

           DO FILE^DICN

 +14       IF Y=-1

               QUIT 

 +15       DO BMES^XPDUTL(">>>DG FIELD MONITOR device added")

 +16       QUIT