From 628b0f0a94a946bf109612424568fed6c0b1e397 Mon Sep 17 00:00:00 2001 From: sam Date: Wed, 29 Sep 2010 09:08:19 +0000 Subject: [PATCH] Updated KIDS build for version 1.41 --- kids/{BSDX_0140.k => BSDX_0141.k} | 2850 +++++++++++++++-------------- 1 file changed, 1484 insertions(+), 1366 deletions(-) rename kids/{BSDX_0140.k => BSDX_0141.k} (92%) diff --git a/kids/BSDX_0140.k b/kids/BSDX_0141.k similarity index 92% rename from kids/BSDX_0140.k rename to kids/BSDX_0141.k index 53c7faa..e74d1b6 100644 --- a/kids/BSDX_0140.k +++ b/kids/BSDX_0141.k @@ -1,571 +1,575 @@ -KIDS Distribution saved on Sep 07, 2010@09:38:21 -Windows Scheduling v 1.4 -**KIDS**:BSDX 1.4^ +KIDS Distribution saved on Sep 29, 2010@11:07:36 +WV Clinical Scheduling +**KIDS**:BSDX 1.41^ **INSTALL NAME** -BSDX 1.4 -"BLD",7652,0) -BSDX 1.4^IHS Windows Scheduling^^3100907^n -"BLD",7652,1,0) -^^1^1^3100618^^ -"BLD",7652,1,1,0) +BSDX 1.41 +"BLD",7915,0) +BSDX 1.41^IHS Windows Scheduling^^3100929^n +"BLD",7915,1,0) +^^1^1^3100929^^^^ +"BLD",7915,1,1,0) Clinical Scheduling M Server support routines, files, options and RPCs. -"BLD",7652,4,0) +"BLD",7915,4,0) ^9.64PA^9002018.5^9 -"BLD",7652,4,9002018.1,0) +"BLD",7915,4,9002018.1,0) 9002018.1 -"BLD",7652,4,9002018.1,222) +"BLD",7915,4,9002018.1,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.15,0) +"BLD",7915,4,9002018.15,0) 9002018.15 -"BLD",7652,4,9002018.15,222) +"BLD",7915,4,9002018.15,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.2,0) +"BLD",7915,4,9002018.2,0) 9002018.2 -"BLD",7652,4,9002018.2,222) +"BLD",7915,4,9002018.2,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.3,0) +"BLD",7915,4,9002018.3,0) 9002018.3 -"BLD",7652,4,9002018.3,222) +"BLD",7915,4,9002018.3,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.35,0) +"BLD",7915,4,9002018.35,0) 9002018.35 -"BLD",7652,4,9002018.35,222) +"BLD",7915,4,9002018.35,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.38,0) +"BLD",7915,4,9002018.38,0) 9002018.38 -"BLD",7652,4,9002018.38,222) +"BLD",7915,4,9002018.38,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.39,0) +"BLD",7915,4,9002018.39,0) 9002018.39 -"BLD",7652,4,9002018.39,222) +"BLD",7915,4,9002018.39,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.4,0) +"BLD",7915,4,9002018.4,0) 9002018.4 -"BLD",7652,4,9002018.4,222) +"BLD",7915,4,9002018.4,222) y^y^f^^n^^n^o^n -"BLD",7652,4,9002018.5,0) +"BLD",7915,4,9002018.5,0) 9002018.5 -"BLD",7652,4,9002018.5,222) +"BLD",7915,4,9002018.5,222) y^y^f^^n^^y^o^n -"BLD",7652,4,"B",9002018.1,9002018.1) +"BLD",7915,4,"B",9002018.1,9002018.1) -"BLD",7652,4,"B",9002018.15,9002018.15) +"BLD",7915,4,"B",9002018.15,9002018.15) -"BLD",7652,4,"B",9002018.2,9002018.2) +"BLD",7915,4,"B",9002018.2,9002018.2) -"BLD",7652,4,"B",9002018.3,9002018.3) +"BLD",7915,4,"B",9002018.3,9002018.3) -"BLD",7652,4,"B",9002018.35,9002018.35) +"BLD",7915,4,"B",9002018.35,9002018.35) -"BLD",7652,4,"B",9002018.38,9002018.38) +"BLD",7915,4,"B",9002018.38,9002018.38) -"BLD",7652,4,"B",9002018.39,9002018.39) +"BLD",7915,4,"B",9002018.39,9002018.39) -"BLD",7652,4,"B",9002018.4,9002018.4) +"BLD",7915,4,"B",9002018.4,9002018.4) -"BLD",7652,4,"B",9002018.5,9002018.5) +"BLD",7915,4,"B",9002018.5,9002018.5) -"BLD",7652,6.3) -7 -"BLD",7652,"ABPKG") +"BLD",7915,6.3) +8 +"BLD",7915,"ABPKG") n -"BLD",7652,"INIT") +"BLD",7915,"INIT") V0200^BSDX2E -"BLD",7652,"KRN",0) -^9.67PA^8989.52^19 -"BLD",7652,"KRN",.4,0) +"BLD",7915,"KRN",0) +^9.67PA^779.2^20 +"BLD",7915,"KRN",.4,0) .4 -"BLD",7652,"KRN",.4,"NM",0) +"BLD",7915,"KRN",.4,"NM",0) ^9.68A^^ -"BLD",7652,"KRN",.401,0) +"BLD",7915,"KRN",.401,0) .401 -"BLD",7652,"KRN",.402,0) +"BLD",7915,"KRN",.402,0) .402 -"BLD",7652,"KRN",.403,0) +"BLD",7915,"KRN",.403,0) .403 -"BLD",7652,"KRN",.5,0) +"BLD",7915,"KRN",.5,0) .5 -"BLD",7652,"KRN",.84,0) +"BLD",7915,"KRN",.84,0) .84 -"BLD",7652,"KRN",3.6,0) +"BLD",7915,"KRN",3.6,0) 3.6 -"BLD",7652,"KRN",3.8,0) +"BLD",7915,"KRN",3.8,0) 3.8 -"BLD",7652,"KRN",9.2,0) +"BLD",7915,"KRN",9.2,0) 9.2 -"BLD",7652,"KRN",9.8,0) +"BLD",7915,"KRN",9.8,0) 9.8 -"BLD",7652,"KRN",9.8,"NM",0) +"BLD",7915,"KRN",9.8,"NM",0) ^9.68A^36^36 -"BLD",7652,"KRN",9.8,"NM",1,0) -BSDX01^^0^B69101782 -"BLD",7652,"KRN",9.8,"NM",2,0) +"BLD",7915,"KRN",9.8,"NM",1,0) +BSDX01^^0^B107139484 +"BLD",7915,"KRN",9.8,"NM",2,0) BSDX02^^0^B16323271 -"BLD",7652,"KRN",9.8,"NM",3,0) +"BLD",7915,"KRN",9.8,"NM",3,0) BSDX03^^0^B2855259 -"BLD",7652,"KRN",9.8,"NM",4,0) +"BLD",7915,"KRN",9.8,"NM",4,0) BSDX04^^0^B31079316 -"BLD",7652,"KRN",9.8,"NM",5,0) +"BLD",7915,"KRN",9.8,"NM",5,0) BSDX05^^0^B6801706 -"BLD",7652,"KRN",9.8,"NM",6,0) +"BLD",7915,"KRN",9.8,"NM",6,0) BSDX06^^0^B6812445 -"BLD",7652,"KRN",9.8,"NM",7,0) +"BLD",7915,"KRN",9.8,"NM",7,0) BSDX07^^0^B78302774 -"BLD",7652,"KRN",9.8,"NM",8,0) -BSDX08^^0^B36863482 -"BLD",7652,"KRN",9.8,"NM",9,0) +"BLD",7915,"KRN",9.8,"NM",8,0) +BSDX08^^0^B36787520 +"BLD",7915,"KRN",9.8,"NM",9,0) BSDX09^^0^B34793207 -"BLD",7652,"KRN",9.8,"NM",10,0) +"BLD",7915,"KRN",9.8,"NM",10,0) BSDX12^^0^B7203579 -"BLD",7652,"KRN",9.8,"NM",11,0) +"BLD",7915,"KRN",9.8,"NM",11,0) BSDX13^^0^B9753753 -"BLD",7652,"KRN",9.8,"NM",12,0) +"BLD",7915,"KRN",9.8,"NM",12,0) BSDX14^^0^B6450810 -"BLD",7652,"KRN",9.8,"NM",13,0) +"BLD",7915,"KRN",9.8,"NM",13,0) BSDX15^^0^B5327807 -"BLD",7652,"KRN",9.8,"NM",14,0) +"BLD",7915,"KRN",9.8,"NM",14,0) BSDX16^^0^B11948965 -"BLD",7652,"KRN",9.8,"NM",15,0) +"BLD",7915,"KRN",9.8,"NM",15,0) BSDX17^^0^B2072173 -"BLD",7652,"KRN",9.8,"NM",16,0) +"BLD",7915,"KRN",9.8,"NM",16,0) BSDX18^^0^B87953431 -"BLD",7652,"KRN",9.8,"NM",17,0) +"BLD",7915,"KRN",9.8,"NM",17,0) BSDX19^^0^B7890401 -"BLD",7652,"KRN",9.8,"NM",18,0) +"BLD",7915,"KRN",9.8,"NM",18,0) BSDX20^^0^B5911607 -"BLD",7652,"KRN",9.8,"NM",19,0) +"BLD",7915,"KRN",9.8,"NM",19,0) BSDX21^^0^B8672065 -"BLD",7652,"KRN",9.8,"NM",20,0) +"BLD",7915,"KRN",9.8,"NM",20,0) BSDX22^^0^B9479861 -"BLD",7652,"KRN",9.8,"NM",21,0) +"BLD",7915,"KRN",9.8,"NM",21,0) BSDX23^^0^B8488013 -"BLD",7652,"KRN",9.8,"NM",22,0) +"BLD",7915,"KRN",9.8,"NM",22,0) BSDX24^^0^B13455014 -"BLD",7652,"KRN",9.8,"NM",23,0) +"BLD",7915,"KRN",9.8,"NM",23,0) BSDX25^^0^B16070744 -"BLD",7652,"KRN",9.8,"NM",24,0) +"BLD",7915,"KRN",9.8,"NM",24,0) BSDX26^^0^B3226136 -"BLD",7652,"KRN",9.8,"NM",25,0) +"BLD",7915,"KRN",9.8,"NM",25,0) BSDX27^^0^B97105556 -"BLD",7652,"KRN",9.8,"NM",26,0) +"BLD",7915,"KRN",9.8,"NM",26,0) BSDX28^^0^B32389827 -"BLD",7652,"KRN",9.8,"NM",27,0) +"BLD",7915,"KRN",9.8,"NM",27,0) BSDX29^^0^B39369778 -"BLD",7652,"KRN",9.8,"NM",28,0) +"BLD",7915,"KRN",9.8,"NM",28,0) BSDX30^^0^B6616255 -"BLD",7652,"KRN",9.8,"NM",29,0) +"BLD",7915,"KRN",9.8,"NM",29,0) BSDX31^^0^B23243257 -"BLD",7652,"KRN",9.8,"NM",30,0) -BSDX32^^0^B16265931 -"BLD",7652,"KRN",9.8,"NM",31,0) +"BLD",7915,"KRN",9.8,"NM",30,0) +BSDX32^^0^B17196738 +"BLD",7915,"KRN",9.8,"NM",31,0) BSDX33^^0^B14923306 -"BLD",7652,"KRN",9.8,"NM",32,0) +"BLD",7915,"KRN",9.8,"NM",32,0) BSDX34^^0^B43182525 -"BLD",7652,"KRN",9.8,"NM",33,0) +"BLD",7915,"KRN",9.8,"NM",33,0) BSDX35^^0^B8147998 -"BLD",7652,"KRN",9.8,"NM",34,0) +"BLD",7915,"KRN",9.8,"NM",34,0) BSDX11^^0^B6358791 -"BLD",7652,"KRN",9.8,"NM",35,0) -BSDXAPI^^0^B77865705 -"BLD",7652,"KRN",9.8,"NM",36,0) +"BLD",7915,"KRN",9.8,"NM",35,0) +BSDXAPI^^0^B85422550 +"BLD",7915,"KRN",9.8,"NM",36,0) BSDXGPRV^^0^B6645474 -"BLD",7652,"KRN",9.8,"NM","B","BSDX01",1) +"BLD",7915,"KRN",9.8,"NM","B","BSDX01",1) -"BLD",7652,"KRN",9.8,"NM","B","BSDX02",2) +"BLD",7915,"KRN",9.8,"NM","B","BSDX02",2) -"BLD",7652,"KRN",9.8,"NM","B","BSDX03",3) +"BLD",7915,"KRN",9.8,"NM","B","BSDX03",3) -"BLD",7652,"KRN",9.8,"NM","B","BSDX04",4) +"BLD",7915,"KRN",9.8,"NM","B","BSDX04",4) -"BLD",7652,"KRN",9.8,"NM","B","BSDX05",5) +"BLD",7915,"KRN",9.8,"NM","B","BSDX05",5) -"BLD",7652,"KRN",9.8,"NM","B","BSDX06",6) +"BLD",7915,"KRN",9.8,"NM","B","BSDX06",6) -"BLD",7652,"KRN",9.8,"NM","B","BSDX07",7) +"BLD",7915,"KRN",9.8,"NM","B","BSDX07",7) -"BLD",7652,"KRN",9.8,"NM","B","BSDX08",8) +"BLD",7915,"KRN",9.8,"NM","B","BSDX08",8) -"BLD",7652,"KRN",9.8,"NM","B","BSDX09",9) +"BLD",7915,"KRN",9.8,"NM","B","BSDX09",9) -"BLD",7652,"KRN",9.8,"NM","B","BSDX11",34) +"BLD",7915,"KRN",9.8,"NM","B","BSDX11",34) -"BLD",7652,"KRN",9.8,"NM","B","BSDX12",10) +"BLD",7915,"KRN",9.8,"NM","B","BSDX12",10) -"BLD",7652,"KRN",9.8,"NM","B","BSDX13",11) +"BLD",7915,"KRN",9.8,"NM","B","BSDX13",11) -"BLD",7652,"KRN",9.8,"NM","B","BSDX14",12) +"BLD",7915,"KRN",9.8,"NM","B","BSDX14",12) -"BLD",7652,"KRN",9.8,"NM","B","BSDX15",13) +"BLD",7915,"KRN",9.8,"NM","B","BSDX15",13) -"BLD",7652,"KRN",9.8,"NM","B","BSDX16",14) +"BLD",7915,"KRN",9.8,"NM","B","BSDX16",14) -"BLD",7652,"KRN",9.8,"NM","B","BSDX17",15) +"BLD",7915,"KRN",9.8,"NM","B","BSDX17",15) -"BLD",7652,"KRN",9.8,"NM","B","BSDX18",16) +"BLD",7915,"KRN",9.8,"NM","B","BSDX18",16) -"BLD",7652,"KRN",9.8,"NM","B","BSDX19",17) +"BLD",7915,"KRN",9.8,"NM","B","BSDX19",17) -"BLD",7652,"KRN",9.8,"NM","B","BSDX20",18) +"BLD",7915,"KRN",9.8,"NM","B","BSDX20",18) -"BLD",7652,"KRN",9.8,"NM","B","BSDX21",19) +"BLD",7915,"KRN",9.8,"NM","B","BSDX21",19) -"BLD",7652,"KRN",9.8,"NM","B","BSDX22",20) +"BLD",7915,"KRN",9.8,"NM","B","BSDX22",20) -"BLD",7652,"KRN",9.8,"NM","B","BSDX23",21) +"BLD",7915,"KRN",9.8,"NM","B","BSDX23",21) -"BLD",7652,"KRN",9.8,"NM","B","BSDX24",22) +"BLD",7915,"KRN",9.8,"NM","B","BSDX24",22) -"BLD",7652,"KRN",9.8,"NM","B","BSDX25",23) +"BLD",7915,"KRN",9.8,"NM","B","BSDX25",23) -"BLD",7652,"KRN",9.8,"NM","B","BSDX26",24) +"BLD",7915,"KRN",9.8,"NM","B","BSDX26",24) -"BLD",7652,"KRN",9.8,"NM","B","BSDX27",25) +"BLD",7915,"KRN",9.8,"NM","B","BSDX27",25) -"BLD",7652,"KRN",9.8,"NM","B","BSDX28",26) +"BLD",7915,"KRN",9.8,"NM","B","BSDX28",26) -"BLD",7652,"KRN",9.8,"NM","B","BSDX29",27) +"BLD",7915,"KRN",9.8,"NM","B","BSDX29",27) -"BLD",7652,"KRN",9.8,"NM","B","BSDX30",28) +"BLD",7915,"KRN",9.8,"NM","B","BSDX30",28) -"BLD",7652,"KRN",9.8,"NM","B","BSDX31",29) +"BLD",7915,"KRN",9.8,"NM","B","BSDX31",29) -"BLD",7652,"KRN",9.8,"NM","B","BSDX32",30) +"BLD",7915,"KRN",9.8,"NM","B","BSDX32",30) -"BLD",7652,"KRN",9.8,"NM","B","BSDX33",31) +"BLD",7915,"KRN",9.8,"NM","B","BSDX33",31) -"BLD",7652,"KRN",9.8,"NM","B","BSDX34",32) +"BLD",7915,"KRN",9.8,"NM","B","BSDX34",32) -"BLD",7652,"KRN",9.8,"NM","B","BSDX35",33) +"BLD",7915,"KRN",9.8,"NM","B","BSDX35",33) -"BLD",7652,"KRN",9.8,"NM","B","BSDXAPI",35) +"BLD",7915,"KRN",9.8,"NM","B","BSDXAPI",35) -"BLD",7652,"KRN",9.8,"NM","B","BSDXGPRV",36) +"BLD",7915,"KRN",9.8,"NM","B","BSDXGPRV",36) -"BLD",7652,"KRN",19,0) +"BLD",7915,"KRN",19,0) 19 -"BLD",7652,"KRN",19,"NM",0) +"BLD",7915,"KRN",19,"NM",0) ^9.68A^1^1 -"BLD",7652,"KRN",19,"NM",1,0) +"BLD",7915,"KRN",19,"NM",1,0) BSDXRPC^^0 -"BLD",7652,"KRN",19,"NM","B","BSDXRPC",1) +"BLD",7915,"KRN",19,"NM","B","BSDXRPC",1) -"BLD",7652,"KRN",19.1,0) +"BLD",7915,"KRN",19.1,0) 19.1 -"BLD",7652,"KRN",19.1,"NM",0) +"BLD",7915,"KRN",19.1,"NM",0) ^9.68A^2^2 -"BLD",7652,"KRN",19.1,"NM",1,0) +"BLD",7915,"KRN",19.1,"NM",1,0) BSDXZMENU^^0 -"BLD",7652,"KRN",19.1,"NM",2,0) +"BLD",7915,"KRN",19.1,"NM",2,0) BSDXZMGR^^0 -"BLD",7652,"KRN",19.1,"NM","B","BSDXZMENU",1) +"BLD",7915,"KRN",19.1,"NM","B","BSDXZMENU",1) -"BLD",7652,"KRN",19.1,"NM","B","BSDXZMGR",2) +"BLD",7915,"KRN",19.1,"NM","B","BSDXZMGR",2) -"BLD",7652,"KRN",101,0) +"BLD",7915,"KRN",101,0) 101 -"BLD",7652,"KRN",101,"NM",0) +"BLD",7915,"KRN",101,"NM",0) ^9.68A^4^4 -"BLD",7652,"KRN",101,"NM",1,0) +"BLD",7915,"KRN",101,"NM",1,0) BSDX ADD APPOINTMENT^^0 -"BLD",7652,"KRN",101,"NM",2,0) +"BLD",7915,"KRN",101,"NM",2,0) BSDX CANCEL APPOINTMENT^^0 -"BLD",7652,"KRN",101,"NM",3,0) +"BLD",7915,"KRN",101,"NM",3,0) BSDX CHECKIN APPOINTMENT^^0 -"BLD",7652,"KRN",101,"NM",4,0) +"BLD",7915,"KRN",101,"NM",4,0) BSDX NOSHOW APPOINTMENT^^0 -"BLD",7652,"KRN",101,"NM","B","BSDX ADD APPOINTMENT",1) +"BLD",7915,"KRN",101,"NM","B","BSDX ADD APPOINTMENT",1) -"BLD",7652,"KRN",101,"NM","B","BSDX CANCEL APPOINTMENT",2) +"BLD",7915,"KRN",101,"NM","B","BSDX CANCEL APPOINTMENT",2) -"BLD",7652,"KRN",101,"NM","B","BSDX CHECKIN APPOINTMENT",3) +"BLD",7915,"KRN",101,"NM","B","BSDX CHECKIN APPOINTMENT",3) -"BLD",7652,"KRN",101,"NM","B","BSDX NOSHOW APPOINTMENT",4) +"BLD",7915,"KRN",101,"NM","B","BSDX NOSHOW APPOINTMENT",4) -"BLD",7652,"KRN",409.61,0) +"BLD",7915,"KRN",409.61,0) 409.61 -"BLD",7652,"KRN",771,0) +"BLD",7915,"KRN",771,0) 771 -"BLD",7652,"KRN",870,0) +"BLD",7915,"KRN",779.2,0) +779.2 +"BLD",7915,"KRN",870,0) 870 -"BLD",7652,"KRN",8989.51,0) +"BLD",7915,"KRN",8989.51,0) 8989.51 -"BLD",7652,"KRN",8989.52,0) +"BLD",7915,"KRN",8989.52,0) 8989.52 -"BLD",7652,"KRN",8994,0) +"BLD",7915,"KRN",8994,0) 8994 -"BLD",7652,"KRN",8994,"NM",0) +"BLD",7915,"KRN",8994,"NM",0) ^9.68A^59^56 -"BLD",7652,"KRN",8994,"NM",1,0) +"BLD",7915,"KRN",8994,"NM",1,0) BSDX ADD NEW APPOINTMENT^^0 -"BLD",7652,"KRN",8994,"NM",2,0) +"BLD",7915,"KRN",8994,"NM",2,0) BSDX ADD NEW AVAILABILITY^^0 -"BLD",7652,"KRN",8994,"NM",3,0) +"BLD",7915,"KRN",8994,"NM",3,0) BSDX APPT BLOCKS OVERLAP^^0 -"BLD",7652,"KRN",8994,"NM",4,0) +"BLD",7915,"KRN",8994,"NM",4,0) BSDX CANCEL APPOINTMENT^^0 -"BLD",7652,"KRN",8994,"NM",5,0) +"BLD",7915,"KRN",8994,"NM",5,0) BSDX CANCEL AVAILABILITY^^0 -"BLD",7652,"KRN",8994,"NM",6,0) +"BLD",7915,"KRN",8994,"NM",6,0) BSDX CREATE APPT SCHEDULE^^0 -"BLD",7652,"KRN",8994,"NM",7,0) +"BLD",7915,"KRN",8994,"NM",7,0) BSDX CREATE ASGND SLOT SCHED^^0 -"BLD",7652,"KRN",8994,"NM",10,0) +"BLD",7915,"KRN",8994,"NM",10,0) BSDX GET BASIC REG INFO^^0 -"BLD",7652,"KRN",8994,"NM",12,0) +"BLD",7915,"KRN",8994,"NM",12,0) BSDX TYPE BLOCKS OVERLAP^^0 -"BLD",7652,"KRN",8994,"NM",13,0) +"BLD",7915,"KRN",8994,"NM",13,0) BSDX ADD/EDIT ACCESS TYPE^^0 -"BLD",7652,"KRN",8994,"NM",14,0) +"BLD",7915,"KRN",8994,"NM",14,0) BSDX GET ACCESS GROUP TYPES^^0 -"BLD",7652,"KRN",8994,"NM",15,0) +"BLD",7915,"KRN",8994,"NM",15,0) BSDX GROUP RESOURCE^^0 -"BLD",7652,"KRN",8994,"NM",16,0) +"BLD",7915,"KRN",8994,"NM",16,0) BSDX RESOURCE GROUPS BY USER^^0 -"BLD",7652,"KRN",8994,"NM",17,0) +"BLD",7915,"KRN",8994,"NM",17,0) BSDX ADD/EDIT RESOURCEUSER^^0 -"BLD",7652,"KRN",8994,"NM",18,0) +"BLD",7915,"KRN",8994,"NM",18,0) BSDX DELETE RESOURCEUSER^^0 -"BLD",7652,"KRN",8994,"NM",19,0) +"BLD",7915,"KRN",8994,"NM",19,0) BSDX SCHEDULE USER^^0 -"BLD",7652,"KRN",8994,"NM",20,0) +"BLD",7915,"KRN",8994,"NM",20,0) BSDX ADD/EDIT RESOURCE^^0 -"BLD",7652,"KRN",8994,"NM",21,0) +"BLD",7915,"KRN",8994,"NM",21,0) BSDX SCHEDULING USER INFO^^0 -"BLD",7652,"KRN",8994,"NM",22,0) +"BLD",7915,"KRN",8994,"NM",22,0) BSDX RESOURCES^^0 -"BLD",7652,"KRN",8994,"NM",23,0) +"BLD",7915,"KRN",8994,"NM",23,0) BSDX ADD/EDIT RESOURCE GROUP^^0 -"BLD",7652,"KRN",8994,"NM",24,0) +"BLD",7915,"KRN",8994,"NM",24,0) BSDX DELETE RESOURCE GROUP^^0 -"BLD",7652,"KRN",8994,"NM",25,0) +"BLD",7915,"KRN",8994,"NM",25,0) BSDX DELETE RES GROUP ITEM^^0 -"BLD",7652,"KRN",8994,"NM",26,0) +"BLD",7915,"KRN",8994,"NM",26,0) BSDX DEPARTMENT RESOURCE^^0 -"BLD",7652,"KRN",8994,"NM",27,0) +"BLD",7915,"KRN",8994,"NM",27,0) BSDX DEPARTMENTS BY USER^^0 -"BLD",7652,"KRN",8994,"NM",28,0) +"BLD",7915,"KRN",8994,"NM",28,0) BSDX RESOURCES BY USER^^0 -"BLD",7652,"KRN",8994,"NM",29,0) +"BLD",7915,"KRN",8994,"NM",29,0) BSDX ADD ACCESS GROUP ITEM^^0 -"BLD",7652,"KRN",8994,"NM",30,0) +"BLD",7915,"KRN",8994,"NM",30,0) BSDX ADD RES GROUP ITEM^^0 -"BLD",7652,"KRN",8994,"NM",31,0) +"BLD",7915,"KRN",8994,"NM",31,0) BSDX ADD/EDIT ACCESS GROUP^^0 -"BLD",7652,"KRN",8994,"NM",32,0) +"BLD",7915,"KRN",8994,"NM",32,0) BSDX DELETE ACCESS GROUP^^0 -"BLD",7652,"KRN",8994,"NM",33,0) +"BLD",7915,"KRN",8994,"NM",33,0) BSDX DELETE ACCESS GROUP ITEM^^0 -"BLD",7652,"KRN",8994,"NM",34,0) +"BLD",7915,"KRN",8994,"NM",34,0) BSDX REGISTER EVENT^^0 -"BLD",7652,"KRN",8994,"NM",35,0) +"BLD",7915,"KRN",8994,"NM",35,0) BSDX UNREGISTER EVENT^^0 -"BLD",7652,"KRN",8994,"NM",36,0) +"BLD",7915,"KRN",8994,"NM",36,0) BSDX RAISE EVENT^^0 -"BLD",7652,"KRN",8994,"NM",37,0) +"BLD",7915,"KRN",8994,"NM",37,0) BSDX SEARCH AVAILABILITY^^0 -"BLD",7652,"KRN",8994,"NM",38,0) +"BLD",7915,"KRN",8994,"NM",38,0) BSDX CHECKIN APPOINTMENT^^0 -"BLD",7652,"KRN",8994,"NM",39,0) +"BLD",7915,"KRN",8994,"NM",39,0) BSDX EDIT APPOINTMENT^^0 -"BLD",7652,"KRN",8994,"NM",40,0) +"BLD",7915,"KRN",8994,"NM",40,0) BSDX PATIENT APPT DISPLAY^^0 -"BLD",7652,"KRN",8994,"NM",41,0) +"BLD",7915,"KRN",8994,"NM",41,0) BSDXPatientLookupRS^^0 -"BLD",7652,"KRN",8994,"NM",42,0) +"BLD",7915,"KRN",8994,"NM",42,0) BSDX SPACEBAR SET^^0 -"BLD",7652,"KRN",8994,"NM",43,0) +"BLD",7915,"KRN",8994,"NM",43,0) BSDX COPY APPOINTMENT CANCEL^^0 -"BLD",7652,"KRN",8994,"NM",44,0) +"BLD",7915,"KRN",8994,"NM",44,0) BSDX COPY APPOINTMENT STATUS^^0 -"BLD",7652,"KRN",8994,"NM",45,0) +"BLD",7915,"KRN",8994,"NM",45,0) BSDX COPY APPOINTMENTS^^0 -"BLD",7652,"KRN",8994,"NM",46,0) +"BLD",7915,"KRN",8994,"NM",46,0) BSDX CLINIC LETTERS^^0 -"BLD",7652,"KRN",8994,"NM",47,0) +"BLD",7915,"KRN",8994,"NM",47,0) BSDX NOSHOW^^0 -"BLD",7652,"KRN",8994,"NM",48,0) +"BLD",7915,"KRN",8994,"NM",48,0) BSDX IM HERE^^0 -"BLD",7652,"KRN",8994,"NM",49,0) +"BLD",7915,"KRN",8994,"NM",49,0) BSDX HOSPITAL LOCATION^^0 -"BLD",7652,"KRN",8994,"NM",50,0) +"BLD",7915,"KRN",8994,"NM",50,0) BSDX CLINIC SETUP^^0 -"BLD",7652,"KRN",8994,"NM",51,0) +"BLD",7915,"KRN",8994,"NM",51,0) BSDX REBOOK LIST^^0 -"BLD",7652,"KRN",8994,"NM",52,0) +"BLD",7915,"KRN",8994,"NM",52,0) BSDX REBOOK CLINIC LIST^^0 -"BLD",7652,"KRN",8994,"NM",53,0) +"BLD",7915,"KRN",8994,"NM",53,0) BSDX REBOOK SET^^0 -"BLD",7652,"KRN",8994,"NM",54,0) +"BLD",7915,"KRN",8994,"NM",54,0) BSDX RESOURCE LETTERS^^0 -"BLD",7652,"KRN",8994,"NM",55,0) +"BLD",7915,"KRN",8994,"NM",55,0) BSDX CANCEL CLINIC LIST^^0 -"BLD",7652,"KRN",8994,"NM",56,0) +"BLD",7915,"KRN",8994,"NM",56,0) BSDX CANCEL AV BY DATE^^0 -"BLD",7652,"KRN",8994,"NM",57,0) +"BLD",7915,"KRN",8994,"NM",57,0) BSDX REBOOK NEXT BLOCK^^0 -"BLD",7652,"KRN",8994,"NM",58,0) +"BLD",7915,"KRN",8994,"NM",58,0) BSDX EHR PATIENT^^0 -"BLD",7652,"KRN",8994,"NM",59,0) +"BLD",7915,"KRN",8994,"NM",59,0) BSDX HOSP LOC PROVIDERS^^0 -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD ACCESS GROUP ITEM",29) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD ACCESS GROUP ITEM",29) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD NEW APPOINTMENT",1) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD NEW APPOINTMENT",1) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD NEW AVAILABILITY",2) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD NEW AVAILABILITY",2) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD RES GROUP ITEM",30) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD RES GROUP ITEM",30) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS GROUP",31) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS GROUP",31) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS TYPE",13) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD/EDIT ACCESS TYPE",13) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE",20) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE",20) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE GROUP",23) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCE GROUP",23) -"BLD",7652,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCEUSER",17) +"BLD",7915,"KRN",8994,"NM","B","BSDX ADD/EDIT RESOURCEUSER",17) -"BLD",7652,"KRN",8994,"NM","B","BSDX APPT BLOCKS OVERLAP",3) +"BLD",7915,"KRN",8994,"NM","B","BSDX APPT BLOCKS OVERLAP",3) -"BLD",7652,"KRN",8994,"NM","B","BSDX CANCEL APPOINTMENT",4) +"BLD",7915,"KRN",8994,"NM","B","BSDX CANCEL APPOINTMENT",4) -"BLD",7652,"KRN",8994,"NM","B","BSDX CANCEL AV BY DATE",56) +"BLD",7915,"KRN",8994,"NM","B","BSDX CANCEL AV BY DATE",56) -"BLD",7652,"KRN",8994,"NM","B","BSDX CANCEL AVAILABILITY",5) +"BLD",7915,"KRN",8994,"NM","B","BSDX CANCEL AVAILABILITY",5) -"BLD",7652,"KRN",8994,"NM","B","BSDX CANCEL CLINIC LIST",55) +"BLD",7915,"KRN",8994,"NM","B","BSDX CANCEL CLINIC LIST",55) -"BLD",7652,"KRN",8994,"NM","B","BSDX CHECKIN APPOINTMENT",38) +"BLD",7915,"KRN",8994,"NM","B","BSDX CHECKIN APPOINTMENT",38) -"BLD",7652,"KRN",8994,"NM","B","BSDX CLINIC LETTERS",46) +"BLD",7915,"KRN",8994,"NM","B","BSDX CLINIC LETTERS",46) -"BLD",7652,"KRN",8994,"NM","B","BSDX CLINIC SETUP",50) +"BLD",7915,"KRN",8994,"NM","B","BSDX CLINIC SETUP",50) -"BLD",7652,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT CANCEL",43) +"BLD",7915,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT CANCEL",43) -"BLD",7652,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT STATUS",44) +"BLD",7915,"KRN",8994,"NM","B","BSDX COPY APPOINTMENT STATUS",44) -"BLD",7652,"KRN",8994,"NM","B","BSDX COPY APPOINTMENTS",45) +"BLD",7915,"KRN",8994,"NM","B","BSDX COPY APPOINTMENTS",45) -"BLD",7652,"KRN",8994,"NM","B","BSDX CREATE APPT SCHEDULE",6) +"BLD",7915,"KRN",8994,"NM","B","BSDX CREATE APPT SCHEDULE",6) -"BLD",7652,"KRN",8994,"NM","B","BSDX CREATE ASGND SLOT SCHED",7) +"BLD",7915,"KRN",8994,"NM","B","BSDX CREATE ASGND SLOT SCHED",7) -"BLD",7652,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP",32) +"BLD",7915,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP",32) -"BLD",7652,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP ITEM",33) +"BLD",7915,"KRN",8994,"NM","B","BSDX DELETE ACCESS GROUP ITEM",33) -"BLD",7652,"KRN",8994,"NM","B","BSDX DELETE RES GROUP ITEM",25) +"BLD",7915,"KRN",8994,"NM","B","BSDX DELETE RES GROUP ITEM",25) -"BLD",7652,"KRN",8994,"NM","B","BSDX DELETE RESOURCE GROUP",24) +"BLD",7915,"KRN",8994,"NM","B","BSDX DELETE RESOURCE GROUP",24) -"BLD",7652,"KRN",8994,"NM","B","BSDX DELETE RESOURCEUSER",18) +"BLD",7915,"KRN",8994,"NM","B","BSDX DELETE RESOURCEUSER",18) -"BLD",7652,"KRN",8994,"NM","B","BSDX DEPARTMENT RESOURCE",26) +"BLD",7915,"KRN",8994,"NM","B","BSDX DEPARTMENT RESOURCE",26) -"BLD",7652,"KRN",8994,"NM","B","BSDX DEPARTMENTS BY USER",27) +"BLD",7915,"KRN",8994,"NM","B","BSDX DEPARTMENTS BY USER",27) -"BLD",7652,"KRN",8994,"NM","B","BSDX EDIT APPOINTMENT",39) +"BLD",7915,"KRN",8994,"NM","B","BSDX EDIT APPOINTMENT",39) -"BLD",7652,"KRN",8994,"NM","B","BSDX EHR PATIENT",58) +"BLD",7915,"KRN",8994,"NM","B","BSDX EHR PATIENT",58) -"BLD",7652,"KRN",8994,"NM","B","BSDX GET ACCESS GROUP TYPES",14) +"BLD",7915,"KRN",8994,"NM","B","BSDX GET ACCESS GROUP TYPES",14) -"BLD",7652,"KRN",8994,"NM","B","BSDX GET BASIC REG INFO",10) +"BLD",7915,"KRN",8994,"NM","B","BSDX GET BASIC REG INFO",10) -"BLD",7652,"KRN",8994,"NM","B","BSDX GROUP RESOURCE",15) +"BLD",7915,"KRN",8994,"NM","B","BSDX GROUP RESOURCE",15) -"BLD",7652,"KRN",8994,"NM","B","BSDX HOSP LOC PROVIDERS",59) +"BLD",7915,"KRN",8994,"NM","B","BSDX HOSP LOC PROVIDERS",59) -"BLD",7652,"KRN",8994,"NM","B","BSDX HOSPITAL LOCATION",49) +"BLD",7915,"KRN",8994,"NM","B","BSDX HOSPITAL LOCATION",49) -"BLD",7652,"KRN",8994,"NM","B","BSDX IM HERE",48) +"BLD",7915,"KRN",8994,"NM","B","BSDX IM HERE",48) -"BLD",7652,"KRN",8994,"NM","B","BSDX NOSHOW",47) +"BLD",7915,"KRN",8994,"NM","B","BSDX NOSHOW",47) -"BLD",7652,"KRN",8994,"NM","B","BSDX PATIENT APPT DISPLAY",40) +"BLD",7915,"KRN",8994,"NM","B","BSDX PATIENT APPT DISPLAY",40) -"BLD",7652,"KRN",8994,"NM","B","BSDX RAISE EVENT",36) +"BLD",7915,"KRN",8994,"NM","B","BSDX RAISE EVENT",36) -"BLD",7652,"KRN",8994,"NM","B","BSDX REBOOK CLINIC LIST",52) +"BLD",7915,"KRN",8994,"NM","B","BSDX REBOOK CLINIC LIST",52) -"BLD",7652,"KRN",8994,"NM","B","BSDX REBOOK LIST",51) +"BLD",7915,"KRN",8994,"NM","B","BSDX REBOOK LIST",51) -"BLD",7652,"KRN",8994,"NM","B","BSDX REBOOK NEXT BLOCK",57) +"BLD",7915,"KRN",8994,"NM","B","BSDX REBOOK NEXT BLOCK",57) -"BLD",7652,"KRN",8994,"NM","B","BSDX REBOOK SET",53) +"BLD",7915,"KRN",8994,"NM","B","BSDX REBOOK SET",53) -"BLD",7652,"KRN",8994,"NM","B","BSDX REGISTER EVENT",34) +"BLD",7915,"KRN",8994,"NM","B","BSDX REGISTER EVENT",34) -"BLD",7652,"KRN",8994,"NM","B","BSDX RESOURCE GROUPS BY USER",16) +"BLD",7915,"KRN",8994,"NM","B","BSDX RESOURCE GROUPS BY USER",16) -"BLD",7652,"KRN",8994,"NM","B","BSDX RESOURCE LETTERS",54) +"BLD",7915,"KRN",8994,"NM","B","BSDX RESOURCE LETTERS",54) -"BLD",7652,"KRN",8994,"NM","B","BSDX RESOURCES",22) +"BLD",7915,"KRN",8994,"NM","B","BSDX RESOURCES",22) -"BLD",7652,"KRN",8994,"NM","B","BSDX RESOURCES BY USER",28) +"BLD",7915,"KRN",8994,"NM","B","BSDX RESOURCES BY USER",28) -"BLD",7652,"KRN",8994,"NM","B","BSDX SCHEDULE USER",19) +"BLD",7915,"KRN",8994,"NM","B","BSDX SCHEDULE USER",19) -"BLD",7652,"KRN",8994,"NM","B","BSDX SCHEDULING USER INFO",21) +"BLD",7915,"KRN",8994,"NM","B","BSDX SCHEDULING USER INFO",21) -"BLD",7652,"KRN",8994,"NM","B","BSDX SEARCH AVAILABILITY",37) +"BLD",7915,"KRN",8994,"NM","B","BSDX SEARCH AVAILABILITY",37) -"BLD",7652,"KRN",8994,"NM","B","BSDX SPACEBAR SET",42) +"BLD",7915,"KRN",8994,"NM","B","BSDX SPACEBAR SET",42) -"BLD",7652,"KRN",8994,"NM","B","BSDX TYPE BLOCKS OVERLAP",12) +"BLD",7915,"KRN",8994,"NM","B","BSDX TYPE BLOCKS OVERLAP",12) -"BLD",7652,"KRN",8994,"NM","B","BSDX UNREGISTER EVENT",35) +"BLD",7915,"KRN",8994,"NM","B","BSDX UNREGISTER EVENT",35) -"BLD",7652,"KRN",8994,"NM","B","BSDXPatientLookupRS",41) +"BLD",7915,"KRN",8994,"NM","B","BSDXPatientLookupRS",41) -"BLD",7652,"KRN","B",.4,.4) +"BLD",7915,"KRN","B",.4,.4) -"BLD",7652,"KRN","B",.401,.401) +"BLD",7915,"KRN","B",.401,.401) -"BLD",7652,"KRN","B",.402,.402) +"BLD",7915,"KRN","B",.402,.402) -"BLD",7652,"KRN","B",.403,.403) +"BLD",7915,"KRN","B",.403,.403) -"BLD",7652,"KRN","B",.5,.5) +"BLD",7915,"KRN","B",.5,.5) -"BLD",7652,"KRN","B",.84,.84) +"BLD",7915,"KRN","B",.84,.84) -"BLD",7652,"KRN","B",3.6,3.6) +"BLD",7915,"KRN","B",3.6,3.6) -"BLD",7652,"KRN","B",3.8,3.8) +"BLD",7915,"KRN","B",3.8,3.8) -"BLD",7652,"KRN","B",9.2,9.2) +"BLD",7915,"KRN","B",9.2,9.2) -"BLD",7652,"KRN","B",9.8,9.8) +"BLD",7915,"KRN","B",9.8,9.8) -"BLD",7652,"KRN","B",19,19) +"BLD",7915,"KRN","B",19,19) -"BLD",7652,"KRN","B",19.1,19.1) +"BLD",7915,"KRN","B",19.1,19.1) -"BLD",7652,"KRN","B",101,101) +"BLD",7915,"KRN","B",101,101) -"BLD",7652,"KRN","B",409.61,409.61) +"BLD",7915,"KRN","B",409.61,409.61) -"BLD",7652,"KRN","B",771,771) +"BLD",7915,"KRN","B",771,771) -"BLD",7652,"KRN","B",870,870) +"BLD",7915,"KRN","B",779.2,779.2) -"BLD",7652,"KRN","B",8989.51,8989.51) +"BLD",7915,"KRN","B",870,870) -"BLD",7652,"KRN","B",8989.52,8989.52) +"BLD",7915,"KRN","B",8989.51,8989.51) -"BLD",7652,"KRN","B",8994,8994) +"BLD",7915,"KRN","B",8989.52,8989.52) -"BLD",7652,"PRE") +"BLD",7915,"KRN","B",8994,8994) + +"BLD",7915,"PRE") BSDX2E -"BLD",7652,"QUES",0) +"BLD",7915,"QUES",0) ^9.62^^ -"BLD",7652,"REQB",0) +"BLD",7915,"REQB",0) ^9.611^^ "DATA",9002018.5,1,0) -1^4^3100907.0801 +1^41^3100929.1043 "FIA",9002018.1) BSDX RESOURCE "FIA",9002018.1,0) @@ -581,7 +585,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.1,0,"RLRO") "FIA",9002018.1,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.1,9002018.1) 0 "FIA",9002018.1,9002018.11) @@ -607,7 +611,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.15,0,"RLRO") "FIA",9002018.15,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.15,9002018.15) 0 "FIA",9002018.2) @@ -625,7 +629,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.2,0,"RLRO") "FIA",9002018.2,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.2,9002018.2) 0 "FIA",9002018.2,9002018.21) @@ -645,7 +649,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.3,0,"RLRO") "FIA",9002018.3,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.3,9002018.3) 0 "FIA",9002018.3,9002018.31) @@ -665,7 +669,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.35,0,"RLRO") "FIA",9002018.35,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.35,9002018.35) 0 "FIA",9002018.38) @@ -683,7 +687,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.38,0,"RLRO") "FIA",9002018.38,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.38,9002018.38) 0 "FIA",9002018.39) @@ -701,7 +705,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.39,0,"RLRO") "FIA",9002018.39,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.39,9002018.39) 0 "FIA",9002018.4) @@ -719,7 +723,7 @@ y^y^f^^n^^n^o^n "FIA",9002018.4,0,"RLRO") "FIA",9002018.4,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.4,9002018.4) 0 "FIA",9002018.4,9002018.41) @@ -739,7 +743,7 @@ y^y^f^^n^^y^o^n "FIA",9002018.5,0,"RLRO") "FIA",9002018.5,0,"VR") -1.4^BSDX +1.41^BSDX "FIA",9002018.5,9002018.5) 0 "INIT") @@ -762,458 +766,458 @@ K ^BSDXAGTP("AC") 2^F^9002018.39^.02^30^2^F "IX",9002018.39,9002018.39,"AC",11.1,2,3) -"KRN",19,10987,-1) +"KRN",19,11052,-1) 0^1 -"KRN",19,10987,0) +"KRN",19,11052,0) BSDXRPC^WINDOWS SCHEDULING PROCEDURE CALLS^^B^^^^^^^^IHS Windows Scheduling -"KRN",19,10987,1,0) +"KRN",19,11052,1,0) ^19.06^4^4^3100618^^ -"KRN",19,10987,1,1,0) +"KRN",19,11052,1,1,0) This option hosts RPCs in the BSDX namespace. Windows Scheduling users -"KRN",19,10987,1,2,0) +"KRN",19,11052,1,2,0) mustg have access to this option -"KRN",19,10987,1,3,0) +"KRN",19,11052,1,3,0) -"KRN",19,10987,1,4,0) +"KRN",19,11052,1,4,0) in order to use Windows Scheduling. -"KRN",19,10987,99.1) +"KRN",19,11052,99.1) 61545,63078 -"KRN",19,10987,"RPC",0) +"KRN",19,11052,"RPC",0) ^19.05P^56^56 -"KRN",19,10987,"RPC",1,0) +"KRN",19,11052,"RPC",1,0) BSDX ADD ACCESS GROUP ITEM -"KRN",19,10987,"RPC",2,0) +"KRN",19,11052,"RPC",2,0) BSDX ADD NEW APPOINTMENT -"KRN",19,10987,"RPC",3,0) +"KRN",19,11052,"RPC",3,0) BSDX ADD NEW AVAILABILITY -"KRN",19,10987,"RPC",4,0) +"KRN",19,11052,"RPC",4,0) BSDX ADD RES GROUP ITEM -"KRN",19,10987,"RPC",5,0) +"KRN",19,11052,"RPC",5,0) BSDX ADD/EDIT ACCESS GROUP -"KRN",19,10987,"RPC",6,0) +"KRN",19,11052,"RPC",6,0) BSDX ADD/EDIT ACCESS TYPE -"KRN",19,10987,"RPC",7,0) +"KRN",19,11052,"RPC",7,0) BSDX ADD/EDIT RESOURCE -"KRN",19,10987,"RPC",8,0) +"KRN",19,11052,"RPC",8,0) BSDX ADD/EDIT RESOURCE GROUP -"KRN",19,10987,"RPC",9,0) +"KRN",19,11052,"RPC",9,0) BSDX ADD/EDIT RESOURCEUSER -"KRN",19,10987,"RPC",10,0) +"KRN",19,11052,"RPC",10,0) BSDX APPT BLOCKS OVERLAP -"KRN",19,10987,"RPC",11,0) +"KRN",19,11052,"RPC",11,0) BSDX CANCEL APPOINTMENT -"KRN",19,10987,"RPC",12,0) +"KRN",19,11052,"RPC",12,0) BSDX CANCEL AVAILABILITY -"KRN",19,10987,"RPC",13,0) +"KRN",19,11052,"RPC",13,0) BSDX CHECKIN APPOINTMENT -"KRN",19,10987,"RPC",14,0) +"KRN",19,11052,"RPC",14,0) BSDX CREATE APPT SCHEDULE -"KRN",19,10987,"RPC",15,0) +"KRN",19,11052,"RPC",15,0) BSDX CREATE ASGND SLOT SCHED -"KRN",19,10987,"RPC",16,0) +"KRN",19,11052,"RPC",16,0) BSDX DELETE ACCESS GROUP -"KRN",19,10987,"RPC",17,0) +"KRN",19,11052,"RPC",17,0) BSDX DELETE ACCESS GROUP ITEM -"KRN",19,10987,"RPC",18,0) +"KRN",19,11052,"RPC",18,0) BSDX DELETE RES GROUP ITEM -"KRN",19,10987,"RPC",19,0) +"KRN",19,11052,"RPC",19,0) BSDX DELETE RESOURCE GROUP -"KRN",19,10987,"RPC",20,0) +"KRN",19,11052,"RPC",20,0) BSDX DELETE RESOURCEUSER -"KRN",19,10987,"RPC",21,0) +"KRN",19,11052,"RPC",21,0) BSDX DEPARTMENT RESOURCE -"KRN",19,10987,"RPC",22,0) +"KRN",19,11052,"RPC",22,0) BSDX DEPARTMENTS BY USER -"KRN",19,10987,"RPC",23,0) +"KRN",19,11052,"RPC",23,0) BSDX EDIT APPOINTMENT -"KRN",19,10987,"RPC",24,0) +"KRN",19,11052,"RPC",24,0) BSDX GET ACCESS GROUP TYPES -"KRN",19,10987,"RPC",25,0) +"KRN",19,11052,"RPC",25,0) BSDX GET BASIC REG INFO -"KRN",19,10987,"RPC",26,0) +"KRN",19,11052,"RPC",26,0) BSDX GROUP RESOURCE -"KRN",19,10987,"RPC",27,0) +"KRN",19,11052,"RPC",27,0) BSDX PATIENT APPT DISPLAY -"KRN",19,10987,"RPC",28,0) +"KRN",19,11052,"RPC",28,0) BSDX RAISE EVENT -"KRN",19,10987,"RPC",29,0) +"KRN",19,11052,"RPC",29,0) BSDX REGISTER EVENT -"KRN",19,10987,"RPC",30,0) +"KRN",19,11052,"RPC",30,0) BSDX RESOURCE GROUPS BY USER -"KRN",19,10987,"RPC",31,0) +"KRN",19,11052,"RPC",31,0) BSDX RESOURCES -"KRN",19,10987,"RPC",32,0) +"KRN",19,11052,"RPC",32,0) BSDX RESOURCES BY USER -"KRN",19,10987,"RPC",33,0) +"KRN",19,11052,"RPC",33,0) BSDX SCHEDULE USER -"KRN",19,10987,"RPC",34,0) +"KRN",19,11052,"RPC",34,0) BSDX SCHEDULING USER INFO -"KRN",19,10987,"RPC",35,0) +"KRN",19,11052,"RPC",35,0) BSDX SEARCH AVAILABILITY -"KRN",19,10987,"RPC",36,0) +"KRN",19,11052,"RPC",36,0) BSDX TYPE BLOCKS OVERLAP -"KRN",19,10987,"RPC",37,0) +"KRN",19,11052,"RPC",37,0) BSDX UNREGISTER EVENT -"KRN",19,10987,"RPC",38,0) +"KRN",19,11052,"RPC",38,0) BSDXPatientLookupRS -"KRN",19,10987,"RPC",39,0) +"KRN",19,11052,"RPC",39,0) BSDX SPACEBAR SET -"KRN",19,10987,"RPC",40,0) +"KRN",19,11052,"RPC",40,0) BSDX COPY APPOINTMENTS -"KRN",19,10987,"RPC",41,0) +"KRN",19,11052,"RPC",41,0) BSDX COPY APPOINTMENT CANCEL -"KRN",19,10987,"RPC",42,0) +"KRN",19,11052,"RPC",42,0) BSDX COPY APPOINTMENT STATUS -"KRN",19,10987,"RPC",43,0) +"KRN",19,11052,"RPC",43,0) BSDX CLINIC LETTERS -"KRN",19,10987,"RPC",44,0) +"KRN",19,11052,"RPC",44,0) BSDX NOSHOW -"KRN",19,10987,"RPC",45,0) +"KRN",19,11052,"RPC",45,0) BSDX IM HERE -"KRN",19,10987,"RPC",46,0) +"KRN",19,11052,"RPC",46,0) BSDX HOSPITAL LOCATION -"KRN",19,10987,"RPC",47,0) +"KRN",19,11052,"RPC",47,0) BSDX CLINIC SETUP -"KRN",19,10987,"RPC",49,0) +"KRN",19,11052,"RPC",49,0) BSDX REBOOK LIST -"KRN",19,10987,"RPC",50,0) +"KRN",19,11052,"RPC",50,0) BSDX REBOOK CLINIC LIST -"KRN",19,10987,"RPC",51,0) +"KRN",19,11052,"RPC",51,0) BSDX REBOOK SET -"KRN",19,10987,"RPC",52,0) +"KRN",19,11052,"RPC",52,0) BSDX RESOURCE LETTERS -"KRN",19,10987,"RPC",53,0) +"KRN",19,11052,"RPC",53,0) BSDX CANCEL CLINIC LIST -"KRN",19,10987,"RPC",54,0) +"KRN",19,11052,"RPC",54,0) BSDX CANCEL AV BY DATE -"KRN",19,10987,"RPC",55,0) +"KRN",19,11052,"RPC",55,0) BSDX REBOOK NEXT BLOCK -"KRN",19,10987,"RPC",56,0) +"KRN",19,11052,"RPC",56,0) BSDX HOSP LOC PROVIDERS -"KRN",19,10987,"U") +"KRN",19,11052,"U") WINDOWS SCHEDULING PROCEDURE C -"KRN",19.1,480,-1) +"KRN",19.1,488,-1) 0^1 -"KRN",19.1,480,0) +"KRN",19.1,488,0) BSDXZMENU^IHS Windows Scheduling -"KRN",19.1,481,-1) +"KRN",19.1,489,-1) 0^2 -"KRN",19.1,481,0) +"KRN",19.1,489,0) BSDXZMGR^IHS Windows Scheduling Manager -"KRN",101,4262,-1) +"KRN",101,4299,-1) 0^2 -"KRN",101,4262,0) +"KRN",101,4299,0) BSDX CANCEL APPOINTMENT^BSDX CANCEL APPOINTMENT^^A^^^^^^^^ -"KRN",101,4262,1,0) +"KRN",101,4299,1,0) ^^4^4^3040915^ -"KRN",101,4262,1,1,0) +"KRN",101,4299,1,1,0) IHS protocol called by the PIMS v5.3 Scheduling Event Driver -"KRN",101,4262,1,2,0) +"KRN",101,4299,1,2,0) (BSDAM APPOINTMENT EVENTS). This protocol will -"KRN",101,4262,1,3,0) +"KRN",101,4299,1,3,0) cancel an appointment in the IHS Windows Scheduling package -"KRN",101,4262,1,4,0) +"KRN",101,4299,1,4,0) when the corresponding appointment in RPMS Scheduling is cancelled. -"KRN",101,4262,4) +"KRN",101,4299,4) ^^^BSDX CANCEL APPOINTMENT -"KRN",101,4262,20) +"KRN",101,4299,20) I $G(SDAMEVT)=2,$D(^BSDXAPPL) D CANEVT^BSDX08($G(DFN),$G(SDT),$G(SDCL)) -"KRN",101,4262,99) -61598,46412 -"KRN",101,4263,-1) +"KRN",101,4299,99) +61997,36371 +"KRN",101,4300,-1) 0^1 -"KRN",101,4263,0) +"KRN",101,4300,0) BSDX ADD APPOINTMENT^BSDX ADD APPOINTMENT^^A^^^^^^^^ -"KRN",101,4263,1,0) +"KRN",101,4300,1,0) ^101.06^4^4^3040915^^ -"KRN",101,4263,1,1,0) +"KRN",101,4300,1,1,0) IHS protocol called by the PIMS v5.3 Scheduling Event Driver -"KRN",101,4263,1,2,0) +"KRN",101,4300,1,2,0) (BSDAM APPOINTMENT EVENTS). This protocol will -"KRN",101,4263,1,3,0) +"KRN",101,4300,1,3,0) add an appointment in the IHS Windows Scheduling package -"KRN",101,4263,1,4,0) +"KRN",101,4300,1,4,0) when the corresponding appointment in RPMS Scheduling is added. -"KRN",101,4263,4) +"KRN",101,4300,4) ^^^BSDX ADD APPOINTMENT -"KRN",101,4263,20) +"KRN",101,4300,20) I $G(SDAMEVT)=1,$D(^BSDXAPPL) D ADDEVT^BSDX07($G(DFN),$G(SDT),$G(SDCL),$G(SDDA)) -"KRN",101,4263,99) -61598,46412 -"KRN",101,4264,-1) +"KRN",101,4300,99) +61997,36371 +"KRN",101,4301,-1) 0^4 -"KRN",101,4264,0) +"KRN",101,4301,0) BSDX NOSHOW APPOINTMENT^BSDX NOSHOW APPOINTMENT^^A^^^^^^^^ -"KRN",101,4264,1,0) +"KRN",101,4301,1,0) ^101.06^4^4^3040915^^ -"KRN",101,4264,1,1,0) +"KRN",101,4301,1,1,0) IHS protocol called by the PIMS v5.3 Scheduling Event Driver -"KRN",101,4264,1,2,0) +"KRN",101,4301,1,2,0) (BSDAM APPOINTMENT EVENTS). This protocol will -"KRN",101,4264,1,3,0) +"KRN",101,4301,1,3,0) no-show an appointment in the IHS Windows Scheduling package -"KRN",101,4264,1,4,0) +"KRN",101,4301,1,4,0) when the corresponding appointment in RPMS Scheduling is no-showed. -"KRN",101,4264,4) +"KRN",101,4301,4) ^^^BSDX NOSHOW APPOINTMENT -"KRN",101,4264,20) +"KRN",101,4301,20) I $G(SDAMEVT)=3,$D(^BSDXAPPL) D NOSEVT^BSDX31($G(DFN),$G(SDT),$G(SDCL)) -"KRN",101,4264,99) -61598,46412 -"KRN",101,4265,-1) +"KRN",101,4301,99) +61997,36371 +"KRN",101,4302,-1) 0^3 -"KRN",101,4265,0) +"KRN",101,4302,0) BSDX CHECKIN APPOINTMENT^BSDX CHECKIN APPOINTMENT^^A^^^^^^^^ -"KRN",101,4265,1,0) +"KRN",101,4302,1,0) ^101.06^4^4^3040915^^^ -"KRN",101,4265,1,1,0) +"KRN",101,4302,1,1,0) IHS protocol called by the PIMS v5.3 Scheduling Event Driver -"KRN",101,4265,1,2,0) +"KRN",101,4302,1,2,0) (BSDAM APPOINTMENT EVENTS). This protocol will -"KRN",101,4265,1,3,0) +"KRN",101,4302,1,3,0) check in an appointment in the IHS Windows Scheduling package -"KRN",101,4265,1,4,0) +"KRN",101,4302,1,4,0) when the corresponding appointment in RPMS Scheduling is checked in. -"KRN",101,4265,4) +"KRN",101,4302,4) ^^^BSDX CHECKIN APPOINTMENT -"KRN",101,4265,20) +"KRN",101,4302,20) I $G(SDAMEVT)=4,$D(^BSDXAPPL) D CHKEVT^BSDX25($G(DFN),$G(SDT),$G(SDCL)) -"KRN",101,4265,99) -61598,46412 -"KRN",8994,2440,-1) +"KRN",101,4302,99) +61997,36371 +"KRN",8994,2590,-1) 0^16 -"KRN",8994,2440,0) +"KRN",8994,2590,0) BSDX RESOURCE GROUPS BY USER^DEPUSR^BSDX01^4 -"KRN",8994,2441,-1) +"KRN",8994,2591,-1) 0^22 -"KRN",8994,2441,0) +"KRN",8994,2591,0) BSDX RESOURCES^RESUSR^BSDX01^4 -"KRN",8994,2442,-1) +"KRN",8994,2592,-1) 0^6 -"KRN",8994,2442,0) +"KRN",8994,2592,0) BSDX CREATE APPT SCHEDULE^CRSCH^BSDX02^4 -"KRN",8994,2443,-1) +"KRN",8994,2593,-1) 0^1 -"KRN",8994,2443,0) +"KRN",8994,2593,0) BSDX ADD NEW APPOINTMENT^APPADD^BSDX07^4 -"KRN",8994,2444,-1) +"KRN",8994,2594,-1) 0^4 -"KRN",8994,2444,0) +"KRN",8994,2594,0) BSDX CANCEL APPOINTMENT^APPDEL^BSDX08^4 -"KRN",8994,2445,-1) +"KRN",8994,2595,-1) 0^7 -"KRN",8994,2445,0) +"KRN",8994,2595,0) BSDX CREATE ASGND SLOT SCHED^CASSCH^BSDX04^4 -"KRN",8994,2446,-1) +"KRN",8994,2596,-1) 0^2 -"KRN",8994,2446,0) +"KRN",8994,2596,0) BSDX ADD NEW AVAILABILITY^AVADD^BSDX12^4 -"KRN",8994,2447,-1) +"KRN",8994,2597,-1) 0^5 -"KRN",8994,2447,0) +"KRN",8994,2597,0) BSDX CANCEL AVAILABILITY^AVDEL^BSDX13^4 -"KRN",8994,2448,-1) +"KRN",8994,2598,-1) 0^3 -"KRN",8994,2448,0) +"KRN",8994,2598,0) BSDX APPT BLOCKS OVERLAP^APBLKOV^BSDX05^4 -"KRN",8994,2449,-1) +"KRN",8994,2599,-1) 0^12 -"KRN",8994,2449,0) +"KRN",8994,2599,0) BSDX TYPE BLOCKS OVERLAP^TPBLKOV^BSDX06^4 -"KRN",8994,2450,-1) +"KRN",8994,2600,-1) 0^10 -"KRN",8994,2450,0) +"KRN",8994,2600,0) BSDX GET BASIC REG INFO^GETREGA^BSDX09^4 -"KRN",8994,2451,-1) +"KRN",8994,2601,-1) 0^15 -"KRN",8994,2451,0) +"KRN",8994,2601,0) BSDX GROUP RESOURCE^DEPRES^BSDX01^4 -"KRN",8994,2452,-1) +"KRN",8994,2602,-1) 0^13 -"KRN",8994,2452,0) +"KRN",8994,2602,0) BSDX ADD/EDIT ACCESS TYPE^ACCTYP^BSDX14^4 -"KRN",8994,2453,-1) +"KRN",8994,2603,-1) 0^14 -"KRN",8994,2453,0) +"KRN",8994,2603,0) BSDX GET ACCESS GROUP TYPES^GRPTYP^BSDX15^4 -"KRN",8994,2454,-1) +"KRN",8994,2604,-1) 0^20 -"KRN",8994,2454,0) +"KRN",8994,2604,0) BSDX ADD/EDIT RESOURCE^RSRC^BSDX16^4 -"KRN",8994,2455,-1) +"KRN",8994,2605,-1) 0^19 -"KRN",8994,2455,0) +"KRN",8994,2605,0) BSDX SCHEDULE USER^SCHUSR^BSDX17^4 -"KRN",8994,2456,-1) +"KRN",8994,2606,-1) 0^18 -"KRN",8994,2456,0) +"KRN",8994,2606,0) BSDX DELETE RESOURCEUSER^DELRU^BSDX18^4 -"KRN",8994,2457,-1) +"KRN",8994,2607,-1) 0^17 -"KRN",8994,2457,0) +"KRN",8994,2607,0) BSDX ADD/EDIT RESOURCEUSER^ADDRU^BSDX18^4 -"KRN",8994,2458,-1) +"KRN",8994,2608,-1) 0^21 -"KRN",8994,2458,0) +"KRN",8994,2608,0) BSDX SCHEDULING USER INFO^SUINFO^BSDX01^4 -"KRN",8994,2459,-1) +"KRN",8994,2609,-1) 0^23 -"KRN",8994,2459,0) +"KRN",8994,2609,0) BSDX ADD/EDIT RESOURCE GROUP^ADDRG^BSDX19^4 -"KRN",8994,2460,-1) +"KRN",8994,2610,-1) 0^24 -"KRN",8994,2460,0) +"KRN",8994,2610,0) BSDX DELETE RESOURCE GROUP^DELRG^BSDX19^4 -"KRN",8994,2461,-1) +"KRN",8994,2611,-1) 0^27 -"KRN",8994,2461,0) +"KRN",8994,2611,0) BSDX DEPARTMENTS BY USER^DEPUSR^BSDX01^4 -"KRN",8994,2462,-1) +"KRN",8994,2612,-1) 0^28 -"KRN",8994,2462,0) +"KRN",8994,2612,0) BSDX RESOURCES BY USER^RESUSR^BSDX01^4 -"KRN",8994,2463,-1) +"KRN",8994,2613,-1) 0^26 -"KRN",8994,2463,0) +"KRN",8994,2613,0) BSDX DEPARTMENT RESOURCE^DEPRES^BSDX01^4 -"KRN",8994,2464,-1) +"KRN",8994,2614,-1) 0^25 -"KRN",8994,2464,0) +"KRN",8994,2614,0) BSDX DELETE RES GROUP ITEM^DELRGI^BSDX20^4 -"KRN",8994,2465,-1) +"KRN",8994,2615,-1) 0^30 -"KRN",8994,2465,0) +"KRN",8994,2615,0) BSDX ADD RES GROUP ITEM^ADDRGI^BSDX20^4 -"KRN",8994,2466,-1) +"KRN",8994,2616,-1) 0^31 -"KRN",8994,2466,0) +"KRN",8994,2616,0) BSDX ADD/EDIT ACCESS GROUP^ADDAG^BSDX21^4 -"KRN",8994,2467,-1) +"KRN",8994,2617,-1) 0^32 -"KRN",8994,2467,0) +"KRN",8994,2617,0) BSDX DELETE ACCESS GROUP^DELAG^BSDX21^4 -"KRN",8994,2468,-1) +"KRN",8994,2618,-1) 0^29 -"KRN",8994,2468,0) +"KRN",8994,2618,0) BSDX ADD ACCESS GROUP ITEM^ADDAGI^BSDX22^4 -"KRN",8994,2469,-1) +"KRN",8994,2619,-1) 0^33 -"KRN",8994,2469,0) +"KRN",8994,2619,0) BSDX DELETE ACCESS GROUP ITEM^DELAGI^BSDX22^4 -"KRN",8994,2470,-1) +"KRN",8994,2620,-1) 0^34 -"KRN",8994,2470,0) +"KRN",8994,2620,0) BSDX REGISTER EVENT^REGEVNT^BSDX23^4 -"KRN",8994,2471,-1) +"KRN",8994,2621,-1) 0^35 -"KRN",8994,2471,0) +"KRN",8994,2621,0) BSDX UNREGISTER EVENT^UNREG^BSDX23^4 -"KRN",8994,2472,-1) +"KRN",8994,2622,-1) 0^36 -"KRN",8994,2472,0) +"KRN",8994,2622,0) BSDX RAISE EVENT^RAISEVNT^BSDX23^4 -"KRN",8994,2473,-1) +"KRN",8994,2623,-1) 0^37 -"KRN",8994,2473,0) +"KRN",8994,2623,0) BSDX SEARCH AVAILABILITY^SEARCH^BSDX24^4 -"KRN",8994,2474,-1) +"KRN",8994,2624,-1) 0^38 -"KRN",8994,2474,0) +"KRN",8994,2624,0) BSDX CHECKIN APPOINTMENT^CHECKIN^BSDX25^4 -"KRN",8994,2475,-1) +"KRN",8994,2625,-1) 0^39 -"KRN",8994,2475,0) +"KRN",8994,2625,0) BSDX EDIT APPOINTMENT^EDITAPT^BSDX26^4 -"KRN",8994,2476,-1) +"KRN",8994,2626,-1) 0^40 -"KRN",8994,2476,0) +"KRN",8994,2626,0) BSDX PATIENT APPT DISPLAY^PADISP^BSDX27^4 -"KRN",8994,2477,-1) +"KRN",8994,2627,-1) 0^41 -"KRN",8994,2477,0) +"KRN",8994,2627,0) BSDXPatientLookupRS^PTLOOKRS^BSDX28^1 -"KRN",8994,2478,-1) +"KRN",8994,2628,-1) 0^42 -"KRN",8994,2478,0) +"KRN",8994,2628,0) BSDX SPACEBAR SET^SPACE^BSDX30^4 -"KRN",8994,2479,-1) +"KRN",8994,2629,-1) 0^45 -"KRN",8994,2479,0) +"KRN",8994,2629,0) BSDX COPY APPOINTMENTS^BSDXCP^BSDX29^4 -"KRN",8994,2480,-1) +"KRN",8994,2630,-1) 0^44 -"KRN",8994,2480,0) +"KRN",8994,2630,0) BSDX COPY APPOINTMENT STATUS^CPSTAT^BSDX29^4 -"KRN",8994,2481,-1) +"KRN",8994,2631,-1) 0^43 -"KRN",8994,2481,0) +"KRN",8994,2631,0) BSDX COPY APPOINTMENT CANCEL^CPCANC^BSDX29^4 -"KRN",8994,2482,-1) +"KRN",8994,2632,-1) 0^46 -"KRN",8994,2482,0) +"KRN",8994,2632,0) BSDX CLINIC LETTERS^CLDISP^BSDX27^4 -"KRN",8994,2483,-1) +"KRN",8994,2633,-1) 0^47 -"KRN",8994,2483,0) +"KRN",8994,2633,0) BSDX NOSHOW^NOSHOW^BSDX31^4 -"KRN",8994,2484,-1) +"KRN",8994,2634,-1) 0^48 -"KRN",8994,2484,0) +"KRN",8994,2634,0) BSDX IM HERE^IMHERE^BSDX31^1 -"KRN",8994,2484,1,0) +"KRN",8994,2634,1,0) ^^2^2^3040304^ -"KRN",8994,2484,1,1,0) +"KRN",8994,2634,1,1,0) Returns a simple value to client. Used to establish continued existence -"KRN",8994,2484,1,2,0) +"KRN",8994,2634,1,2,0) of the client to the server; resets the server READ timeout. -"KRN",8994,2485,-1) +"KRN",8994,2635,-1) 0^49 -"KRN",8994,2485,0) +"KRN",8994,2635,0) BSDX HOSPITAL LOCATION^HOSPLOC^BSDX32^4 -"KRN",8994,2486,-1) +"KRN",8994,2636,-1) 0^50 -"KRN",8994,2486,0) +"KRN",8994,2636,0) BSDX CLINIC SETUP^CLNSET^BSDX32^4 -"KRN",8994,2487,-1) +"KRN",8994,2637,-1) 0^51 -"KRN",8994,2487,0) +"KRN",8994,2637,0) BSDX REBOOK LIST^RBLETT^BSDX34^4 -"KRN",8994,2488,-1) +"KRN",8994,2638,-1) 0^52 -"KRN",8994,2488,0) +"KRN",8994,2638,0) BSDX REBOOK CLINIC LIST^RBCLIN^BSDX34^4 -"KRN",8994,2489,-1) +"KRN",8994,2639,-1) 0^53 -"KRN",8994,2489,0) +"KRN",8994,2639,0) BSDX REBOOK SET^SETRBK^BSDX33^4 -"KRN",8994,2490,-1) +"KRN",8994,2640,-1) 0^54 -"KRN",8994,2490,0) +"KRN",8994,2640,0) BSDX RESOURCE LETTERS^RSRCLTR^BSDX35^4 -"KRN",8994,2491,-1) +"KRN",8994,2641,-1) 0^55 -"KRN",8994,2491,0) +"KRN",8994,2641,0) BSDX CANCEL CLINIC LIST^CANCLIN^BSDX34^4 -"KRN",8994,2492,-1) +"KRN",8994,2642,-1) 0^56 -"KRN",8994,2492,0) +"KRN",8994,2642,0) BSDX CANCEL AV BY DATE^AVDELDT^BSDX13^4 -"KRN",8994,2493,-1) +"KRN",8994,2643,-1) 0^57 -"KRN",8994,2493,0) +"KRN",8994,2643,0) BSDX REBOOK NEXT BLOCK^RBNEXT^BSDX33^4 -"KRN",8994,2494,-1) +"KRN",8994,2644,-1) 0^58 -"KRN",8994,2494,0) +"KRN",8994,2644,0) BSDX EHR PATIENT^EHRPT^BSDX30^4 -"KRN",8994,2501,-1) +"KRN",8994,2645,-1) 0^59 -"KRN",8994,2501,0) +"KRN",8994,2645,0) BSDX HOSP LOC PROVIDERS^P^BSDXGPRV^4 "MBREQ") 0 "ORD",3,19.1) -19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1 +19.1;3;;;KEY^XPDTA1;KEYF1^XPDIA1;KEYE1^XPDIA1;KEYF2^XPDIA1;;KEYDEL^XPDIA1 "ORD",3,19.1,0) SECURITY KEY "ORD",15,101) @@ -1228,22 +1232,22 @@ REMOTE PROCEDURE 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA "ORD",18,19,0) OPTION -"PKG",211,-1) +"PKG",213,-1) 1^1 -"PKG",211,0) +"PKG",213,0) IHS Windows Scheduling^BSDX^IHS Windows Scheduling Extensions -"PKG",211,20,0) +"PKG",213,20,0) ^9.402P^^ -"PKG",211,22,0) +"PKG",213,22,0) ^9.49I^1^1 -"PKG",211,22,1,0) -1.4^3100907 -"PKG",211,22,1,1,0) -^^1^1^3100907 -"PKG",211,22,1,1,1,0) +"PKG",213,22,1,0) +1.41^3100929 +"PKG",213,22,1,1,0) +^^1^1^3100929 +"PKG",213,22,1,1,1,0) Clinical Scheduling M Server support routines, files, options and RPCs. -"PKG",211,"VERSION") -1.4 +"PKG",213,"VERSION") +1.41 "PRE") BSDX2E "QUES","XPF1",0) @@ -1319,523 +1323,605 @@ D XPZ2^XPDIQ "RTN") 37 "RTN","BSDX01") -0^1^B69101782 +0^1^B107139484 "RTN","BSDX01",1,0) -BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:04pm +BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:20am "RTN","BSDX01",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX01",3,0) ; "RTN","BSDX01",4,0) - ; -"RTN","BSDX01",5,0) SUINFOD(BSDXY,BSDXDUZ) ;EP Debugging entry point +"RTN","BSDX01",5,0) + ;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)") "RTN","BSDX01",6,0) ; "RTN","BSDX01",7,0) - ; + Q "RTN","BSDX01",8,0) - ;D DEBUG^%Serenji("SUINFO^BSDX01(.BSDXY,BSDXDUZ)") + ; "RTN","BSDX01",9,0) - ; -"RTN","BSDX01",10,0) - Q -"RTN","BSDX01",11,0) - ; -"RTN","BSDX01",12,0) SUINFO(BSDXY,BSDXDUZ) ;EP -"RTN","BSDX01",13,0) +"RTN","BSDX01",10,0) ;Called by BSDX SCHEDULING USER INFO -"RTN","BSDX01",14,0) +"RTN","BSDX01",11,0) ;Returns ADO Recordset having column MANAGER -"RTN","BSDX01",15,0) +"RTN","BSDX01",12,0) ;MANAGER = YES if user has keys BSDXZMGR or XUPROGMODE -"RTN","BSDX01",16,0) +"RTN","BSDX01",13,0) ; -"RTN","BSDX01",17,0) +"RTN","BSDX01",14,0) N BSDXMGR,BSDXERR -"RTN","BSDX01",18,0) +"RTN","BSDX01",15,0) K ^BSDXTMP($J) -"RTN","BSDX01",19,0) +"RTN","BSDX01",16,0) S BSDXY="^BSDXTMP("_$J_")" -"RTN","BSDX01",20,0) +"RTN","BSDX01",17,0) S BSDXI=0 -"RTN","BSDX01",21,0) +"RTN","BSDX01",18,0) S BSDXERR="" -"RTN","BSDX01",22,0) +"RTN","BSDX01",19,0) S ^BSDXTMP($J,BSDXI)="T00010MANAGER"_$C(30) -"RTN","BSDX01",23,0) +"RTN","BSDX01",20,0) ;Check SECURITY KEY file for BSDXZMGR or XUPROGMODE keys -"RTN","BSDX01",24,0) +"RTN","BSDX01",21,0) I '+BSDXDUZ S BSDXDUZ=DUZ -"RTN","BSDX01",25,0) +"RTN","BSDX01",22,0) S BSDXMGR=$$APSEC("BSDXZMGR",BSDXDUZ) -"RTN","BSDX01",26,0) +"RTN","BSDX01",23,0) S BSDXMGR=$S(BSDXMGR=1:"YES",1:"NO") -"RTN","BSDX01",27,0) +"RTN","BSDX01",24,0) S BSDXI=BSDXI+1 -"RTN","BSDX01",28,0) +"RTN","BSDX01",25,0) S ^BSDXTMP($J,BSDXI)=BSDXMGR_$C(30) -"RTN","BSDX01",29,0) +"RTN","BSDX01",26,0) S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR -"RTN","BSDX01",30,0) +"RTN","BSDX01",27,0) Q -"RTN","BSDX01",31,0) +"RTN","BSDX01",28,0) DEPUSRD(BSDXY,BSDXDUZ) ;EP Debugging entry point +"RTN","BSDX01",29,0) + ; +"RTN","BSDX01",30,0) + ; +"RTN","BSDX01",31,0) + ;D DEBUG^%Serenji("DEPUSR^BSDX01(.BSDXY,BSDXDUZ)") "RTN","BSDX01",32,0) ; "RTN","BSDX01",33,0) - ; + Q "RTN","BSDX01",34,0) - ;D DEBUG^%Serenji("DEPUSR^BSDX01(.BSDXY,BSDXDUZ)") + ; "RTN","BSDX01",35,0) - ; -"RTN","BSDX01",36,0) - Q -"RTN","BSDX01",37,0) - ; -"RTN","BSDX01",38,0) DEPUSR(BSDXY,BSDXDUZ) ;EP -"RTN","BSDX01",39,0) +"RTN","BSDX01",36,0) ;Called by BSDX RESOURCE GROUPS BY USER -"RTN","BSDX01",40,0) +"RTN","BSDX01",37,0) ;Returns ADO Recordset with all ACTIVE resource group names to which user has access -"RTN","BSDX01",41,0) - ;based on entries in BSDX RESOURCE USER file -"RTN","BSDX01",42,0) +"RTN","BSDX01",38,0) + ;based on entries in BSDX RESOURCE USER file (Say this again for myself: Groups ONLY!!) +"RTN","BSDX01",39,0) ;If BSDXDUZ=0 then returns all department names for current DUZ -"RTN","BSDX01",43,0) +"RTN","BSDX01",40,0) + ;if not linked, always returned. +"RTN","BSDX01",41,0) ;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE -"RTN","BSDX01",44,0) +"RTN","BSDX01",42,0) ;then ALL resource group names are returned regardless of whether any active resources -"RTN","BSDX01",45,0) +"RTN","BSDX01",43,0) ;are associated with the group or not. +"RTN","BSDX01",44,0) + ; +"RTN","BSDX01",45,0) + ; "RTN","BSDX01",46,0) - ; -"RTN","BSDX01",47,0) - ; -"RTN","BSDX01",48,0) N BSDXERR,BSDXRET,BSDXIEN,BSDXRES,BSDXDEP,BSDXDDR,BSDXDEPN,BSDXRDAT,BSDXRNOD,BSDXI -"RTN","BSDX01",49,0) +"RTN","BSDX01",47,0) N BSDXMGR,BSDXNOD -"RTN","BSDX01",50,0) +"RTN","BSDX01",48,0) K ^BSDXTEMP($J) -"RTN","BSDX01",51,0) +"RTN","BSDX01",49,0) K ^BSDXTMP($J) -"RTN","BSDX01",52,0) +"RTN","BSDX01",50,0) S BSDXY="^BSDXTMP("_$J_")" -"RTN","BSDX01",53,0) +"RTN","BSDX01",51,0) S BSDXI=0 -"RTN","BSDX01",54,0) +"RTN","BSDX01",52,0) S BSDXERR="" -"RTN","BSDX01",55,0) +"RTN","BSDX01",53,0) S ^BSDXTMP($J,BSDXI)="I00020RESOURCE_GROUPID^T00030RESOURCE_GROUP"_$C(30) -"RTN","BSDX01",56,0) +"RTN","BSDX01",54,0) I '+BSDXDUZ S BSDXDUZ=DUZ -"RTN","BSDX01",57,0) +"RTN","BSDX01",55,0) ;Check SECURITY KEY file for BSDXZMGR or XUPROGMODE keys -"RTN","BSDX01",58,0) +"RTN","BSDX01",56,0) S BSDXMGR=$$APSEC("BSDXZMGR",BSDXDUZ) -"RTN","BSDX01",59,0) +"RTN","BSDX01",57,0) ; -"RTN","BSDX01",60,0) +"RTN","BSDX01",58,0) ;User does not have BSDXZMGR or XUPROGMODE keys, so -"RTN","BSDX01",61,0) +"RTN","BSDX01",59,0) ;$O THRU AC XREF OF BSDX RESOURCE USER -"RTN","BSDX01",62,0) +"RTN","BSDX01",60,0) I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D -"RTN","BSDX01",63,0) +"RTN","BSDX01",61,0) . S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) +"RTN","BSDX01",62,0) + . Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; If not part of a group, quit ("AB" is the whole file index for the resource multiple in Group file) +"RTN","BSDX01",63,0) + . ; Q:'$$INDIV2(BSDXRES) ; If not in the same division as user, quit "RTN","BSDX01",64,0) - . Q:'$D(^BSDXDEPT("AB",BSDXRES)) -"RTN","BSDX01",65,0) . S BSDXRNOD=^BSDXRES(BSDXRES,0) -"RTN","BSDX01",66,0) +"RTN","BSDX01",65,0) . ;QUIT if the resource is inactive -"RTN","BSDX01",67,0) +"RTN","BSDX01",66,0) . Q:$P(BSDXRNOD,U,2)=1 -"RTN","BSDX01",68,0) +"RTN","BSDX01",67,0) . S BSDXDEP=0 F S BSDXDEP=$O(^BSDXDEPT("AB",BSDXRES,BSDXDEP)) Q:'+BSDXDEP D -"RTN","BSDX01",69,0) +"RTN","BSDX01",68,0) . . Q:'$D(^BSDXDEPT(BSDXDEP,0)) -"RTN","BSDX01",70,0) +"RTN","BSDX01",69,0) . . Q:$D(^BSDXTEMP($J,BSDXDEP)) -"RTN","BSDX01",71,0) +"RTN","BSDX01",70,0) . . S ^BSDXTEMP($J,BSDXDEP)="" -"RTN","BSDX01",72,0) +"RTN","BSDX01",71,0) . . S BSDXDEPN=$P(^BSDXDEPT(BSDXDEP,0),U) -"RTN","BSDX01",73,0) +"RTN","BSDX01",72,0) . . S BSDXI=BSDXI+1 -"RTN","BSDX01",74,0) +"RTN","BSDX01",73,0) . . S ^BSDXTMP($J,BSDXI)=BSDXDEP_U_BSDXDEPN_$C(30) -"RTN","BSDX01",75,0) +"RTN","BSDX01",74,0) . . Q +"RTN","BSDX01",75,0) + . Q "RTN","BSDX01",76,0) - . Q + ; "RTN","BSDX01",77,0) - ; -"RTN","BSDX01",78,0) ;User does have BSDXZMGR or XUPROGMODE keys, so -"RTN","BSDX01",79,0) +"RTN","BSDX01",78,0) ;$O THRU BSDX RESOURCE GROUP file directly -"RTN","BSDX01",80,0) +"RTN","BSDX01",79,0) I BSDXMGR S BSDXIEN=0 F S BSDXIEN=$O(^BSDXDEPT(BSDXIEN)) Q:'+BSDXIEN D -"RTN","BSDX01",81,0) +"RTN","BSDX01",80,0) . Q:'$D(^BSDXDEPT(BSDXIEN,0)) -"RTN","BSDX01",82,0) +"RTN","BSDX01",81,0) . S BSDXNOD=^BSDXDEPT(BSDXIEN,0) -"RTN","BSDX01",83,0) +"RTN","BSDX01",82,0) . S BSDXDEPN=$P(BSDXNOD,U) -"RTN","BSDX01",84,0) +"RTN","BSDX01",83,0) . S BSDXI=BSDXI+1 -"RTN","BSDX01",85,0) +"RTN","BSDX01",84,0) . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXDEPN_$C(30) -"RTN","BSDX01",86,0) +"RTN","BSDX01",85,0) . Q -"RTN","BSDX01",87,0) +"RTN","BSDX01",86,0) ; -"RTN","BSDX01",88,0) +"RTN","BSDX01",87,0) S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR -"RTN","BSDX01",89,0) +"RTN","BSDX01",88,0) Q +"RTN","BSDX01",89,0) + ; "RTN","BSDX01",90,0) ; "RTN","BSDX01",91,0) - ; -"RTN","BSDX01",92,0) RESUSRD(BSDXY,BSDXDUZ) ;EP Debugging entry point +"RTN","BSDX01",92,0) + ; "RTN","BSDX01",93,0) ; "RTN","BSDX01",94,0) - ; -"RTN","BSDX01",95,0) ;D DEBUG^%Serenji("RESUSR^BSDX01(.BSDXY,BSDXDUZ)") +"RTN","BSDX01",95,0) + ; "RTN","BSDX01",96,0) - ; -"RTN","BSDX01",97,0) Q +"RTN","BSDX01",97,0) + ; "RTN","BSDX01",98,0) - ; -"RTN","BSDX01",99,0) RESUSR(BSDXY,BSDXDUZ) ;EP -"RTN","BSDX01",100,0) +"RTN","BSDX01",99,0) ;Returns ADO Recordset with ALL RESOURCE names -"RTN","BSDX01",101,0) +"RTN","BSDX01",100,0) ;Inactive RESOURCES are NOT filtered out -"RTN","BSDX01",102,0) +"RTN","BSDX01",101,0) ;Called by BSDX RESOURCES BY USER +"RTN","BSDX01",102,0) + ; "RTN","BSDX01",103,0) - ; -"RTN","BSDX01",104,0) N BSDXERR,BSDXRET,BSDXIEN,BSDXRES,BSDXDEP,BSDXDDR,BSDXDEPN,BSDXRDAT,BSDXRNOD,BSDXI,BSDX,BSDXLTR -"RTN","BSDX01",105,0) +"RTN","BSDX01",104,0) N BSDXNOS,BSDXCAN -"RTN","BSDX01",106,0) +"RTN","BSDX01",105,0) K ^BSDXTMP($J) -"RTN","BSDX01",107,0) +"RTN","BSDX01",106,0) S BSDXY="^BSDXTMP("_$J_")" -"RTN","BSDX01",108,0) +"RTN","BSDX01",107,0) S BSDXI=0 -"RTN","BSDX01",109,0) +"RTN","BSDX01",108,0) S BSDXERR="" -"RTN","BSDX01",110,0) +"RTN","BSDX01",109,0) S ^BSDXTMP($J,BSDXI)="I00010RESOURCEID^T00030RESOURCE_NAME^T00010INACTIVE^I00010TIMESCALE^I00010HOSPITAL_LOCATION_ID^T00030LETTER_TEXT^T00030NO_SHOW_LETTER" -"RTN","BSDX01",111,0) +"RTN","BSDX01",110,0) S ^BSDXTMP($J,BSDXI)=^(BSDXI)_"^T00030CLINIC_CANCELLATION_LETTER^I00010VIEW^I00010OVERBOOK^I00010MODIFY_SCHEDULE^I00010MODIFY_APPOINTMENTS"_$C(30) -"RTN","BSDX01",112,0) +"RTN","BSDX01",111,0) I '+BSDXDUZ S BSDXDUZ=DUZ -"RTN","BSDX01",113,0) +"RTN","BSDX01",112,0) ;$O THRU AC XREF OF BSDX RESOURCE USER -"RTN","BSDX01",114,0) +"RTN","BSDX01",113,0) ;Rmoved these lines in order to just return all resource names -"RTN","BSDX01",115,0) +"RTN","BSDX01",114,0) ;I $D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D -"RTN","BSDX01",116,0) +"RTN","BSDX01",115,0) ;. S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) -"RTN","BSDX01",117,0) +"RTN","BSDX01",116,0) ; -"RTN","BSDX01",118,0) +"RTN","BSDX01",117,0) ;$O THRU BSDX RESOURCE File -"RTN","BSDX01",119,0) +"RTN","BSDX01",118,0) S BSDXRES=0 F S BSDXRES=$O(^BSDXRES(BSDXRES)) Q:'+BSDXRES D -"RTN","BSDX01",120,0) +"RTN","BSDX01",119,0) . Q:'$D(^BSDXRES(BSDXRES,0)) -"RTN","BSDX01",121,0) +"RTN","BSDX01",120,0) . S BSDXRNOD=^BSDXRES(BSDXRES,0) +"RTN","BSDX01",121,0) + . N BSDXSC S BSDXSC=$P(BSDXRNOD,U,4) ; Hospital Location "RTN","BSDX01",122,0) - . ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered + . ;Q:$P(BSDXRNOD,U,2)=1 ;Inactive resources not filtered "RTN","BSDX01",123,0) . ;S BSDXRDAT=$P(BSDXRNOD,U,1,4) "RTN","BSDX01",124,0) - . K BSDXRDAT + . ;I '$$INDIV(BSDXSC) QUIT ; If not in division, quit "RTN","BSDX01",125,0) - . F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX) + . K BSDXRDAT "RTN","BSDX01",126,0) - . S BSDXRDAT=BSDXRES_U_BSDXRDAT + . F BSDX=1:1:4 S $P(BSDXRDAT,U,BSDX)=$P(BSDXRNOD,U,BSDX) "RTN","BSDX01",127,0) - . ;Get letter text from wp field + . S BSDXRDAT=BSDXRES_U_BSDXRDAT "RTN","BSDX01",128,0) - . S BSDXLTR="" + . ;Get letter text from wp field "RTN","BSDX01",129,0) - . I $D(^BSDXRES(BSDXRES,1)) D + . S BSDXLTR="" "RTN","BSDX01",130,0) - . . S BSDXIEN=0 + . I $D(^BSDXRES(BSDXRES,1)) D "RTN","BSDX01",131,0) - . . F S BSDXIEN=$O(^BSDXRES(BSDXRES,1,BSDXIEN)) Q:'+BSDXIEN D + . . S BSDXIEN=0 "RTN","BSDX01",132,0) - . . . S BSDXLTR=BSDXLTR_$G(^BSDXRES(BSDXRES,1,BSDXIEN,0)) + . . F S BSDXIEN=$O(^BSDXRES(BSDXRES,1,BSDXIEN)) Q:'+BSDXIEN D "RTN","BSDX01",133,0) - . . . S BSDXLTR=BSDXLTR_$C(13)_$C(10) + . . . S BSDXLTR=BSDXLTR_$G(^BSDXRES(BSDXRES,1,BSDXIEN,0)) "RTN","BSDX01",134,0) - . S BSDXNOS="" + . . . S BSDXLTR=BSDXLTR_$C(13)_$C(10) "RTN","BSDX01",135,0) - . I $D(^BSDXRES(BSDXRES,12)) D + . S BSDXNOS="" "RTN","BSDX01",136,0) - . . S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRES(BSDXRES,12,BSDXIEN)) Q:'+BSDXIEN D + . I $D(^BSDXRES(BSDXRES,12)) D "RTN","BSDX01",137,0) - . . . S BSDXNOS=BSDXNOS_$G(^BSDXRES(BSDXRES,12,BSDXIEN,0)) + . . S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRES(BSDXRES,12,BSDXIEN)) Q:'+BSDXIEN D "RTN","BSDX01",138,0) - . . . S BSDXNOS=BSDXNOS_$C(13)_$C(10) + . . . S BSDXNOS=BSDXNOS_$G(^BSDXRES(BSDXRES,12,BSDXIEN,0)) "RTN","BSDX01",139,0) - . S BSDXCAN="" + . . . S BSDXNOS=BSDXNOS_$C(13)_$C(10) "RTN","BSDX01",140,0) - . I $D(^BSDXRES(BSDXRES,13)) D + . S BSDXCAN="" "RTN","BSDX01",141,0) - . . S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRES(BSDXRES,13,BSDXIEN)) Q:'+BSDXIEN D + . I $D(^BSDXRES(BSDXRES,13)) D "RTN","BSDX01",142,0) - . . . S BSDXCAN=BSDXCAN_$G(^BSDXRES(BSDXRES,13,BSDXIEN,0)) + . . S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRES(BSDXRES,13,BSDXIEN)) Q:'+BSDXIEN D "RTN","BSDX01",143,0) - . . . S BSDXCAN=BSDXCAN_$C(13)_$C(10) + . . . S BSDXCAN=BSDXCAN_$G(^BSDXRES(BSDXRES,13,BSDXIEN,0)) "RTN","BSDX01",144,0) - . N BSDXACC,BSDXMGR + . . . S BSDXCAN=BSDXCAN_$C(13)_$C(10) "RTN","BSDX01",145,0) - . S BSDXACC="0^0^0^0" + . N BSDXACC,BSDXMGR "RTN","BSDX01",146,0) - . S BSDXMGR=$O(^DIC(19.1,"B","BSDXZMGR",0)) + . S BSDXACC="0^0^0^0" "RTN","BSDX01",147,0) - . I +BSDXMGR,$D(^VA(200,BSDXDUZ,51,BSDXMGR)) S BSDXACC="1^1^1^1" + . S BSDXMGR=$O(^DIC(19.1,"B","BSDXZMGR",0)) "RTN","BSDX01",148,0) - . S BSDXMGR=$O(^DIC(19.1,"B","XUPROGMODE",0)) -"RTN","BSDX01",149,0) . I +BSDXMGR,$D(^VA(200,BSDXDUZ,51,BSDXMGR)) S BSDXACC="1^1^1^1" +"RTN","BSDX01",149,0) + . S BSDXMGR=$O(^DIC(19.1,"B","XUPROGMODE",0)) "RTN","BSDX01",150,0) - . I BSDXACC="0^0^0^0" D + . I +BSDXMGR,$D(^VA(200,BSDXDUZ,51,BSDXMGR)) S BSDXACC="1^1^1^1" "RTN","BSDX01",151,0) - . . N BSDXNOD,BSDXRUID + . I BSDXACC="0^0^0^0" D "RTN","BSDX01",152,0) - . . S BSDXRUID=0 + . . N BSDXNOD,BSDXRUID "RTN","BSDX01",153,0) - . . ;Get entry for this user and resource + . . S BSDXRUID=0 "RTN","BSDX01",154,0) - . . F S BSDXRUID=$O(^BSDXRSU("AC",BSDXDUZ,BSDXRUID)) Q:'+BSDXRUID I $D(^BSDXRSU(BSDXRUID,0)),$P(^(0),U)=BSDXRES Q + . . ;Get entry for this user and resource "RTN","BSDX01",155,0) - . . Q:'+BSDXRUID + . . F S BSDXRUID=$O(^BSDXRSU("AC",BSDXDUZ,BSDXRUID)) Q:'+BSDXRUID I $D(^BSDXRSU(BSDXRUID,0)),$P(^(0),U)=BSDXRES Q "RTN","BSDX01",156,0) - . . S $P(BSDXACC,U)=1 + . . Q:'+BSDXRUID "RTN","BSDX01",157,0) - . . S BSDXNOD=$G(^BSDXRSU(BSDXRUID,0)) + . . S $P(BSDXACC,U)=1 "RTN","BSDX01",158,0) - . . S $P(BSDXACC,U,2)=+$P(BSDXNOD,U,3) + . . S BSDXNOD=$G(^BSDXRSU(BSDXRUID,0)) "RTN","BSDX01",159,0) - . . S $P(BSDXACC,U,3)=+$P(BSDXNOD,U,4) + . . S $P(BSDXACC,U,2)=+$P(BSDXNOD,U,3) "RTN","BSDX01",160,0) - . . S $P(BSDXACC,U,4)=+$P(BSDXNOD,U,5) + . . S $P(BSDXACC,U,3)=+$P(BSDXNOD,U,4) "RTN","BSDX01",161,0) - . S BSDXRDAT=BSDXRDAT_U_BSDXLTR_U_BSDXNOS_U_BSDXCAN_U_BSDXACC + . . S $P(BSDXACC,U,4)=+$P(BSDXNOD,U,5) "RTN","BSDX01",162,0) - . S BSDXI=BSDXI+1 + . S BSDXRDAT=BSDXRDAT_U_BSDXLTR_U_BSDXNOS_U_BSDXCAN_U_BSDXACC "RTN","BSDX01",163,0) - . S ^BSDXTMP($J,BSDXI)=BSDXRDAT_$C(30) + . S BSDXI=BSDXI+1 "RTN","BSDX01",164,0) - S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR + . S ^BSDXTMP($J,BSDXI)=BSDXRDAT_$C(30) "RTN","BSDX01",165,0) - Q + S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR "RTN","BSDX01",166,0) - ; + Q "RTN","BSDX01",167,0) -DEPRESD(BSDXY,BSDXDUZ) ;EP Debugging entry point -"RTN","BSDX01",168,0) ; +"RTN","BSDX01",168,0) +DEPRESD(BSDXY,BSDXDUZ) ;EP Debugging entry point "RTN","BSDX01",169,0) ; "RTN","BSDX01",170,0) - ;D DEBUG^%Serenji("DEPRES^BSDX01(.BSDXY,BSDXDUZ)") + ; "RTN","BSDX01",171,0) - ; + ;D DEBUG^%Serenji("DEPRES^BSDX01(.BSDXY,BSDXDUZ)") "RTN","BSDX01",172,0) - Q + ; "RTN","BSDX01",173,0) - ; -"RTN","BSDX01",174,0) -DEPRES(BSDXY,BSDXDUZ) ;EP -"RTN","BSDX01",175,0) - ;Called by BSDX GROUP RESOURCE -"RTN","BSDX01",176,0) - ;Returns ADO Recordset with all ACTIVE GROUP/RESOURCE combinations -"RTN","BSDX01",177,0) - ;to which user has access based on entries in BSDX RESOURCE USER file -"RTN","BSDX01",178,0) - ;If BSDXDUZ=0 then returns all ACTIVE GROUP/RESOURCE combinations for current DUZ -"RTN","BSDX01",179,0) - ;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE -"RTN","BSDX01",180,0) - ;then ALL ACTIVE resource group names are returned -"RTN","BSDX01",181,0) - ; -"RTN","BSDX01",182,0) - N BSDXERR,BSDXRET,BSDXIEN,BSDXRES,BSDXDEP,BSDXDDR,BSDXDEPN,BSDXRDAT,BSDXRNOD,BSDXI -"RTN","BSDX01",183,0) - N BSDXRESN,BSDXMGR,BSDXRESD,BSDXNOD,BSDXSUBID -"RTN","BSDX01",184,0) - K ^BSDXTEMP($J) -"RTN","BSDX01",185,0) - K ^BSDXTMP($J) -"RTN","BSDX01",186,0) - S BSDXY="^BSDXTMP("_$J_")" -"RTN","BSDX01",187,0) - S BSDXI=0 -"RTN","BSDX01",188,0) - S BSDXERR="" -"RTN","BSDX01",189,0) - S ^BSDXTMP($J,BSDXI)="I00020RESOURCE_GROUPID^T00030RESOURCE_GROUP^I00020RESOURCE_GROUP_ITEMID^T00030RESOURCE_NAME^I00020RESOURCEID"_$C(30) -"RTN","BSDX01",190,0) - I '+BSDXDUZ S BSDXDUZ=DUZ -"RTN","BSDX01",191,0) - ;Check SECURITY KEY file for BSDXZMGR or XUPROGMODE keys -"RTN","BSDX01",192,0) - S BSDXMGR=$$APSEC("BSDXZMGR",BSDXDUZ) -"RTN","BSDX01",193,0) - ; -"RTN","BSDX01",194,0) - ;User does not have BSDXZMGR or XUPROGMODE keys, so -"RTN","BSDX01",195,0) - ;$O THRU AC XREF OF BSDX RESOURCE USER -"RTN","BSDX01",196,0) - I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D -"RTN","BSDX01",197,0) - . S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) -"RTN","BSDX01",198,0) - . Q:'$D(^BSDXDEPT("AB",BSDXRES)) -"RTN","BSDX01",199,0) - . S BSDXRNOD=$G(^BSDXRES(BSDXRES,0)) -"RTN","BSDX01",200,0) - . Q:BSDXRNOD="" -"RTN","BSDX01",201,0) - . ;QUIT if the resource is inactive -"RTN","BSDX01",202,0) - . Q:$P(BSDXRNOD,U,2)=1 -"RTN","BSDX01",203,0) - . S BSDXRESN=$P(BSDXRNOD,U) -"RTN","BSDX01",204,0) - . S BSDXDEP=0 F S BSDXDEP=$O(^BSDXDEPT("AB",BSDXRES,BSDXDEP)) Q:'+BSDXDEP D -"RTN","BSDX01",205,0) - . . Q:'$D(^BSDXDEPT(BSDXDEP,0)) -"RTN","BSDX01",206,0) - . . S BSDXDEPN=$P(^BSDXDEPT(BSDXDEP,0),U) -"RTN","BSDX01",207,0) - . . S BSDXSUBID=$O(^BSDXDEPT(BSDXDEP,1,"B",BSDXRES,0)) -"RTN","BSDX01",208,0) - . . S BSDXI=BSDXI+1 -"RTN","BSDX01",209,0) - . . S ^BSDXTMP($J,BSDXI)=BSDXDEP_U_BSDXDEPN_U_BSDXSUBID_U_BSDXRESN_U_BSDXRES_$C(30) -"RTN","BSDX01",210,0) - . Q -"RTN","BSDX01",211,0) - ; -"RTN","BSDX01",212,0) - ;User does have BSDXZMGR or XUPROGMODE keys, so -"RTN","BSDX01",213,0) - ;$O THRU BSDX RESOURCE GROUP file directly -"RTN","BSDX01",214,0) - I BSDXMGR S BSDXIEN=0 F S BSDXIEN=$O(^BSDXDEPT(BSDXIEN)) Q:'+BSDXIEN D -"RTN","BSDX01",215,0) - . Q:'$D(^BSDXDEPT(BSDXIEN,0)) -"RTN","BSDX01",216,0) - . S BSDXNOD=^BSDXDEPT(BSDXIEN,0) -"RTN","BSDX01",217,0) - . S BSDXDEPN=$P(BSDXNOD,U) -"RTN","BSDX01",218,0) - . S BSDXRES=0 F S BSDXRES=$O(^BSDXDEPT(BSDXIEN,1,BSDXRES)) Q:'+BSDXRES D -"RTN","BSDX01",219,0) - . . N BSDXRESD -"RTN","BSDX01",220,0) - . . Q:'$D(^BSDXDEPT(BSDXIEN,1,BSDXRES,0)) -"RTN","BSDX01",221,0) - . . S BSDXRESD=$P(^BSDXDEPT(BSDXIEN,1,BSDXRES,0),"^") -"RTN","BSDX01",222,0) - . . Q:'$D(^BSDXRES(BSDXRESD,0)) -"RTN","BSDX01",223,0) - . . S BSDXRNOD=$G(^BSDXRES(BSDXRESD,0)) -"RTN","BSDX01",224,0) - . . Q:BSDXRNOD="" -"RTN","BSDX01",225,0) - . . ;QUIT if the resource is inactive -"RTN","BSDX01",226,0) - . . Q:$P(BSDXRNOD,U,2)=1 -"RTN","BSDX01",227,0) - . . S BSDXRESN=$P(BSDXRNOD,U) -"RTN","BSDX01",228,0) - . . S BSDXI=BSDXI+1 -"RTN","BSDX01",229,0) - . . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXDEPN_U_BSDXRES_U_BSDXRESN_U_BSDXRESD_$C(30) -"RTN","BSDX01",230,0) - . . Q -"RTN","BSDX01",231,0) - . Q -"RTN","BSDX01",232,0) - ; -"RTN","BSDX01",233,0) - S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR -"RTN","BSDX01",234,0) Q +"RTN","BSDX01",174,0) + ; +"RTN","BSDX01",175,0) +DEPRES(BSDXY,BSDXDUZ) ;EP +"RTN","BSDX01",176,0) + ;Called by BSDX GROUP RESOURCE +"RTN","BSDX01",177,0) + ;Returns ADO Recordset with all ACTIVE GROUP/RESOURCE combinations +"RTN","BSDX01",178,0) + ;to which user has access based on entries in BSDX RESOURCE USER file +"RTN","BSDX01",179,0) + ;If BSDXDUZ=0 then returns all ACTIVE GROUP/RESOURCE combinations for current DUZ +"RTN","BSDX01",180,0) + ;If user BSDXDUZ possesses the key BSDXZMGR or XUPROGMODE +"RTN","BSDX01",181,0) + ;then ALL ACTIVE resource group names are returned +"RTN","BSDX01",182,0) + ; +"RTN","BSDX01",183,0) + N BSDXERR,BSDXRET,BSDXIEN,BSDXRES,BSDXDEP,BSDXDDR,BSDXDEPN,BSDXRDAT,BSDXRNOD,BSDXI +"RTN","BSDX01",184,0) + N BSDXRESN,BSDXMGR,BSDXRESD,BSDXNOD,BSDXSUBID +"RTN","BSDX01",185,0) + K ^BSDXTEMP($J) +"RTN","BSDX01",186,0) + K ^BSDXTMP($J) +"RTN","BSDX01",187,0) + S BSDXY="^BSDXTMP("_$J_")" +"RTN","BSDX01",188,0) + S BSDXI=0 +"RTN","BSDX01",189,0) + S BSDXERR="" +"RTN","BSDX01",190,0) + S ^BSDXTMP($J,BSDXI)="I00020RESOURCE_GROUPID^T00030RESOURCE_GROUP^I00020RESOURCE_GROUP_ITEMID^T00030RESOURCE_NAME^I00020RESOURCEID"_$C(30) +"RTN","BSDX01",191,0) + I '+BSDXDUZ S BSDXDUZ=DUZ +"RTN","BSDX01",192,0) + ;Check SECURITY KEY file for BSDXZMGR or XUPROGMODE keys +"RTN","BSDX01",193,0) + S BSDXMGR=$$APSEC("BSDXZMGR",BSDXDUZ) +"RTN","BSDX01",194,0) + ; +"RTN","BSDX01",195,0) + ;User does not have BSDXZMGR or XUPROGMODE keys, so +"RTN","BSDX01",196,0) + ;$O THRU AC XREF OF BSDX RESOURCE USER +"RTN","BSDX01",197,0) + I 'BSDXMGR,$D(^BSDXRSU("AC",BSDXDUZ)) S BSDXIEN=0 F S BSDXIEN=$O(^BSDXRSU("AC",BSDXDUZ,BSDXIEN)) Q:'+BSDXIEN D +"RTN","BSDX01",198,0) + . S BSDXRES=$P(^BSDXRSU(BSDXIEN,0),U) +"RTN","BSDX01",199,0) + . Q:'$D(^BSDXDEPT("AB",BSDXRES)) ; Quit if Resource isn't part of any Group +"RTN","BSDX01",200,0) + . ;Q:'$$INDIV2(BSDXRES) ; Quit if Resource isn't in same division as user. +"RTN","BSDX01",201,0) + . S BSDXRNOD=$G(^BSDXRES(BSDXRES,0)) +"RTN","BSDX01",202,0) + . Q:BSDXRNOD="" +"RTN","BSDX01",203,0) + . ;QUIT if the resource is inactive +"RTN","BSDX01",204,0) + . Q:$P(BSDXRNOD,U,2)=1 +"RTN","BSDX01",205,0) + . S BSDXRESN=$P(BSDXRNOD,U) +"RTN","BSDX01",206,0) + . S BSDXDEP=0 F S BSDXDEP=$O(^BSDXDEPT("AB",BSDXRES,BSDXDEP)) Q:'+BSDXDEP D +"RTN","BSDX01",207,0) + . . Q:'$D(^BSDXDEPT(BSDXDEP,0)) +"RTN","BSDX01",208,0) + . . S BSDXDEPN=$P(^BSDXDEPT(BSDXDEP,0),U) +"RTN","BSDX01",209,0) + . . S BSDXSUBID=$O(^BSDXDEPT(BSDXDEP,1,"B",BSDXRES,0)) +"RTN","BSDX01",210,0) + . . S BSDXI=BSDXI+1 +"RTN","BSDX01",211,0) + . . S ^BSDXTMP($J,BSDXI)=BSDXDEP_U_BSDXDEPN_U_BSDXSUBID_U_BSDXRESN_U_BSDXRES_$C(30) +"RTN","BSDX01",212,0) + . Q +"RTN","BSDX01",213,0) + ; +"RTN","BSDX01",214,0) + ;User does have BSDXZMGR or XUPROGMODE keys, so +"RTN","BSDX01",215,0) + ;$O THRU BSDX RESOURCE GROUP file directly +"RTN","BSDX01",216,0) + I BSDXMGR S BSDXIEN=0 F S BSDXIEN=$O(^BSDXDEPT(BSDXIEN)) Q:'+BSDXIEN D +"RTN","BSDX01",217,0) + . Q:'$D(^BSDXDEPT(BSDXIEN,0)) +"RTN","BSDX01",218,0) + . S BSDXNOD=^BSDXDEPT(BSDXIEN,0) +"RTN","BSDX01",219,0) + . S BSDXDEPN=$P(BSDXNOD,U) +"RTN","BSDX01",220,0) + . S BSDXRES=0 F S BSDXRES=$O(^BSDXDEPT(BSDXIEN,1,BSDXRES)) Q:'+BSDXRES D +"RTN","BSDX01",221,0) + . . N BSDXRESD +"RTN","BSDX01",222,0) + . . Q:'$D(^BSDXDEPT(BSDXIEN,1,BSDXRES,0)) ; Quit if zero node is invalid in multiple +"RTN","BSDX01",223,0) + . . S BSDXRESD=$P(^BSDXDEPT(BSDXIEN,1,BSDXRES,0),"^") +"RTN","BSDX01",224,0) + . . Q:'$D(^BSDXRES(BSDXRESD,0)) ; Quit if zero node of resouce file is invalid +"RTN","BSDX01",225,0) + . . ;Q:'$$INDIV2(BSDXRESD) ; Quit if resource is not in the same division +"RTN","BSDX01",226,0) + . . S BSDXRNOD=$G(^BSDXRES(BSDXRESD,0)) +"RTN","BSDX01",227,0) + . . Q:BSDXRNOD="" +"RTN","BSDX01",228,0) + . . ;QUIT if the resource is inactive +"RTN","BSDX01",229,0) + . . Q:$P(BSDXRNOD,U,2)=1 +"RTN","BSDX01",230,0) + . . S BSDXRESN=$P(BSDXRNOD,U) +"RTN","BSDX01",231,0) + . . S BSDXI=BSDXI+1 +"RTN","BSDX01",232,0) + . . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXDEPN_U_BSDXRES_U_BSDXRESN_U_BSDXRESD_$C(30) +"RTN","BSDX01",233,0) + . . Q +"RTN","BSDX01",234,0) + . Q "RTN","BSDX01",235,0) ; "RTN","BSDX01",236,0) -APSEC(BSDXKEY,BSDXDUZ) ;EP - Return TRUE (1) if user has keys BSDXKEY or XUPROGMODE, otherwise, returns FALSE (0) + S ^BSDXTMP($J,BSDXI+1)=$C(31)_BSDXERR "RTN","BSDX01",237,0) - ; + Q "RTN","BSDX01",238,0) - N BSDXIEN,BSDXPROG,BSDXPKEY + ; "RTN","BSDX01",239,0) - I '$G(BSDXDUZ) Q 0 +APSEC(BSDXKEY,BSDXDUZ) ;EP - Return TRUE (1) if user has keys BSDXKEY or XUPROGMODE, otherwise, returns FALSE (0) "RTN","BSDX01",240,0) ; "RTN","BSDX01",241,0) - ;Test for programmer mode key + N BSDXIEN,BSDXPROG,BSDXPKEY "RTN","BSDX01",242,0) - S BSDXPROG=0 + I '$G(BSDXDUZ) Q 0 "RTN","BSDX01",243,0) - I $D(^DIC(19.1,"B","XUPROGMODE")) D -"RTN","BSDX01",244,0) - . S BSDXPKEY=$O(^DIC(19.1,"B","XUPROGMODE",0)) -"RTN","BSDX01",245,0) - . I '+BSDXPKEY Q -"RTN","BSDX01",246,0) - . I '$D(^VA(200,BSDXDUZ,51,BSDXPKEY,0)) Q -"RTN","BSDX01",247,0) - . S BSDXPROG=1 -"RTN","BSDX01",248,0) - I BSDXPROG Q 1 -"RTN","BSDX01",249,0) ; +"RTN","BSDX01",244,0) + ;Test for programmer mode key +"RTN","BSDX01",245,0) + S BSDXPROG=0 +"RTN","BSDX01",246,0) + I $D(^DIC(19.1,"B","XUPROGMODE")) D +"RTN","BSDX01",247,0) + . S BSDXPKEY=$O(^DIC(19.1,"B","XUPROGMODE",0)) +"RTN","BSDX01",248,0) + . I '+BSDXPKEY Q +"RTN","BSDX01",249,0) + . I '$D(^VA(200,BSDXDUZ,51,BSDXPKEY,0)) Q "RTN","BSDX01",250,0) - I BSDXKEY="" Q 0 + . S BSDXPROG=1 "RTN","BSDX01",251,0) - I '$D(^DIC(19.1,"B",BSDXKEY)) Q 0 + I BSDXPROG Q 1 "RTN","BSDX01",252,0) - S BSDXIEN=$O(^DIC(19.1,"B",BSDXKEY,0)) + ; "RTN","BSDX01",253,0) - I '+BSDXIEN Q 0 + I BSDXKEY="" Q 0 "RTN","BSDX01",254,0) - I '$D(^VA(200,BSDXDUZ,51,BSDXIEN,0)) Q 0 + I '$D(^DIC(19.1,"B",BSDXKEY)) Q 0 "RTN","BSDX01",255,0) + S BSDXIEN=$O(^DIC(19.1,"B",BSDXKEY,0)) +"RTN","BSDX01",256,0) + I '+BSDXIEN Q 0 +"RTN","BSDX01",257,0) + I '$D(^VA(200,BSDXDUZ,51,BSDXIEN,0)) Q 0 +"RTN","BSDX01",258,0) Q 1 +"RTN","BSDX01",259,0) +INDIV(BSDXSC) ; PEP - Is ^SC clinic in the same DUZ(2) as user? +"RTN","BSDX01",260,0) + ; Input: BSDXSC - Hospital Location IEN +"RTN","BSDX01",261,0) + ; Output: True or False +"RTN","BSDX01",262,0) + I '+BSDXSC QUIT 1 ;If not tied to clinic, yes +"RTN","BSDX01",263,0) + I '$D(^SC(BSDXSC,0)) QUIT 1 ; If Clinic does not exist, yes +"RTN","BSDX01",264,0) + ; Jump to Division:Medical Center Division:Inst File Pointer for +"RTN","BSDX01",265,0) + ; Institution IEN (and get its internal value) +"RTN","BSDX01",266,0) + N DIV S DIV=$$GET1^DIQ(44,BSDXSC_",","3.5:.07","I") +"RTN","BSDX01",267,0) + I DIV="" Q 1 ; If clinic has no division, consider it avial to user. +"RTN","BSDX01",268,0) + I DIV=DUZ(2) Q 1 ; If same, then User is in same Div as Clinic +"RTN","BSDX01",269,0) + E Q 0 ; Otherwise, no +"RTN","BSDX01",270,0) + QUIT +"RTN","BSDX01",271,0) +INDIV2(BSDXRES) ; PEP - Is Resource in the same DUZ(2) as user? +"RTN","BSDX01",272,0) + ; Input BSDXRES - BSDX RESOURCE IEN +"RTN","BSDX01",273,0) + ; Output: True of False +"RTN","BSDX01",274,0) + Q $$INDIV($P($G(^BSDXRES(BSDXRES,0)),U,4)) ; Extract Hospital Location and send to $$INDIV +"RTN","BSDX01",275,0) +UnitTestINDIV +"RTN","BSDX01",276,0) + W "Testing if they are the same",! +"RTN","BSDX01",277,0) + S DUZ(2)=67 +"RTN","BSDX01",278,0) + I '$$INDIV(1) W "ERROR",! +"RTN","BSDX01",279,0) + I '$$INDIV(2) W "ERROR",! +"RTN","BSDX01",280,0) + W "Testing if Div not defined in 44, should be true",! +"RTN","BSDX01",281,0) + I '$$INDIV(3) W "ERROR",! +"RTN","BSDX01",282,0) + W "Testing empty string. Should be true",! +"RTN","BSDX01",283,0) + I '$$INDIV("") W "ERROR",! +"RTN","BSDX01",284,0) + W "Testing if they are different",! +"RTN","BSDX01",285,0) + S DUZ(2)=899 +"RTN","BSDX01",286,0) + I $$INDIV(1) W "ERROR",! +"RTN","BSDX01",287,0) + I $$INDIV(2) W "ERROR",! +"RTN","BSDX01",288,0) + QUIT +"RTN","BSDX01",289,0) +UnitTestINDIV2 +"RTN","BSDX01",290,0) + W "Testing if they are the same",! +"RTN","BSDX01",291,0) + S DUZ(2)=69 +"RTN","BSDX01",292,0) + I $$INDIV2(22)'=0 W "ERROR",! +"RTN","BSDX01",293,0) + I $$INDIV2(25)'=1 W "ERROR",! +"RTN","BSDX01",294,0) + I $$INDIV2(26)'=1 W "ERROR",! +"RTN","BSDX01",295,0) + I $$INDIV2(27)'=1 W "ERROR",! +"RTN","BSDX01",296,0) + QUIT "RTN","BSDX02") 0^2^B16323271 "RTN","BSDX02",1,0) BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:25pm "RTN","BSDX02",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX02",3,0) ; "RTN","BSDX02",4,0) @@ -2053,7 +2139,7 @@ ETRAP ;EP Error trap entry "RTN","BSDX03",1,0) BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX03",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX03",3,0) ; "RTN","BSDX03",4,0) @@ -2171,7 +2257,7 @@ XR4K(BSDXDA) ;EP "RTN","BSDX04",1,0) BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/15/10 12:44pm "RTN","BSDX04",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX04",3,0) ; Change Log: "RTN","BSDX04",4,0) @@ -2493,7 +2579,7 @@ STCOMM(BSDXRESN,BSDXRESD,BSDXS,BSDXAD) ; "RTN","BSDX05",1,0) BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:51pm "RTN","BSDX05",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX05",3,0) ; "RTN","BSDX05",4,0) @@ -2621,7 +2707,7 @@ STCOMM(BSDXAD) ; "RTN","BSDX06",1,0) BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 4:51pm "RTN","BSDX06",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX06",3,0) ; Change Log: "RTN","BSDX06",4,0) @@ -2745,7 +2831,7 @@ STCOMM(BSDXRESN,BSDXRESD) ;EP "RTN","BSDX07",1,0) BSDX07 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 7/18/10 2:11pm "RTN","BSDX07",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX07",3,0) ; "RTN","BSDX07",4,0) @@ -3243,11 +3329,11 @@ SP I ST+ST>$L(S),$L(S)<80 S S=S_" " G SP "RTN","BSDX07",250,0) Q "RTN","BSDX08") -0^8^B36863482 +0^8^B36787520 "RTN","BSDX08",1,0) -BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; +BSDX08 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/15/10 8:21pm "RTN","BSDX08",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX08",3,0) ; "RTN","BSDX08",4,0) @@ -3449,7 +3535,7 @@ APCAN(BSDXZ,BSDXLOC,BSDXDFN,BSDXSD) ; "RTN","BSDX08",102,0) S BSDXC("NOT")=BSDXNOT "RTN","BSDX08",103,0) - S:'+$G(BSDXCR) BSDXCR=14 ;UNKNOWN REASON + S:'+$G(BSDXCR) BSDXCR=11 ;Other "RTN","BSDX08",104,0) S BSDXC("CR")=BSDXCR "RTN","BSDX08",105,0) @@ -3597,7 +3683,7 @@ ETRAP ;EP Error trap entry "RTN","BSDX09",1,0) BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 8/16/10 4:28pm "RTN","BSDX09",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX09",3,0) ; "RTN","BSDX09",4,0) @@ -3983,7 +4069,7 @@ DFN(FILE,BSDXPAT) ; -- returns ien for file "RTN","BSDX11",1,0) BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX11",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX11",3,0) ; "RTN","BSDX11",4,0) @@ -4127,7 +4213,7 @@ INSTALLD(BMXPKG) ; "RTN","BSDX12",1,0) BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:14pm "RTN","BSDX12",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX12",3,0) ; "RTN","BSDX12",4,0) @@ -4281,7 +4367,7 @@ ERR(ERRNO) ;Error processing "RTN","BSDX13",1,0) BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:17pm "RTN","BSDX13",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX13",3,0) ; "RTN","BSDX13",4,0) @@ -4553,7 +4639,7 @@ APTINBLK(BSDXAVID) ; "RTN","BSDX14",1,0) BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX14",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX14",3,0) ; "RTN","BSDX14",4,0) @@ -4699,7 +4785,7 @@ ERROR ; "RTN","BSDX15",1,0) BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX15",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX15",3,0) ; "RTN","BSDX15",4,0) @@ -4851,7 +4937,7 @@ ETRAP ;EP Error trap entry "RTN","BSDX16",1,0) BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX16",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX16",3,0) ; "RTN","BSDX16",4,0) @@ -5063,7 +5149,7 @@ ERR(BSDXERID,ERRTXT) ;Error processing "RTN","BSDX17",1,0) BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX17",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX17",3,0) ; "RTN","BSDX17",4,0) @@ -5139,7 +5225,7 @@ SCHUSR(BSDXY) ;EP "RTN","BSDX18",1,0) BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX18",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX18",3,0) ; "RTN","BSDX18",4,0) @@ -5761,7 +5847,7 @@ MADEXST(BSDXU,BSDXR) ; "RTN","BSDX19",1,0) BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX19",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX19",3,0) ; "RTN","BSDX19",4,0) @@ -5941,7 +6027,7 @@ ERROR ; "RTN","BSDX20",1,0) BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX20",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX20",3,0) ; "RTN","BSDX20",4,0) @@ -6101,7 +6187,7 @@ ETRAP ;EP Error trap entry "RTN","BSDX21",1,0) BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:42pm "RTN","BSDX21",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX21",3,0) ; "RTN","BSDX21",4,0) @@ -6309,7 +6395,7 @@ ERROR ; "RTN","BSDX22",1,0) BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX22",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX22",3,0) ; "RTN","BSDX22",4,0) @@ -6491,7 +6577,7 @@ ERROR ; "RTN","BSDX23",1,0) BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX23",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX23",3,0) ; "RTN","BSDX23",4,0) @@ -6701,7 +6787,7 @@ RAISEVNT(BSDXY,BSDXEVENT,BSDXPARAM,BSDXSIP,BSDXSPT) ;EP "RTN","BSDX24",1,0) BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX24",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX24",3,0) ; "RTN","BSDX24",4,0) @@ -6957,7 +7043,7 @@ SEARCH(BSDXY,BSDXRES,BSDXSTRT,BSDXEND,BSDXTYPES,BSDXAMPM,BSDXWKDY) ;EP "RTN","BSDX25",1,0) BSDX25 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX25",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX25",3,0) ; "RTN","BSDX25",4,0) @@ -7189,7 +7275,7 @@ ERR(ERRNO) ;Error processing "RTN","BSDX26",1,0) BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX26",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX26",3,0) ; "RTN","BSDX26",4,0) @@ -7301,7 +7387,7 @@ ETRAP ;EP Error trap entry "RTN","BSDX27",1,0) BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:22pm "RTN","BSDX27",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX27",3,0) ; "RTN","BSDX27",4,0) @@ -7803,7 +7889,7 @@ CLDISP(BSDXY,BSDXCLST,BSDXBEG,BSDXEND) ;EP "RTN","BSDX28",1,0) BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:30pm "RTN","BSDX28",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX28",3,0) ; "RTN","BSDX28",4,0) @@ -8093,7 +8179,7 @@ ERR(ERRNO) ;Error processing "RTN","BSDX29",1,0) BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/18/10 2:03pm "RTN","BSDX29",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX29",3,0) ; "RTN","BSDX29",4,0) @@ -8505,7 +8591,7 @@ ADDMIN(BSDXSTRT,BSDXLEN) ; "RTN","BSDX2E",1,0) BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [7/18/10 4:30pm] "RTN","BSDX2E",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX2E",3,0) ; "RTN","BSDX2E",4,0) @@ -8763,7 +8849,7 @@ SORRY(XPX) ; "RTN","BSDX30",1,0) BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [ 09/12/2007 1:54 PM ] "RTN","BSDX30",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX30",3,0) ; "RTN","BSDX30",4,0) @@ -8943,7 +9029,7 @@ PEVENT(BSDXWID,DFN) ;EP - Raise patient selection event to EHR "RTN","BSDX31",1,0) BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX31",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX31",3,0) ; "RTN","BSDX31",4,0) @@ -9243,11 +9329,11 @@ IMHERE(BSDXRES) ;EP "RTN","BSDX31",151,0) ; "RTN","BSDX32") -0^30^B16265931 +0^30^B17196738 "RTN","BSDX32",1,0) -BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; +BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 9/29/10 10:21am "RTN","BSDX32",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX32",3,0) ; "RTN","BSDX32",4,0) @@ -9287,157 +9373,161 @@ HOSPLOC(BSDXY) ;EP "RTN","BSDX32",21,0) ;Called by BSDX HOSPITAL LOCATION "RTN","BSDX32",22,0) - ; + ;Returns all hospital locations that are active "RTN","BSDX32",23,0) - N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD + ; "RTN","BSDX32",24,0) - D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP") + N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA,BSDXSCOD "RTN","BSDX32",25,0) - K ^BSDXTMP($J) + D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP") "RTN","BSDX32",26,0) - S BSDXY="^BSDXTMP("_$J_")" + K ^BSDXTMP($J) "RTN","BSDX32",27,0) - S BSDXI=0 + S BSDXY="^BSDXTMP("_$J_")" "RTN","BSDX32",28,0) - ;"SELECT BSDXIEN 'HOSPITAL_LOCATION_ID', NAME 'HOSPITAL_LOCATION', DEFAULT_PROVIDER, STOP_CODE_NUMBER, INACTIVATE_DATE, REACTIVATE_DATE FROM HOSPITAL_LOCATION"; + S BSDXI=0 "RTN","BSDX32",29,0) - S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE"_$C(30) + ;"SELECT BSDXIEN 'HOSPITAL_LOCATION_ID', NAME 'HOSPITAL_LOCATION', DEFAULT_PROVIDER, STOP_CODE_NUMBER, INACTIVATE_DATE, REACTIVATE_DATE FROM HOSPITAL_LOCATION"; "RTN","BSDX32",30,0) - ; + S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030DEFAULT_PROVIDER^T00030STOP_CODE_NUMBER^D00020INACTIVATE_DATE^D00020REACTIVATE_DATE"_$C(30) "RTN","BSDX32",31,0) - S BSDXNAM="" F S BSDXNAM=$O(^SC("B",BSDXNAM)) Q:BSDXNAM="" D -"RTN","BSDX32",32,0) - . S BSDXIEN=$O(^SC("B",BSDXNAM,0)) -"RTN","BSDX32",33,0) - . Q:'+BSDXIEN>0 -"RTN","BSDX32",34,0) - . Q:'$D(^SC(+BSDXIEN,0)) -"RTN","BSDX32",35,0) - . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE -"RTN","BSDX32",36,0) - . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE -"RTN","BSDX32",37,0) - . I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date -"RTN","BSDX32",38,0) - . S BSDXNOD=^SC(BSDXIEN,0) -"RTN","BSDX32",39,0) - . S BSDXNAM=$P(BSDXNOD,U) -"RTN","BSDX32",40,0) - . S BSDXSCOD=$$GET1^DIQ(44,BSDXIEN_",",8) ;STOP CODE -"RTN","BSDX32",41,0) - . ;Calculate default provider -"RTN","BSDX32",42,0) - . S BSDXPRV="" -"RTN","BSDX32",43,0) - . I $D(^SC(BSDXIEN,"PR")) D -"RTN","BSDX32",44,0) - . . S BSDXIEN1=0 F S BSDXIEN1=$O(^SC(BSDXIEN,"PR",BSDXIEN1)) Q:'+BSDXIEN1 Q:BSDXPRV]"" D -"RTN","BSDX32",45,0) - . . . S BSDXNOD1=$G(^SC(BSDXIEN,"PR",BSDXIEN1,0)) -"RTN","BSDX32",46,0) - . . . S:$P(BSDXNOD1,U,2)="1" BSDXPRV=$$GET1^DIQ(200,$P(BSDXNOD1,U),.01) -"RTN","BSDX32",47,0) - . . . Q -"RTN","BSDX32",48,0) - . . Q -"RTN","BSDX32",49,0) - . S BSDXI=BSDXI+1 -"RTN","BSDX32",50,0) - . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_$C(30) -"RTN","BSDX32",51,0) - . Q -"RTN","BSDX32",52,0) - S BSDXI=BSDXI+1 -"RTN","BSDX32",53,0) - S ^BSDXTMP($J,BSDXI)=$C(31) -"RTN","BSDX32",54,0) - Q -"RTN","BSDX32",55,0) ; +"RTN","BSDX32",32,0) + S BSDXNAM="" F S BSDXNAM=$O(^SC("B",BSDXNAM)) Q:BSDXNAM="" D +"RTN","BSDX32",33,0) + . S BSDXIEN=$O(^SC("B",BSDXNAM,0)) +"RTN","BSDX32",34,0) + . Q:'+BSDXIEN>0 +"RTN","BSDX32",35,0) + . Q:'$D(^SC(+BSDXIEN,0)) +"RTN","BSDX32",36,0) + . ;Q:'$$INDIV^BSDX01(+BSDXIEN) ; if not in the same division, quit +"RTN","BSDX32",37,0) + . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE +"RTN","BSDX32",38,0) + . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE +"RTN","BSDX32",39,0) + . I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date +"RTN","BSDX32",40,0) + . S BSDXNOD=^SC(BSDXIEN,0) +"RTN","BSDX32",41,0) + . S BSDXNAM=$P(BSDXNOD,U) +"RTN","BSDX32",42,0) + . S BSDXSCOD=$$GET1^DIQ(44,BSDXIEN_",",8) ;STOP CODE +"RTN","BSDX32",43,0) + . ;Calculate default provider +"RTN","BSDX32",44,0) + . S BSDXPRV="" +"RTN","BSDX32",45,0) + . I $D(^SC(BSDXIEN,"PR")) D +"RTN","BSDX32",46,0) + . . S BSDXIEN1=0 F S BSDXIEN1=$O(^SC(BSDXIEN,"PR",BSDXIEN1)) Q:'+BSDXIEN1 Q:BSDXPRV]"" D +"RTN","BSDX32",47,0) + . . . S BSDXNOD1=$G(^SC(BSDXIEN,"PR",BSDXIEN1,0)) +"RTN","BSDX32",48,0) + . . . S:$P(BSDXNOD1,U,2)="1" BSDXPRV=$$GET1^DIQ(200,$P(BSDXNOD1,U),.01) +"RTN","BSDX32",49,0) + . . . Q +"RTN","BSDX32",50,0) + . . Q +"RTN","BSDX32",51,0) + . S BSDXI=BSDXI+1 +"RTN","BSDX32",52,0) + . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_$C(30) +"RTN","BSDX32",53,0) + . Q +"RTN","BSDX32",54,0) + S BSDXI=BSDXI+1 +"RTN","BSDX32",55,0) + S ^BSDXTMP($J,BSDXI)=$C(31) "RTN","BSDX32",56,0) -CLNSETD(BSDXY) ;EP Debugging entry point + Q "RTN","BSDX32",57,0) ; "RTN","BSDX32",58,0) - ;D DEBUG^%Serenji("CLNSET^BSDX32(.BSDXY)") +CLNSETD(BSDXY) ;EP Debugging entry point "RTN","BSDX32",59,0) ; "RTN","BSDX32",60,0) - Q + ;D DEBUG^%Serenji("CLNSET^BSDX32(.BSDXY)") "RTN","BSDX32",61,0) ; "RTN","BSDX32",62,0) -CLNSET(BSDXY) ;EP + Q "RTN","BSDX32",63,0) - ;Called by BSDX CLINIC SETUP -"RTN","BSDX32",64,0) - ;Returns CLINIC SETUP file entries for clinics which -"RTN","BSDX32",65,0) - ;are active in ^SC -"RTN","BSDX32",66,0) - N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA -"RTN","BSDX32",67,0) - N BSDXCRV,BSDXVSC,BSDXMULT,BSDXREQ,BSDXPCC -"RTN","BSDX32",68,0) - D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP") -"RTN","BSDX32",69,0) - K ^BSDXTMP($J) -"RTN","BSDX32",70,0) - S BSDXY="^BSDXTMP("_$J_")" -"RTN","BSDX32",71,0) - S BSDXI=0 -"RTN","BSDX32",72,0) - ;SELECT BMXIEN 'HOSPITAL_LOCATION_ID', CLINIC_NAME 'HOSPITAL_LOCATION', CREATE_VISIT_AT_CHECK-IN? 'CREATE_VISIT', VISIT_SERVICE_CATEGORY, MULTIPLE_CLINIC_CODES_USED?, VISIT_PROVIDER_REQUIRED, -"RTN","BSDX32",73,0) - ;GENERATE_PCCPLUS_FORMS? FROM CLINIC_SETUP_PARAMETERS -"RTN","BSDX32",74,0) - S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030CREATE_VISIT^T00030VISIT_SERVICE_CATEGORY^T00030MULTIPLE_CLINIC_CODES_USED?^T00030VISIT_PROVIDER_REQUIRED^T00030GENERATE_PCCPLUS_FORMS?"_$C(30) -"RTN","BSDX32",75,0) ; +"RTN","BSDX32",64,0) +CLNSET(BSDXY) ;EP +"RTN","BSDX32",65,0) + ;Called by BSDX CLINIC SETUP +"RTN","BSDX32",66,0) + ;Returns CLINIC SETUP file entries for clinics which +"RTN","BSDX32",67,0) + ;are active in ^SC +"RTN","BSDX32",68,0) + N BSDXI,BSDXIEN,BSDXNOD,BSDXNAM,BSDXINA,BSDXREA +"RTN","BSDX32",69,0) + N BSDXCRV,BSDXVSC,BSDXMULT,BSDXREQ,BSDXPCC +"RTN","BSDX32",70,0) + D ^XBKVAR S X="ERROR^BSDX32",@^%ZOSF("TRAP") +"RTN","BSDX32",71,0) + K ^BSDXTMP($J) +"RTN","BSDX32",72,0) + S BSDXY="^BSDXTMP("_$J_")" +"RTN","BSDX32",73,0) + S BSDXI=0 +"RTN","BSDX32",74,0) + ;SELECT BMXIEN 'HOSPITAL_LOCATION_ID', CLINIC_NAME 'HOSPITAL_LOCATION', CREATE_VISIT_AT_CHECK-IN? 'CREATE_VISIT', VISIT_SERVICE_CATEGORY, MULTIPLE_CLINIC_CODES_USED?, VISIT_PROVIDER_REQUIRED, +"RTN","BSDX32",75,0) + ;GENERATE_PCCPLUS_FORMS? FROM CLINIC_SETUP_PARAMETERS "RTN","BSDX32",76,0) - S BSDXIEN=0 F S BSDXIEN=$O(^BSDSC(BSDXIEN)) Q:'+BSDXIEN D + S ^BSDXTMP($J,BSDXI)="I00020HOSPITAL_LOCATION_ID^T00040HOSPITAL_LOCATION^T00030CREATE_VISIT^T00030VISIT_SERVICE_CATEGORY^T00030MULTIPLE_CLINIC_CODES_USED?^T00030VISIT_PROVIDER_REQUIRED^T00030GENERATE_PCCPLUS_FORMS?"_$C(30) "RTN","BSDX32",77,0) - . Q:'$D(^SC(+BSDXIEN,0)) + ; "RTN","BSDX32",78,0) - . Q:'$D(^BSDSC(+BSDXIEN,0)) + S BSDXIEN=0 F S BSDXIEN=$O(^BSDSC(BSDXIEN)) Q:'+BSDXIEN D "RTN","BSDX32",79,0) - . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE + . Q:'$D(^SC(+BSDXIEN,0)) "RTN","BSDX32",80,0) - . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE + . Q:'$D(^BSDSC(+BSDXIEN,0)) "RTN","BSDX32",81,0) - . I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date + . S BSDXINA=$$GET1^DIQ(44,BSDXIEN_",",2505) ;INACTIVATE "RTN","BSDX32",82,0) - . S BSDXNOD=^BSDSC(BSDXIEN,0) + . S BSDXREA=$$GET1^DIQ(44,BSDXIEN_",",2506) ;REACTIVATE "RTN","BSDX32",83,0) - . S BSDXNAM=$$GET1^DIQ(44,BSDXIEN_",",.01) + . I BSDXINA]""&(BSDXREA="") Q ;Clinic is inactivated and has no reactivate date "RTN","BSDX32",84,0) - . S BSDXCRV=$$GET1^DIQ(9009017.2,BSDXIEN_",",.09) + . S BSDXNOD=^BSDSC(BSDXIEN,0) "RTN","BSDX32",85,0) - . S BSDXVSC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.12) + . S BSDXNAM=$$GET1^DIQ(44,BSDXIEN_",",.01) "RTN","BSDX32",86,0) - . S BSDXMULT=$$GET1^DIQ(9009017.2,BSDXIEN_",",.13) + . S BSDXCRV=$$GET1^DIQ(9009017.2,BSDXIEN_",",.09) "RTN","BSDX32",87,0) - . S BSDXREQ=$$GET1^DIQ(9009017.2,BSDXIEN_",",.14) + . S BSDXVSC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.12) "RTN","BSDX32",88,0) - . S BSDXPCC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.15) + . S BSDXMULT=$$GET1^DIQ(9009017.2,BSDXIEN_",",.13) "RTN","BSDX32",89,0) - . S BSDXI=BSDXI+1 + . S BSDXREQ=$$GET1^DIQ(9009017.2,BSDXIEN_",",.14) "RTN","BSDX32",90,0) - . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXCRV_U_BSDXVSC_U_BSDXMULT_U_BSDXREQ_U_BSDXPCC_$C(30) + . S BSDXPCC=$$GET1^DIQ(9009017.2,BSDXIEN_",",.15) "RTN","BSDX32",91,0) - . Q + . S BSDXI=BSDXI+1 "RTN","BSDX32",92,0) - S BSDXI=BSDXI+1 + . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXCRV_U_BSDXVSC_U_BSDXMULT_U_BSDXREQ_U_BSDXPCC_$C(30) "RTN","BSDX32",93,0) - S ^BSDXTMP($J,BSDXI)=$C(31) + . Q "RTN","BSDX32",94,0) + S BSDXI=BSDXI+1 +"RTN","BSDX32",95,0) + S ^BSDXTMP($J,BSDXI)=$C(31) +"RTN","BSDX32",96,0) Q "RTN","BSDX33") 0^31^B14923306 "RTN","BSDX33",1,0) BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:33pm "RTN","BSDX33",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX33",3,0) ; Mods by WV/STAR "RTN","BSDX33",4,0) @@ -9693,7 +9783,7 @@ ERROR2 ; "RTN","BSDX34",1,0) BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 7/15/10 12:37pm "RTN","BSDX34",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX34",3,0) ; "RTN","BSDX34",4,0) @@ -10047,7 +10137,7 @@ ERR(ERRNO) ;Error processing "RTN","BSDX35",1,0) BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; "RTN","BSDX35",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDX35",3,0) ; "RTN","BSDX35",4,0) @@ -10193,11 +10283,11 @@ ERR(ERRNO) ;Error processing "RTN","BSDX35",74,0) Q "RTN","BSDXAPI") -0^35^B77865705 +0^35^B85422550 "RTN","BSDXAPI",1,0) -BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm +BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 9/28/10 12:36pm "RTN","BSDXAPI",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDXAPI",3,0) ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW "RTN","BSDXAPI",4,0) @@ -10205,521 +10295,551 @@ BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 4/29/10 9:42pm "RTN","BSDXAPI",5,0) ;Move to BSDX namespace as BSDXAPI from BSDAPI by WV/SMH "RTN","BSDXAPI",6,0) - ; + ; Change History: "RTN","BSDXAPI",7,0) -MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO) ; Simplified PEP w/ parameters for $$MAKE - making appointment + ; - Fixed errors having to do uncanceling patient appointments if it was a patient cancelled appointment. "RTN","BSDXAPI",8,0) - ; Call like this for DFN 23435 having an appointment at Hospital Location 33 + ; - Use new style Fileman API for storing appointments in file 44 in $$MAKE due to problems with legacy API. "RTN","BSDXAPI",9,0) - ; have 3 (scheduled) or 4 (walkin) appt at Dec 20, 2009 @ 10:11:59 for 30 minutes appt + ; "RTN","BSDXAPI",10,0) - ; for Baby foxes hallucinations. +MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO) ; Simplified PEP w/ parameters for $$MAKE - making appointment "RTN","BSDXAPI",11,0) - ; S RESULT=$$MAKE1^BSDXAPI(23435,33,(3 or 4),3091220.221159,30,"I see Baby foxes") + ; Call like this for DFN 23435 having an appointment at Hospital Location 33 "RTN","BSDXAPI",12,0) - S BSDR("PAT")=DFN ;DFN + ; have 3 (scheduled) or 4 (walkin) appt at Dec 20, 2009 @ 10:11:59 for 30 minutes appt "RTN","BSDXAPI",13,0) - S BSDR("CLN")=CLIN ;Hosp Loc IEN + ; for Baby foxes hallucinations. "RTN","BSDXAPI",14,0) - S BSDR("TYP")=TYP ;3 sched or 4 walkin + ; S RESULT=$$MAKE1^BSDXAPI(23435,33,(3 or 4),3091220.221159,30,"I see Baby foxes") "RTN","BSDXAPI",15,0) - S BSDR("ADT")=DATE ;Appointment date in FM format + S BSDR("PAT")=DFN ;DFN "RTN","BSDXAPI",16,0) - S BSDR("LEN")=LEN ;Appt len upto 240 (min) + S BSDR("CLN")=CLIN ;Hosp Loc IEN "RTN","BSDXAPI",17,0) - S BSDR("INFO")=INFO ;Reason for appt - up to 150 char + S BSDR("TYP")=TYP ;3 sched or 4 walkin "RTN","BSDXAPI",18,0) - S BSDR("USR")=DUZ ;Person who made appt - current user + S BSDR("ADT")=DATE ;Appointment date in FM format "RTN","BSDXAPI",19,0) - Q $$MAKE(.BSDR) + S BSDR("LEN")=LEN ;Appt len upto 240 (min) "RTN","BSDXAPI",20,0) - ; + S BSDR("INFO")=INFO ;Reason for appt - up to 150 char "RTN","BSDXAPI",21,0) -MAKE(BSDR) ;PEP; call to store appt made + S BSDR("USR")=DUZ ;Person who made appt - current user "RTN","BSDXAPI",22,0) - ; + Q $$MAKE(.BSDR) "RTN","BSDXAPI",23,0) - ; Make call using: S ERR=$$MAKE^BSDXAPI(.ARRAY) + ; "RTN","BSDXAPI",24,0) - ; +MAKE(BSDR) ;PEP; call to store appt made "RTN","BSDXAPI",25,0) - ; Input Array - + ; "RTN","BSDXAPI",26,0) - ; BSDR("PAT") = ien of patient in file 2 + ; Make call using: S ERR=$$MAKE^BSDXAPI(.ARRAY) "RTN","BSDXAPI",27,0) - ; BSDR("CLN") = ien of clinic in file 44 + ; "RTN","BSDXAPI",28,0) - ; BSDR("TYP") = 3 for scheduled appts, 4 for walkins + ; Input Array - "RTN","BSDXAPI",29,0) - ; BSDR("ADT") = appointment date and time + ; BSDR("PAT") = ien of patient in file 2 "RTN","BSDXAPI",30,0) - ; BSDR("LEN") = appointment length in minutes (5-120) + ; BSDR("CLN") = ien of clinic in file 44 "RTN","BSDXAPI",31,0) - ; BSDR("OI") = reason for appt - up to 150 characters + ; BSDR("TYP") = 3 for scheduled appts, 4 for walkins "RTN","BSDXAPI",32,0) - ; BSDR("USR") = user who made appt + ; BSDR("ADT") = appointment date and time "RTN","BSDXAPI",33,0) - ; + ; BSDR("LEN") = appointment length in minutes (5-120) "RTN","BSDXAPI",34,0) - ;Output: error status and message + ; BSDR("OI") = reason for appt - up to 150 characters "RTN","BSDXAPI",35,0) - ; = 0 or null: everything okay + ; BSDR("USR") = user who made appt "RTN","BSDXAPI",36,0) - ; = 1^message: error and reason + ; "RTN","BSDXAPI",37,0) - ; + ;Output: error status and message "RTN","BSDXAPI",38,0) - I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT")) + ; = 0 or null: everything okay "RTN","BSDXAPI",39,0) - I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN")) + ; = 1^message: error and reason "RTN","BSDXAPI",40,0) - I ($G(BSDR("TYP"))<3)!($G(BSDR("TYP"))>4) Q 1_U_"Appt Type error: "_$G(BSDR("TYP")) + ; "RTN","BSDXAPI",41,0) - I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12) ;remove seconds -"RTN","BSDXAPI",42,0) - I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT")) -"RTN","BSDXAPI",43,0) - ; -"RTN","BSDXAPI",44,0) - I ($G(BSDR("LEN"))<5)!($G(BSDR("LEN"))>240) Q 1_U_"Appt Length error: "_$G(BSDR("LEN")) -"RTN","BSDXAPI",45,0) - I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Made Appt Error: "_$G(BSDR("USR")) -"RTN","BSDXAPI",46,0) - I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)'="C" Q 1_U_"Patient "_BSDR("PAT")_" already has appt at "_BSDR("ADT") -"RTN","BSDXAPI",47,0) - ; -"RTN","BSDXAPI",48,0) - NEW DIC,DA,Y,X,DD,DO,DLAYGO -"RTN","BSDXAPI",49,0) - ; -"RTN","BSDXAPI",50,0) - I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)="C" D -"RTN","BSDXAPI",51,0) - . ; "un-cancel" existing appt in file 2 -"RTN","BSDXAPI",52,0) - . N BSDXFDA,BSDXIENS,BSDXMSG -"RTN","BSDXAPI",53,0) - . S BSDXIENS=BSDR("ADT")_","_BSDR("PAT")_"," -"RTN","BSDXAPI",54,0) - . S BSDXFDA(2.98,BSDXIENS,".01")=BSDR("CLN") -"RTN","BSDXAPI",55,0) - . S BSDXFDA(2.98,BSDXIENS,"3")="" -"RTN","BSDXAPI",56,0) - . S BSDXFDA(2.98,BSDXIENS,"9")=BSDR("TYP") -"RTN","BSDXAPI",57,0) - . S BSDXFDA(2.98,BSDXIENS,"9.5")=9 -"RTN","BSDXAPI",58,0) - . S BSDXFDA(2.98,BSDXIENS,"14")="" -"RTN","BSDXAPI",59,0) - . S BSDXFDA(2.98,BSDXIENS,"15")="" -"RTN","BSDXAPI",60,0) - . S BSDXFDA(2.98,BSDXIENS,"16")="" -"RTN","BSDXAPI",61,0) - . S BSDXFDA(2.98,BSDXIENS,"19")="" -"RTN","BSDXAPI",62,0) - . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT -"RTN","BSDXAPI",63,0) - . D FILE^DIE("","BSDXFDA","BSDXMSG") -"RTN","BSDXAPI",64,0) - . N BSDXTEMP S BSDXTEMP=$G(BSDXMSG) -"RTN","BSDXAPI",65,0) - E D I $G(BSDXERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT") -"RTN","BSDXAPI",66,0) - . N BSDXFDA,BSDXIENS,BSDXMSG -"RTN","BSDXAPI",67,0) - . S BSDXIENS="?+2,"_BSDR("PAT")_"," -"RTN","BSDXAPI",68,0) - . S BSDXIENS(2)=BSDR("ADT") -"RTN","BSDXAPI",69,0) - . S BSDXFDA(2.98,BSDXIENS,.01)=BSDR("CLN") -"RTN","BSDXAPI",70,0) - . S BSDXFDA(2.98,BSDXIENS,"9")=BSDR("TYP") -"RTN","BSDXAPI",71,0) - . S BSDXFDA(2.98,BSDXIENS,"9.5")=9 -"RTN","BSDXAPI",72,0) - . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT -"RTN","BSDXAPI",73,0) - . D UPDATE^DIE("","BSDXFDA","BSDXIENS","BSDXERR(1)") -"RTN","BSDXAPI",74,0) - ; add appt to file 44 -"RTN","BSDXAPI",75,0) - K DIC,DA,X,Y,DLAYGO,DD,DO -"RTN","BSDXAPI",76,0) - I '$D(^SC(BSDR("CLN"),"S",0)) S ^SC(BSDR("CLN"),"S",0)="^44.001DA^^" -"RTN","BSDXAPI",77,0) - I '$D(^SC(BSDR("CLN"),"S",BSDR("ADT"),0)) D I Y<1 Q 1_U_"Error adding date to file 44: Clinic="_BSDR("CLN")_" Date="_BSDR("ADT") -"RTN","BSDXAPI",78,0) - . S DIC="^SC("_BSDR("CLN")_",""S"",",DA(1)=BSDR("CLN"),(X,DINUM)=BSDR("ADT") -"RTN","BSDXAPI",79,0) - . S DIC("P")="44.001DA",DIC(0)="L",DLAYGO=44.001 -"RTN","BSDXAPI",80,0) - . S Y=1 I '$D(@(DIC_X_")")) D FILE^DICN -"RTN","BSDXAPI",81,0) - ; -"RTN","BSDXAPI",82,0) - K DIC,DA,X,Y,DLAYGO,DD,DO,DINUM -"RTN","BSDXAPI",83,0) - S DIC="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," -"RTN","BSDXAPI",84,0) - S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),X=BSDR("PAT") -"RTN","BSDXAPI",85,0) - S DIC("DR")="1///"_BSDR("LEN")_";3///"_$E($G(BSDR("OI")),1,150)_";7///`"_BSDR("USR")_";8///"_$P($$NOW^XLFDT,".") -"RTN","BSDXAPI",86,0) - S DIC("P")="44.003PA",DIC(0)="L",DLAYGO=44.003 -"RTN","BSDXAPI",87,0) - D FILE^DICN -"RTN","BSDXAPI",88,0) - ; -"RTN","BSDXAPI",89,0) - ; call event driver -"RTN","BSDXAPI",90,0) - NEW DFN,SDT,SDCL,SDDA,SDMODE -"RTN","BSDXAPI",91,0) - S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2 -"RTN","BSDXAPI",92,0) - S SDDA=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) -"RTN","BSDXAPI",93,0) - D MAKE^SDAMEVT(DFN,SDT,SDCL,SDDA,SDMODE) -"RTN","BSDXAPI",94,0) - Q 0 -"RTN","BSDXAPI",95,0) - ; -"RTN","BSDXAPI",96,0) -CHECKIN1(DFN,CLIN,APDATE) ; Simplified PEP w/ parameters for $$CHECKIN - Checking in -"RTN","BSDXAPI",97,0) - ; Call like this for DFN 23435 checking in now at Hospital Location 33 -"RTN","BSDXAPI",98,0) - ; for appt at Dec 20, 2009 @ 10:11:59 -"RTN","BSDXAPI",99,0) - ; S RESULT=$$CHECKIN1^BSDXAPI(23435,33,3091220.221159) -"RTN","BSDXAPI",100,0) - S BSDR("PAT")=DFN ;DFN -"RTN","BSDXAPI",101,0) - S BSDR("CLN")=CLIN ;Hosp Loc IEN -"RTN","BSDXAPI",102,0) - S BSDR("ADT")=APDATE ;Appt Date -"RTN","BSDXAPI",103,0) - S BSDR("CDT")=$$NOW^XLFDT ;Check-in date defaults to now -"RTN","BSDXAPI",104,0) - S BSDR("USR")=DUZ ;Check-in user defaults to current -"RTN","BSDXAPI",105,0) - Q $$CHECKIN(.BSDR) -"RTN","BSDXAPI",106,0) - ; -"RTN","BSDXAPI",107,0) -CHECKIN(BSDR) ;EP; call to add checkin info to appt; IHS/ITSC/LJF 12/23/2004 PATCH 1002 -"RTN","BSDXAPI",108,0) - ; -"RTN","BSDXAPI",109,0) - ; Make call by using: S ERR=$$CHECKIN^BSDXAPI(.ARRAY) -"RTN","BSDXAPI",110,0) - ; -"RTN","BSDXAPI",111,0) - ; Input array - -"RTN","BSDXAPI",112,0) - ; BSDR("PAT") = ien of patient in file 2 -"RTN","BSDXAPI",113,0) - ; BSDR("CLN") = ien of clinic in file 44 -"RTN","BSDXAPI",114,0) - ; BSDR("ADT") = appt date/time -"RTN","BSDXAPI",115,0) - ; BSDR("CDT") = checkin date/time -"RTN","BSDXAPI",116,0) - ; BSDR("USR") = checkin user -"RTN","BSDXAPI",117,0) - ; -"RTN","BSDXAPI",118,0) - ; Output value - -"RTN","BSDXAPI",119,0) - ; = 0 means everything worked -"RTN","BSDXAPI",120,0) - ; = 1^message means error with reason message -"RTN","BSDXAPI",121,0) - ; -"RTN","BSDXAPI",122,0) I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT")) -"RTN","BSDXAPI",123,0) +"RTN","BSDXAPI",42,0) I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN")) -"RTN","BSDXAPI",124,0) +"RTN","BSDXAPI",43,0) + I ($G(BSDR("TYP"))<3)!($G(BSDR("TYP"))>4) Q 1_U_"Appt Type error: "_$G(BSDR("TYP")) +"RTN","BSDXAPI",44,0) I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12) ;remove seconds -"RTN","BSDXAPI",125,0) +"RTN","BSDXAPI",45,0) I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT")) -"RTN","BSDXAPI",126,0) - I $G(BSDR("CDT")) S BSDR("CDT")=+$E(BSDR("CDT"),1,12) ;remove seconds -"RTN","BSDXAPI",127,0) - I $G(BSDR("CDT"))'?7N1".".4N Q 1_U_"Checkin Date/Time error: "_$G(BSDR("CDT")) -"RTN","BSDXAPI",128,0) +"RTN","BSDXAPI",46,0) + ; +"RTN","BSDXAPI",47,0) + I ($G(BSDR("LEN"))<5)!($G(BSDR("LEN"))>240) Q 1_U_"Appt Length error: "_$G(BSDR("LEN")) +"RTN","BSDXAPI",48,0) I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Made Appt Error: "_$G(BSDR("USR")) -"RTN","BSDXAPI",129,0) +"RTN","BSDXAPI",49,0) + I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)'["C" Q 1_U_"Patient "_BSDR("PAT")_" already has appt at "_BSDR("ADT") +"RTN","BSDXAPI",50,0) ; -"RTN","BSDXAPI",130,0) - ; find ien for appt in file 44 -"RTN","BSDXAPI",131,0) - NEW IEN,DIE,DA,DR -"RTN","BSDXAPI",132,0) - S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) -"RTN","BSDXAPI",133,0) - I 'IEN Q 1_U_"Error trying to find appointment for checkin: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") -"RTN","BSDXAPI",134,0) +"RTN","BSDXAPI",51,0) + NEW DIC,DA,Y,X,DD,DO,DLAYGO +"RTN","BSDXAPI",52,0) ; -"RTN","BSDXAPI",135,0) - ; remember before status -"RTN","BSDXAPI",136,0) - NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL -"RTN","BSDXAPI",137,0) - S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN -"RTN","BSDXAPI",138,0) - S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL -"RTN","BSDXAPI",139,0) - D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) -"RTN","BSDXAPI",140,0) +"RTN","BSDXAPI",53,0) + I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)["C" D +"RTN","BSDXAPI",54,0) + . ; "un-cancel" existing appt in file 2 +"RTN","BSDXAPI",55,0) + . N BSDXFDA,BSDXIENS,BSDXMSG +"RTN","BSDXAPI",56,0) + . S BSDXIENS=BSDR("ADT")_","_BSDR("PAT")_"," +"RTN","BSDXAPI",57,0) + . S BSDXFDA(2.98,BSDXIENS,".01")=BSDR("CLN") +"RTN","BSDXAPI",58,0) + . S BSDXFDA(2.98,BSDXIENS,"3")="" +"RTN","BSDXAPI",59,0) + . S BSDXFDA(2.98,BSDXIENS,"9")=BSDR("TYP") +"RTN","BSDXAPI",60,0) + . S BSDXFDA(2.98,BSDXIENS,"9.5")=9 +"RTN","BSDXAPI",61,0) + . S BSDXFDA(2.98,BSDXIENS,"14")="" +"RTN","BSDXAPI",62,0) + . S BSDXFDA(2.98,BSDXIENS,"15")="" +"RTN","BSDXAPI",63,0) + . S BSDXFDA(2.98,BSDXIENS,"16")="" +"RTN","BSDXAPI",64,0) + . S BSDXFDA(2.98,BSDXIENS,"19")="" +"RTN","BSDXAPI",65,0) + . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT +"RTN","BSDXAPI",66,0) + . D FILE^DIE("","BSDXFDA","BSDXMSG") +"RTN","BSDXAPI",67,0) + . N BSDXTEMP S BSDXTEMP=$G(BSDXMSG) +"RTN","BSDXAPI",68,0) + E D I $G(BSDXERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT") +"RTN","BSDXAPI",69,0) + . N BSDXFDA,BSDXIENS,BSDXMSG +"RTN","BSDXAPI",70,0) + . S BSDXIENS="?+2,"_BSDR("PAT")_"," +"RTN","BSDXAPI",71,0) + . S BSDXIENS(2)=BSDR("ADT") +"RTN","BSDXAPI",72,0) + . S BSDXFDA(2.98,BSDXIENS,.01)=BSDR("CLN") +"RTN","BSDXAPI",73,0) + . S BSDXFDA(2.98,BSDXIENS,"9")=BSDR("TYP") +"RTN","BSDXAPI",74,0) + . S BSDXFDA(2.98,BSDXIENS,"9.5")=9 +"RTN","BSDXAPI",75,0) + . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT +"RTN","BSDXAPI",76,0) + . D UPDATE^DIE("","BSDXFDA","BSDXIENS","BSDXERR(1)") +"RTN","BSDXAPI",77,0) + ; add appt to file 44 +"RTN","BSDXAPI",78,0) + K DIC,DA,X,Y,DLAYGO,DD,DO +"RTN","BSDXAPI",79,0) + I '$D(^SC(BSDR("CLN"),"S",0)) S ^SC(BSDR("CLN"),"S",0)="^44.001DA^^" +"RTN","BSDXAPI",80,0) + I '$D(^SC(BSDR("CLN"),"S",BSDR("ADT"),0)) D I Y<1 Q 1_U_"Error adding date to file 44: Clinic="_BSDR("CLN")_" Date="_BSDR("ADT") +"RTN","BSDXAPI",81,0) + . S DIC="^SC("_BSDR("CLN")_",""S"",",DA(1)=BSDR("CLN"),(X,DINUM)=BSDR("ADT") +"RTN","BSDXAPI",82,0) + . S DIC("P")="44.001DA",DIC(0)="L",DLAYGO=44.001 +"RTN","BSDXAPI",83,0) + . S Y=1 I '$D(@(DIC_X_")")) D FILE^DICN +"RTN","BSDXAPI",84,0) ; -"RTN","BSDXAPI",141,0) - ; set checkin -"RTN","BSDXAPI",142,0) - S DIE="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," -"RTN","BSDXAPI",143,0) - S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN -"RTN","BSDXAPI",144,0) - S DR="309///"_BSDR("CDT")_";302///`"_BSDR("USR")_";305///"_$$NOW^XLFDT -"RTN","BSDXAPI",145,0) - D ^DIE -"RTN","BSDXAPI",146,0) +"RTN","BSDXAPI",85,0) + ; Sep 28 2010: Changed old style API to new style API. Keep for reference //smh +"RTN","BSDXAPI",86,0) + ;K DIC,DA,X,Y,DLAYGO,DD,DO,DINUM +"RTN","BSDXAPI",87,0) + ;S DIC="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," +"RTN","BSDXAPI",88,0) + ;S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),X=BSDR("PAT") +"RTN","BSDXAPI",89,0) + ;S DIC("DR")="1///"_BSDR("LEN")_";3///"_$E($G(BSDR("OI")),1,150)_";7///`"_BSDR("USR")_";8///"_$P($$NOW^XLFDT,".") +"RTN","BSDXAPI",90,0) + ;S DIC("P")="44.003PA",DIC(0)="L",DLAYGO=44.003 +"RTN","BSDXAPI",91,0) + ;D FILE^DICN +"RTN","BSDXAPI",92,0) ; -"RTN","BSDXAPI",147,0) - ; set after status -"RTN","BSDXAPI",148,0) - S SDDA=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) -"RTN","BSDXAPI",149,0) - S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL -"RTN","BSDXAPI",150,0) - D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) -"RTN","BSDXAPI",151,0) +"RTN","BSDXAPI",93,0) + N BSDXIENS S BSDXIENS="?+1,"_BSDR("ADT")_","_BSDR("CLN")_"," +"RTN","BSDXAPI",94,0) + N BSDXFDA +"RTN","BSDXAPI",95,0) + S BSDXFDA(44.003,BSDXIENS,.01)=BSDR("PAT") +"RTN","BSDXAPI",96,0) + S BSDXFDA(44.003,BSDXIENS,1)=BSDR("LEN") +"RTN","BSDXAPI",97,0) + S BSDXFDA(44.003,BSDXIENS,3)=$E($G(BSDR("OI")),1,150) +"RTN","BSDXAPI",98,0) + S BSDXFDA(44.003,BSDXIENS,7)=BSDR("USR") +"RTN","BSDXAPI",99,0) + S BSDXFDA(44.003,BSDXIENS,8)=$P($$NOW^XLFDT,".") +"RTN","BSDXAPI",100,0) + N BSDXERR +"RTN","BSDXAPI",101,0) + D UPDATE^DIE("","BSDXFDA","","BSDXERR") +"RTN","BSDXAPI",102,0) ; -"RTN","BSDXAPI",152,0) +"RTN","BSDXAPI",103,0) + I $D(BSDXERR) Q 1_U_"Error adding appt to file 44: Clinic="_BSDR("CLN")_" Date="_BSDR("ADT")_" Patient="_BSDR("PAT")_" Error: "_BSDXERR("DIERR",1,"TEXT",1) +"RTN","BSDXAPI",104,0) + ; +"RTN","BSDXAPI",105,0) ; call event driver -"RTN","BSDXAPI",153,0) - D EVT^SDAMEVT(.SDATA,4,SDMODE,SDCIHDL) -"RTN","BSDXAPI",154,0) +"RTN","BSDXAPI",106,0) + NEW DFN,SDT,SDCL,SDDA,SDMODE +"RTN","BSDXAPI",107,0) + S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2 +"RTN","BSDXAPI",108,0) + S SDDA=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) +"RTN","BSDXAPI",109,0) + D MAKE^SDAMEVT(DFN,SDT,SDCL,SDDA,SDMODE) +"RTN","BSDXAPI",110,0) Q 0 -"RTN","BSDXAPI",155,0) +"RTN","BSDXAPI",111,0) ; +"RTN","BSDXAPI",112,0) +CHECKIN1(DFN,CLIN,APDATE) ; Simplified PEP w/ parameters for $$CHECKIN - Checking in +"RTN","BSDXAPI",113,0) + ; Call like this for DFN 23435 checking in now at Hospital Location 33 +"RTN","BSDXAPI",114,0) + ; for appt at Dec 20, 2009 @ 10:11:59 +"RTN","BSDXAPI",115,0) + ; S RESULT=$$CHECKIN1^BSDXAPI(23435,33,3091220.221159) +"RTN","BSDXAPI",116,0) + S BSDR("PAT")=DFN ;DFN +"RTN","BSDXAPI",117,0) + S BSDR("CLN")=CLIN ;Hosp Loc IEN +"RTN","BSDXAPI",118,0) + S BSDR("ADT")=APDATE ;Appt Date +"RTN","BSDXAPI",119,0) + S BSDR("CDT")=$$NOW^XLFDT ;Check-in date defaults to now +"RTN","BSDXAPI",120,0) + S BSDR("USR")=DUZ ;Check-in user defaults to current +"RTN","BSDXAPI",121,0) + Q $$CHECKIN(.BSDR) +"RTN","BSDXAPI",122,0) + ; +"RTN","BSDXAPI",123,0) +CHECKIN(BSDR) ;EP; call to add checkin info to appt; IHS/ITSC/LJF 12/23/2004 PATCH 1002 +"RTN","BSDXAPI",124,0) + ; +"RTN","BSDXAPI",125,0) + ; Make call by using: S ERR=$$CHECKIN^BSDXAPI(.ARRAY) +"RTN","BSDXAPI",126,0) + ; +"RTN","BSDXAPI",127,0) + ; Input array - +"RTN","BSDXAPI",128,0) + ; BSDR("PAT") = ien of patient in file 2 +"RTN","BSDXAPI",129,0) + ; BSDR("CLN") = ien of clinic in file 44 +"RTN","BSDXAPI",130,0) + ; BSDR("ADT") = appt date/time +"RTN","BSDXAPI",131,0) + ; BSDR("CDT") = checkin date/time +"RTN","BSDXAPI",132,0) + ; BSDR("USR") = checkin user +"RTN","BSDXAPI",133,0) + ; +"RTN","BSDXAPI",134,0) + ; Output value - +"RTN","BSDXAPI",135,0) + ; = 0 means everything worked +"RTN","BSDXAPI",136,0) + ; = 1^message means error with reason message +"RTN","BSDXAPI",137,0) + ; +"RTN","BSDXAPI",138,0) + I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT")) +"RTN","BSDXAPI",139,0) + I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN")) +"RTN","BSDXAPI",140,0) + I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12) ;remove seconds +"RTN","BSDXAPI",141,0) + I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT")) +"RTN","BSDXAPI",142,0) + I $G(BSDR("CDT")) S BSDR("CDT")=+$E(BSDR("CDT"),1,12) ;remove seconds +"RTN","BSDXAPI",143,0) + I $G(BSDR("CDT"))'?7N1".".4N Q 1_U_"Checkin Date/Time error: "_$G(BSDR("CDT")) +"RTN","BSDXAPI",144,0) + I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Made Appt Error: "_$G(BSDR("USR")) +"RTN","BSDXAPI",145,0) + ; +"RTN","BSDXAPI",146,0) + ; find ien for appt in file 44 +"RTN","BSDXAPI",147,0) + NEW IEN,DIE,DA,DR +"RTN","BSDXAPI",148,0) + S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) +"RTN","BSDXAPI",149,0) + I 'IEN Q 1_U_"Error trying to find appointment for checkin: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") +"RTN","BSDXAPI",150,0) + ; +"RTN","BSDXAPI",151,0) + ; remember before status +"RTN","BSDXAPI",152,0) + NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL +"RTN","BSDXAPI",153,0) + S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN +"RTN","BSDXAPI",154,0) + S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL +"RTN","BSDXAPI",155,0) + D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) "RTN","BSDXAPI",156,0) -CANCEL1(DFN,CLIN,TYP,APDATE,REASON,INFO) ; PEP w/ parameters for $$CANCEL - cancelling appointment + ; "RTN","BSDXAPI",157,0) - ; Call like this for DFN 23435 cancelling an appointment at Hospital Location 33, + ; set checkin "RTN","BSDXAPI",158,0) - ; cancellation initiated by patient ("PC" rather than clinic "C"), + S DIE="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," "RTN","BSDXAPI",159,0) - ; cancelling appt at Dec 20, 2009 @ 10:11:59 because of reason 1 in file 409.2 IEN (weather) + S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN "RTN","BSDXAPI",160,0) - ; because foxes come out during bad weather. + S DR="309///"_BSDR("CDT")_";302///`"_BSDR("USR")_";305///"_$$NOW^XLFDT "RTN","BSDXAPI",161,0) - ; S RESULT=$$CANCEL1^BSDXAPI(23435,33,"PC",3091220.221159,1,"Afraid of foxes") + D ^DIE "RTN","BSDXAPI",162,0) - S BSDR("PAT")=DFN + ; "RTN","BSDXAPI",163,0) - S BSDR("CLN")=CLIN + ; set after status "RTN","BSDXAPI",164,0) - S BSDR("TYP")=TYP + S SDDA=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) "RTN","BSDXAPI",165,0) - S BSDR("ADT")=APDATE + S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL "RTN","BSDXAPI",166,0) - S BSDR("CDT")=$$NOW^XLFDT + D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL) "RTN","BSDXAPI",167,0) - S BSDR("USR")=DUZ + ; "RTN","BSDXAPI",168,0) - S BSDR("CR")=REASON + ; call event driver "RTN","BSDXAPI",169,0) - S BSDR("NOT")=INFO + D EVT^SDAMEVT(.SDATA,4,SDMODE,SDCIHDL) "RTN","BSDXAPI",170,0) - Q $$CANCEL(.BSDR) + Q 0 "RTN","BSDXAPI",171,0) ; "RTN","BSDXAPI",172,0) -CANCEL(BSDR) ;PEP; called to cancel appt +CANCEL1(DFN,CLIN,TYP,APDATE,REASON,INFO) ; PEP w/ parameters for $$CANCEL - cancelling appointment "RTN","BSDXAPI",173,0) - ; + ; Call like this for DFN 23435 cancelling an appointment at Hospital Location 33, "RTN","BSDXAPI",174,0) - ; Make call using: S ERR=$$CANCEL^BSDXAPI(.ARRAY) + ; cancellation initiated by patient ("PC" rather than clinic "C"), "RTN","BSDXAPI",175,0) - ; + ; cancelling appt at Dec 20, 2009 @ 10:11:59 because of reason 1 in file 409.2 IEN (weather) "RTN","BSDXAPI",176,0) - ; Input Array - + ; because foxes come out during bad weather. "RTN","BSDXAPI",177,0) - ; BSDR("PAT") = ien of patient in file 2 + ; S RESULT=$$CANCEL1^BSDXAPI(23435,33,"PC",3091220.221159,1,"Afraid of foxes") "RTN","BSDXAPI",178,0) - ; BSDR("CLN") = ien of clinic in file 44 + S BSDR("PAT")=DFN "RTN","BSDXAPI",179,0) - ; BSDR("TYP") = C for canceled by clinic; PC for patient canceled + S BSDR("CLN")=CLIN "RTN","BSDXAPI",180,0) - ; BSDR("ADT") = appointment date and time + S BSDR("TYP")=TYP "RTN","BSDXAPI",181,0) - ; BSDR("CDT") = cancel date and time + S BSDR("ADT")=APDATE "RTN","BSDXAPI",182,0) - ; BSDR("USR") = user who canceled appt + S BSDR("CDT")=$$NOW^XLFDT "RTN","BSDXAPI",183,0) - ; BSDR("CR") = cancel reason - pointer to file 409.2 + S BSDR("USR")=DUZ "RTN","BSDXAPI",184,0) - ; BSDR("NOT") = cancel remarks - optional notes to 160 characters + S BSDR("CR")=REASON "RTN","BSDXAPI",185,0) - ; + S BSDR("NOT")=INFO "RTN","BSDXAPI",186,0) - ;Output: error status and message + Q $$CANCEL(.BSDR) "RTN","BSDXAPI",187,0) - ; = 0 or null: everything okay + ; "RTN","BSDXAPI",188,0) - ; = 1^message: error and reason +CANCEL(BSDR) ;PEP; called to cancel appt "RTN","BSDXAPI",189,0) ; "RTN","BSDXAPI",190,0) - I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT")) + ; Make call using: S ERR=$$CANCEL^BSDXAPI(.ARRAY) "RTN","BSDXAPI",191,0) - I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN")) + ; "RTN","BSDXAPI",192,0) - I ($G(BSDR("TYP"))'="C"),($G(BSDR("TYP"))'="PC") Q 1_U_"Cancel Status error: "_$G(BSDR("TYP")) + ; Input Array - "RTN","BSDXAPI",193,0) - I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12) ;remove seconds + ; BSDR("PAT") = ien of patient in file 2 "RTN","BSDXAPI",194,0) - I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT")) + ; BSDR("CLN") = ien of clinic in file 44 "RTN","BSDXAPI",195,0) - I $G(BSDR("CDT")) S BSDR("CDT")=+$E(BSDR("CDT"),1,12) ;remove seconds + ; BSDR("TYP") = C for canceled by clinic; PC for patient canceled "RTN","BSDXAPI",196,0) - I $G(BSDR("CDT"))'?7N1".".4N Q 1_U_"Cancel Date/Time error: "_$G(BSDR("CDT")) + ; BSDR("ADT") = appointment date and time "RTN","BSDXAPI",197,0) - I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Canceled Appt Error: "_$G(BSDR("USR")) + ; BSDR("CDT") = cancel date and time "RTN","BSDXAPI",198,0) - I '$D(^SD(409.2,+$G(BSDR("CR")))) Q 1_U_"Cancel Reason error: "_$G(BSDR("CR")) + ; BSDR("USR") = user who canceled appt "RTN","BSDXAPI",199,0) - ; + ; BSDR("CR") = cancel reason - pointer to file 409.2 "RTN","BSDXAPI",200,0) - NEW IEN,DIE,DA,DR + ; BSDR("NOT") = cancel remarks - optional notes to 160 characters "RTN","BSDXAPI",201,0) - S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) -"RTN","BSDXAPI",202,0) - I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") -"RTN","BSDXAPI",203,0) ; +"RTN","BSDXAPI",202,0) + ;Output: error status and message +"RTN","BSDXAPI",203,0) + ; = 0 or null: everything okay "RTN","BSDXAPI",204,0) - I $$CI(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Patient already checked in; cannot cancel until checkin deleted: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") + ; = 1^message: error and reason "RTN","BSDXAPI",205,0) ; "RTN","BSDXAPI",206,0) - ; remember before status + I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT")) "RTN","BSDXAPI",207,0) - NEW SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL + I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN")) "RTN","BSDXAPI",208,0) - S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN + I ($G(BSDR("TYP"))'="C"),($G(BSDR("TYP"))'="PC") Q 1_U_"Cancel Status error: "_$G(BSDR("TYP")) "RTN","BSDXAPI",209,0) - S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL + I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12) ;remove seconds "RTN","BSDXAPI",210,0) - D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL) + I $G(BSDR("ADT"))'?7N1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT")) "RTN","BSDXAPI",211,0) - ; + I $G(BSDR("CDT")) S BSDR("CDT")=+$E(BSDR("CDT"),1,12) ;remove seconds "RTN","BSDXAPI",212,0) - ; get user who made appt and date appt made from ^SC + I $G(BSDR("CDT"))'?7N1".".4N Q 1_U_"Cancel Date/Time error: "_$G(BSDR("CDT")) "RTN","BSDXAPI",213,0) - ; because data in ^SC will be deleted + I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Canceled Appt Error: "_$G(BSDR("USR")) "RTN","BSDXAPI",214,0) - NEW USER,DATE + I '$D(^SD(409.2,+$G(BSDR("CR")))) Q 1_U_"Cancel Reason error: "_$G(BSDR("CR")) "RTN","BSDXAPI",215,0) - S USER=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,6) + ; "RTN","BSDXAPI",216,0) - S DATE=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,7) + NEW IEN,DIE,DA,DR "RTN","BSDXAPI",217,0) - ; + S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT")) "RTN","BSDXAPI",218,0) - ; update file 2 info + I 'IEN Q 1_U_"Error trying to find appointment for cancel: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") "RTN","BSDXAPI",219,0) - NEW DIE,DA,DR + ; "RTN","BSDXAPI",220,0) - S DIE="^DPT("_DFN_",""S"",",DA(1)=DFN,DA=SDT + I $$CI(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Patient already checked in; cannot cancel until checkin deleted: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT") "RTN","BSDXAPI",221,0) - S DR="3///"_BSDR("TYP")_";14///`"_BSDR("USR")_";15///"_BSDR("CDT")_";16///`"_BSDR("CR")_";19///`"_USER_";20///"_DATE + ; "RTN","BSDXAPI",222,0) - S:$G(BSDR("NOT"))]"" DR=DR_";17///"_$E(BSDR("NOT"),1,160) + ; remember before status "RTN","BSDXAPI",223,0) - D ^DIE + NEW SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL "RTN","BSDXAPI",224,0) - ; + S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN "RTN","BSDXAPI",225,0) - ; delete data in ^SC + S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL "RTN","BSDXAPI",226,0) - NEW DIK,DA + D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL) "RTN","BSDXAPI",227,0) - S DIK="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," + ; "RTN","BSDXAPI",228,0) - S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN + ; get user who made appt and date appt made from ^SC "RTN","BSDXAPI",229,0) - D ^DIK + ; because data in ^SC will be deleted "RTN","BSDXAPI",230,0) - ; + NEW USER,DATE "RTN","BSDXAPI",231,0) - ; call event driver + S USER=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,6) "RTN","BSDXAPI",232,0) - D CANCEL^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDCPHDL) + S DATE=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,7) "RTN","BSDXAPI",233,0) - Q 0 + ; "RTN","BSDXAPI",234,0) - ; + ; update file 2 info "RTN","BSDXAPI",235,0) -CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in + NEW DIE,DA,DR "RTN","BSDXAPI",236,0) - NEW X + S DIE="^DPT("_DFN_",""S"",",DA(1)=DFN,DA=SDT "RTN","BSDXAPI",237,0) - S X=$G(SDIEN) ;ien sent in call + S DR="3///"_BSDR("TYP")_";14///`"_BSDR("USR")_";15///"_BSDR("CDT")_";16///`"_BSDR("CR")_";19///`"_USER_";20///"_DATE "RTN","BSDXAPI",238,0) - I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0 + S:$G(BSDR("NOT"))]"" DR=DR_";17///"_$E(BSDR("NOT"),1,160) "RTN","BSDXAPI",239,0) - S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U) + D ^DIE "RTN","BSDXAPI",240,0) - Q $S(X:1,1:0) + ; "RTN","BSDXAPI",241,0) - ; + ; delete data in ^SC "RTN","BSDXAPI",242,0) -SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC + NEW DIK,DA "RTN","BSDXAPI",243,0) - NEW X,IEN + S DIK="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1," "RTN","BSDXAPI",244,0) - S X=0 F S X=$O(^SC(CLINIC,"S",DATE,1,X)) Q:'X Q:$G(IEN) D + S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN "RTN","BSDXAPI",245,0) - . Q:$P($G(^SC(CLINIC,"S",DATE,1,X,0)),U,9)="C" ;cancelled + D ^DIK "RTN","BSDXAPI",246,0) - . I +$G(^SC(CLINIC,"S",DATE,1,X,0))=PAT S IEN=X + ; "RTN","BSDXAPI",247,0) - Q $G(IEN) + ; call event driver "RTN","BSDXAPI",248,0) - ; + D CANCEL^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDCPHDL) "RTN","BSDXAPI",249,0) -APPTYP(PAT,DATE) ;PEP; -- returns type of appt (scheduled or walk-in) + Q 0 "RTN","BSDXAPI",250,0) - NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7) + ; "RTN","BSDXAPI",251,0) - Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??") +CI(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-in "RTN","BSDXAPI",252,0) - ; -"RTN","BSDXAPI",253,0) -CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out -"RTN","BSDXAPI",254,0) NEW X -"RTN","BSDXAPI",255,0) +"RTN","BSDXAPI",253,0) S X=$G(SDIEN) ;ien sent in call -"RTN","BSDXAPI",256,0) +"RTN","BSDXAPI",254,0) I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0 -"RTN","BSDXAPI",257,0) - S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3) -"RTN","BSDXAPI",258,0) +"RTN","BSDXAPI",255,0) + S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U) +"RTN","BSDXAPI",256,0) Q $S(X:1,1:0) -"RTN","BSDXAPI",259,0) +"RTN","BSDXAPI",257,0) ; +"RTN","BSDXAPI",258,0) +SCIEN(PAT,CLINIC,DATE) ;PEP; returns ien for appt in ^SC +"RTN","BSDXAPI",259,0) + NEW X,IEN "RTN","BSDXAPI",260,0) - + S X=0 F S X=$O(^SC(CLINIC,"S",DATE,1,X)) Q:'X Q:$G(IEN) D +"RTN","BSDXAPI",261,0) + . Q:$P($G(^SC(CLINIC,"S",DATE,1,X,0)),U,9)="C" ;cancelled +"RTN","BSDXAPI",262,0) + . I +$G(^SC(CLINIC,"S",DATE,1,X,0))=PAT S IEN=X +"RTN","BSDXAPI",263,0) + Q $G(IEN) +"RTN","BSDXAPI",264,0) + ; +"RTN","BSDXAPI",265,0) +APPTYP(PAT,DATE) ;PEP; -- returns type of appt (scheduled or walk-in) +"RTN","BSDXAPI",266,0) + NEW X S X=$P($G(^DPT(PAT,"S",DATE,0)),U,7) +"RTN","BSDXAPI",267,0) + Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??") +"RTN","BSDXAPI",268,0) + ; +"RTN","BSDXAPI",269,0) +CO(PAT,CLINIC,DATE,SDIEN) ;PEP; -- returns 1 if appt already checked-out +"RTN","BSDXAPI",270,0) + NEW X +"RTN","BSDXAPI",271,0) + S X=$G(SDIEN) ;ien sent in call +"RTN","BSDXAPI",272,0) + I 'X S X=$$SCIEN(PAT,CLINIC,DATE) I 'X Q 0 +"RTN","BSDXAPI",273,0) + S X=$P($G(^SC(CLINIC,"S",DATE,1,X,"C")),U,3) +"RTN","BSDXAPI",274,0) + Q $S(X:1,1:0) +"RTN","BSDXAPI",275,0) + ; "RTN","BSDXGPRV") 0^36^B6645474 "RTN","BSDXGPRV",1,0) BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 9/7/10 7:59am "RTN","BSDXGPRV",2,0) - ;;1.4;BSDX;;Sep 07, 2010;Build 7 + ;;1.41;BSDX;;Sep 29, 2010;Build 8 "RTN","BSDXGPRV",3,0) ; "RTN","BSDXGPRV",4,0) @@ -10960,8 +11080,6 @@ FIELD^^2001^8 "^DD",9002018.1,9002018.1,0,"PT",9002018.21,.01) -"^DD",9002018.1,9002018.1,0,"PT",9002018.25,.02) - "^DD",9002018.1,9002018.1,0,"PT",9002018.3,.01) "^DD",9002018.1,9002018.1,0,"PT",9002018.4,.07) @@ -11095,7 +11213,7 @@ ENTER ASSOCIATED RPMS CLINIC "^DD",9002018.15,9002018.15,0) FIELD^^.05^5 "^DD",9002018.15,9002018.15,0,"DT") -3030703 +3100928 "^DD",9002018.15,9002018.15,0,"IX","AC",9002018.15,.02) "^DD",9002018.15,9002018.15,0,"IX","B",9002018.15,.01) @@ -11153,7 +11271,7 @@ FIELD^^1^3 "^DD",9002018.2,9002018.2,0,"DDA") N "^DD",9002018.2,9002018.2,0,"DT") -3030508 +3100928 "^DD",9002018.2,9002018.2,0,"IX","AB",9002018.21,.01) "^DD",9002018.2,9002018.2,0,"IX","B",9002018.2,.01) @@ -11187,7 +11305,7 @@ RESOURCE^9002018.21P^^1;0 "^DD",9002018.2,9002018.21,0) RESOURCE SUB-FIELD^^.01^1 "^DD",9002018.2,9002018.21,0,"DT") -3030508 +3100928 "^DD",9002018.2,9002018.21,0,"IX","B",9002018.21,.01) "^DD",9002018.2,9002018.21,0,"NM","RESOURCE")