DG53P526 ;BAY/JAT - ADD RESOURCE DEVICE ; 6/3/03 3:26pm
;;5.3;Registration;**526**;AUG 13,1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P526 588 printed Dec 13, 2024@02:39:46 Page 2
DG53P526 ;BAY/JAT - ADD RESOURCE DEVICE ; 6/3/03 3:26pm
+1 ;;5.3;Registration;**526**;AUG 13,1993
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
