Changeset 1177 for Scheduling/trunk/m
- Timestamp:
- May 11, 2011, 7:57:58 AM (14 years ago)
- Location:
- Scheduling/trunk/m
- Files:
-
- 37 edited
-
BSDX01.m (modified) (2 diffs)
-
BSDX02.m (modified) (2 diffs)
-
BSDX03.m (modified) (1 diff)
-
BSDX04.m (modified) (1 diff)
-
BSDX05.m (modified) (1 diff)
-
BSDX06.m (modified) (1 diff)
-
BSDX07.m (modified) (1 diff)
-
BSDX08.m (modified) (1 diff)
-
BSDX09.m (modified) (2 diffs)
-
BSDX11.m (modified) (1 diff)
-
BSDX12.m (modified) (1 diff)
-
BSDX13.m (modified) (1 diff)
-
BSDX14.m (modified) (1 diff)
-
BSDX15.m (modified) (1 diff)
-
BSDX16.m (modified) (1 diff)
-
BSDX17.m (modified) (1 diff)
-
BSDX18.m (modified) (1 diff)
-
BSDX19.m (modified) (1 diff)
-
BSDX20.m (modified) (1 diff)
-
BSDX21.m (modified) (1 diff)
-
BSDX22.m (modified) (1 diff)
-
BSDX23.m (modified) (1 diff)
-
BSDX24.m (modified) (1 diff)
-
BSDX25.m (modified) (1 diff)
-
BSDX26.m (modified) (1 diff)
-
BSDX27.m (modified) (1 diff)
-
BSDX28.m (modified) (2 diffs)
-
BSDX29.m (modified) (1 diff)
-
BSDX2E.m (modified) (1 diff)
-
BSDX30.m (modified) (1 diff)
-
BSDX31.m (modified) (1 diff)
-
BSDX32.m (modified) (2 diffs)
-
BSDX33.m (modified) (1 diff)
-
BSDX34.m (modified) (1 diff)
-
BSDX35.m (modified) (1 diff)
-
BSDXAPI.m (modified) (1 diff)
-
BSDXGPRV.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDX01.m
r1172 r1177 1 1 BSDX01 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; … … 320 320 QUIT 321 321 ; 322 GETRADEX(BSDXY,DFN,SCIEN) 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 END 360 361 362 363 SCHRAEX(BSDXY,RADFN,RAOIFN,RAOSCH) 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 HOLDRAEX(BSDXY,RADFN,RAOIFN) 379 380 381 382 383 384 385 386 387 388 389 322 GETRADEX(BSDXY,DFN,SCIEN) ; Get All Pending and On Hold Radiology Exams for Patient; RPC EP; UJO/SMH new in v 1.6 323 ; RPC: BSDX GET RAD EXAM FOR PT; Return: Global Array 324 ; 325 ; Input: DFN - you should know; SCIEN - IEN of Hospital Location 326 ; Output: ADO Datatable with the following columns: 327 ; - BMXIEN: Radiology Exam IEN in file 75.1 (RAD/NUC MED ORDERS) 328 ; - STATUS: Pending Or Hold Status 329 ; - PROCEDURE: Text Procedure Name 330 ; - REQUEST_DATE: Date Procedure was requested 331 ; 332 ; Error Processing: Silent failure. 333 ; 334 S BSDXY=$NA(^BMXTEMP($J)) 335 K @BSDXY 336 ; 337 N BSDXI S BSDXI=0 338 S @BSDXY@(BSDXI)="I00015BMXIEN^T00015STATUS^T00100PROCEDURE^D00030REQUEST_DATE"_$C(30) 339 ; 340 N BSDXRLIEN S BSDXRLIEN=$ORDER(^RA(79.1,"B",SCIEN,"")) ; IEN of HL in file 79.1, to get Radiology Imaging IEN 341 I 'BSDXRLIEN GOTO END 342 ; 343 N BSDXOUT,BSDXERR ; Out, Error 344 ; 345 ; File 75.1 = RAD/NUC MED ORDERS 346 ; Fields 5 = Request Status; 2 = Procedure; 16 = Requested Entered Date Time 347 ; Filter Field: First piece is DFN, 5th piece is 3 or 5 (Status of Pending Or Hold); 20th piece is Radiology Location requested 348 D LIST^DIC(75.1,"","@;5;2;16","P","","","","B","I $P(^(0),U)=DFN&(35[$P(^(0),U,5))&($P(^(0),U,20)=BSDXRLIEN)","","BSDXOUT","BSDXERR") 349 ; 350 IF $DATA(BSDXERR) GOTO END 351 ; 352 I +BSDXOUT("DILIST",0)>0 FOR BSDXI=1:1:+BSDXOUT("DILIST",0) DO ; if we have data, fetch the data in each row and store it in the return variable 353 . N BMXIEN,BMXSTAUS,BMXPROC,BMXDATE ; Proc IEN, Proc Status, Proc Name 354 . S BMXIEN=$P(BSDXOUT("DILIST",BSDXI,0),U) ; IEN 355 . S BMXSTATUS=$P(BSDXOUT("DILIST",BSDXI,0),U,2) ; Status 356 . S BMXPROC=$P(BSDXOUT("DILIST",BSDXI,0),U,3) ; Procedure Name 357 . S BMXDATE=$TR($P(BSDXOUT("DILIST",BSDXI,0),U,4),"@"," ") ; Request Entered Date Time 358 . S @BSDXY@(BSDXI)=BMXIEN_U_BMXSTATUS_U_BMXPROC_U_BMXDATE_$C(30) 359 END ; Errors Jump Here... 360 S @BSDXY@(BSDXI+1)=$C(31) 361 QUIT 362 ; 363 SCHRAEX(BSDXY,RADFN,RAOIFN,RAOSCH) ; Schedule a Radiology Exam; RPC EP; UJO/SMH new in v 1.6 364 ; RPC: BSDX SCHEDULE RAD EXAM; Return: Single Value 365 ; 366 ; Input: 367 ; - RADFN -> DFN 368 ; - RAOIFN -> Radiology Order IEN in file 75.1 369 ; - RAOSCH -> Scheduled Time for Exam 370 ; Output: Always "1" 371 ; 372 S RAOSCH=+RAOSCH ; Strip the trailing zeros from the Fileman Date produced by C# 373 N RAOSTS S RAOSTS=8 ; Status of Scheduled 374 D ^RAORDU ; API in Rad expects RADFN, RAOIFN, RAOSCH, and RAOSTS 375 S BSDXY=1 ; Success 376 QUIT 377 ; 378 HOLDRAEX(BSDXY,RADFN,RAOIFN) ; Hold a Radiology Exam; RPC EP; UJO/SMH new in v 1.6 379 ; RPC: BSDX HOLD RAD EXAM; Return: Single Vale 380 ; 381 ; Input: 382 ; - RADFN -> DFN 383 ; - RAOIFN -> Radiology Order IEN in file 75.1 384 ; Output: Always "1" 385 N RAOSTS S RAOSTS=3 ; Status of Hold 386 N RAOREA S RAOREA=20 ; Reason: Exam Cancelled 387 D ^RAORDU 388 S BSDXY=1 ; Success 389 QUIT -
Scheduling/trunk/m/BSDX02.m
r1172 r1177 1 BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am2 ;;1. 5;BSDX;;Apr 28, 20111 BSDX02 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 11:33am 2 ;;1.6T1;BSDX;;May 11, 2011 3 3 ;Licensed under LGPL 4 4 ; Change Log … … 100 100 ; Outputs it in MM/DD/YYYY format, which is ambigous for C#. 101 101 N DOB S DOB=$$FMTE^XLFDT($$GET1^DIQ(2,BSDXPATD,.03,"I")) ; DOB 102 N RADEX S RADEX=$P(BSDXNOD,U,14) 102 N RADEX S RADEX=$P(BSDXNOD,U,14) ;Radiology exam 103 103 S ^BSDXTMP($J,BSDXI)=SEX_U_PID_U_DOB_U_RADEX_$C(30) 104 104 ; end new code -
Scheduling/trunk/m/BSDX03.m
r1161 r1177 1 1 BSDX03 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:14am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ;Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX04.m
r1161 r1177 1 1 BSDX04 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:15am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX05.m
r1161 r1177 1 1 BSDX05 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX06.m
r1161 r1177 1 1 BSDX06 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:16am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX07.m
r1172 r1177 1 1 BSDX07 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:17am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX08.m
r1161 r1177 1 1 BSDX08 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:17am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; 4 4 ; Original by HMW. New Written by Sam Habiel. Licensed under LGPL. -
Scheduling/trunk/m/BSDX09.m
r1161 r1177 1 1 BSDX09 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:18am 2 ;;1. 5;BSDX;;Apr 28, 2011;Build 72 ;;1.6T1;BSDX;;May 11, 2011;Build 7 3 3 ; Licensed under LGPL 4 4 ; … … 12 12 ; UJO/TH - v 1.3 on 3100715 - Change SSN to PID and get PID field instead 13 13 ; 14 14 ; UJO/TH - v 1.42 on 3101020 - Add Sex field. 15 15 ; 16 16 GETREGA(BSDXRET,BSDXPAT) ;EP -
Scheduling/trunk/m/BSDX11.m
r1161 r1177 1 1 BSDX11 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX12.m
r1161 r1177 1 1 BSDX12 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:18am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX13.m
r1161 r1177 1 1 BSDX13 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX14.m
r1161 r1177 1 1 BSDX14 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX15.m
r1161 r1177 1 1 BSDX15 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:19am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX16.m
r1161 r1177 1 1 BSDX16 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; ; 4/28/11 10:20am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX17.m
r1161 r1177 1 1 BSDX17 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX18.m
r1161 r1177 1 1 BSDX18 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:20am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX19.m
r1161 r1177 1 1 BSDX19 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX20.m
r1161 r1177 1 1 BSDX20 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:21am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX21.m
r1161 r1177 1 1 BSDX21 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX22.m
r1161 r1177 1 1 BSDX22 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX23.m
r1161 r1177 1 1 BSDX23 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX24.m
r1161 r1177 1 1 BSDX24 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:22am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX25.m
r1161 r1177 1 1 BSDX25 ; VW/UJO/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX26.m
r1161 r1177 1 1 BSDX26 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Change History: -
Scheduling/trunk/m/BSDX27.m
r1161 r1177 1 1 BSDX27 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:24am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX28.m
r1172 r1177 1 1 BSDX28 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Change Log: … … 28 28 I '+$G(DUZ) S BSDXY=BSDXRET_$C(31) Q 29 29 I '$D(DUZ(2)) S BSDXY=BSDXRET_$C(31) Q 30 DFN 30 DFN ;If DFN is passed as `nnnn, just return that patient 31 31 I $E(BSDXP)="`" DO SET BSDXY=BSDXRET_$C(31) QUIT 32 32 . N BSDXIEN S BSDXIEN=$E(BSDXP,2,99) -
Scheduling/trunk/m/BSDX29.m
r1161 r1177 1 1 BSDX29 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:25am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX2E.m
r1161 r1177 1 1 BSDX2E ;IHS/OIT/MJL - ENVIRONMENT CHECK FOR WINDOWS SCHEDULING [4/28/11 10:28am] 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX30.m
r1161 r1177 1 1 BSDX30 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; [4/28/11 10:28am] 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX31.m
r1161 r1177 1 1 BSDX31 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:28am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Change Log: -
Scheduling/trunk/m/BSDX32.m
r1172 r1177 1 BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:28am2 ;;1. 5;BSDX;;Apr 28, 20111 BSDX32 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/11/11 10:39am 2 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 ; 5 ; Change Log: 6 ; April 2011: Added Field "IS_RADIOLOGY_LOCATION" to help decide if the Hospital Location 7 ; should be treated in the GUI as a Radiology Location 4 8 ; 5 9 ; … … 52 56 . ; Decide if this is a radiology location - Check "B" index of ^RA(79.1 global to see if HL is there 53 57 . N BSDXISRAD S BSDXISRAD=''$DATA(^RA(79.1,"B",BSDXIEN)) 58 . ; 54 59 . S BSDXI=BSDXI+1 55 60 . S ^BSDXTMP($J,BSDXI)=BSDXIEN_U_BSDXNAM_U_BSDXPRV_U_BSDXSCOD_U_BSDXINA_U_BSDXREA_U_BSDXISRAD_$C(30) -
Scheduling/trunk/m/BSDX33.m
r1161 r1177 1 1 BSDX33 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; Mods by WV/STAR -
Scheduling/trunk/m/BSDX34.m
r1161 r1177 1 1 BSDX34 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDX35.m
r1161 r1177 1 1 BSDX35 ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/28/11 10:29am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXAPI.m
r1161 r1177 1 1 BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 4/28/11 10:30am 2 ;;1. 5;BSDX;;Apr 28, 2011;Build 72 ;;1.6T1;BSDX;;May 11, 2011;Build 7 3 3 ; Licensed under LGPL 4 4 ; -
Scheduling/trunk/m/BSDXGPRV.m
r1161 r1177 1 1 BSDXGPRV ; WV/SMH - WINDOWS SCHEDULING RPCS ; 4/28/11 10:31am 2 ;;1. 5;BSDX;;Apr 28, 20112 ;;1.6T1;BSDX;;May 11, 2011 3 3 ; Licensed under LGPL 4 4 ;
Note:
See TracChangeset
for help on using the changeset viewer.
