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

Last change on this file since 1238 was 1187, checked in by Sam Habiel, 14 years ago

Changes to BSDX01 to prevent Scheduled,dc'ed,completed radiology appointments from being cancelled. Updated files to T2.

File size: 2.2 KB
RevLine 
[1161]1BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am
[1187]2 ;;1.6T2;BSDX;;May 16, 2011
[1161]3 ; Licensed under LGPL
[614]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.