source: Scheduling/trunk/m/BSDX20.m@ 1484

Last change on this file since 1484 was 1481, checked in by Sam Habiel, 12 years ago

Updated routine version numbers to 1.7T2.
Changes the Writes in the post-init to MESXPDUTL in BSDX2E.
Changed the check for BMX to be for BMX 4 rather than BMX 2.

File size: 2.2 KB
Line 
1BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
2 ;;1.7T2;BSDX;;Jul 11, 2012;Build 18
3 ; Licensed under LGPL
4 ;
5 ;
6DELRGID(BSDXY,BSDXIEN) ;EP
7 ;Entry point for debugging
8 ;
9 ;D DEBUG^%Serenji("DELRGI^BSDX20(.BSDXY,BSDXIEN)")
10 Q
11 ;
12DELRGI(BSDXY,BSDXIEN,BSDXIEN1) ;EP
13 ;Deletes entry BSDXIEN1 from entry BSDXIEN in the RESOURCE GROUP file
14 ;Return recordset containing error message or "" if no error
15 ;Called by BSDX DELETE RES GROUP ITEM
16 ;Test Line:
17 ;D DELRU^BSDX18(.RES,99)
18 ;
19 N BSDXI,DIK,DA
20 S BSDXI=0
21 S BSDXY="^BSDXTMP("_$J_")"
22 S ^BSDXTMP($J,0)="I00020RESOURCEGROUPID^I00020ERRORID"_$C(30)
23 I '+BSDXIEN D ERR(BSDXI,BSDXIEN,70) Q
24 I '+BSDXIEN1 D ERR(BSDXI,BSDXIEN,70) Q
25 I '$D(^BSDXDEPT(BSDXIEN,1,BSDXIEN1,0)) D ERR(BSDXI,BSDXIEN,70) Q
26 ;
27 ;Delete entry BSDXIEN1
28 S DIK="^BSDXDEPT("_BSDXIEN_",1,"
29 S DA=BSDXIEN1,DA(1)=BSDXIEN
30 D ^DIK
31 ;
32 S BSDXI=BSDXI+1
33 S ^BSDXTMP($J,BSDXI)=BSDXIEN_"^"_"-1"_$C(30)_$C(31)
34 Q
35 ;
36ADDRGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP
37 ;Entry point for debugging
38 ;
39 ;D DEBUG^%Serenji("ADDRGI^BSDX20(.BSDXY,BSDXIEN,BSDXIEN1)")
40 Q
41 ;
42ADDRGI(BSDXY,BSDXIEN,BSDXIEN1) ;EP
43 ;Adds RESOURCEID BSEDXIEN1 to RESOURCE GROUP entry BSDXIEN
44 ;Return recordset containing added subentry number error message or "" if no error
45 ;Called by BSDX ADD RES GROUP ITEM
46 ;Test Line:
47 ;D ADDRGI^BSDX20(.RES,1,1)
48 ;
49 N BSDXI,BSDXIENS,BSDXMSG,BSDXFDA
50 S X="ETRAP^BSDX20",@^%ZOSF("TRAP")
51 S BSDXI=0
52 S BSDXY="^BSDXTMP("_$J_")"
53 S ^BSDXTMP($J,0)="I00020RESOURCEGROUPITEMID^I00020ERRORID"_$C(30)
54 I '+BSDXIEN D ERR(BSDXI,BSDXIEN,70) Q
55 I '+BSDXIEN1 D ERR(BSDXI,BSDXIEN,70) Q
56 I '$D(^BSDXDEPT(BSDXIEN,0)) D ERR(BSDXI,BSDXIEN,70) Q
57 I '$D(^BSDXRES(BSDXIEN1,0)) D ERR(BSDXI,BSDXIEN1,70) Q
58 I $D(^BSDXDEPT(BSDXIEN,1,"B",BSDXIEN1)) D ERR(BSDXI,0,0) Q
59 ;^BSDXDEPT(3,1,"B",3,1)=
60 ;
61 S BSDXIENS="+1,"_BSDXIEN_","
62 S BSDXFDA(9002018.21,BSDXIENS,.01)=BSDXIEN1 ;RESOURCEID
63 K BSDXIEN
64 D UPDATE^DIE("","BSDXFDA","BSDXIEN","BSDXMSG")
65 S BSDXI=BSDXI+1
66 S ^BSDXTMP($J,BSDXI)=+$G(BSDXIEN(1))_"^"_"-1"_$C(30)_$C(31)
67 Q
68 ;
69ERR(BSDXI,BSDXID,BSDXERR) ;Error processing
70 S BSDXI=BSDXI+1
71 S ^BSDXTMP($J,BSDXI)=BSDXID_"^"_BSDXERR_$C(30)
72 S BSDXI=BSDXI+1
73 S ^BSDXTMP($J,BSDXI)=$C(31)
74 Q
75 ;
76ETRAP ;EP Error trap entry
77 I '$D(BSDXI) N BSDXI S BSDXI=999
78 S BSDXI=BSDXI+1
79 D ERR(BSDXI,99,70)
80 Q
Note: See TracBrowser for help on using the repository browser.