| 1 | BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
|
|---|
| 2 | ;;1.5;BSDX;;Apr 28, 2011
|
|---|
| 3 | ; Licensed under LGPL
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | DELRGID(BSDXY,BSDXIEN) ;EP
|
|---|
| 7 | ;Entry point for debugging
|
|---|
| 8 | ;
|
|---|
| 9 | ;D DEBUG^%Serenji("DELRGI^BSDX20(.BSDXY,BSDXIEN)")
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | DELRGI(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 | ;
|
|---|
| 36 | ADDRGID(BSDXY,BSDXIEN,BSDXIEN1) ;EP
|
|---|
| 37 | ;Entry point for debugging
|
|---|
| 38 | ;
|
|---|
| 39 | ;D DEBUG^%Serenji("ADDRGI^BSDX20(.BSDXY,BSDXIEN,BSDXIEN1)")
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | ADDRGI(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 | ;
|
|---|
| 69 | ERR(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 | ;
|
|---|
| 76 | ETRAP ;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
|
|---|
