©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
RAREG3 ;HISC/CAH,DAD,FPT,GJC-Register Rad/NM Patient (cont.) ;6/10/97 08:45
Source file <RAREG3.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | FLH^RAFLH JAC^RAJAC SET^RAPSET1 ^RASERV |
| Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
| Uncategorized | 1 | ^RTQ5 |
| VA Fileman | 1 | ^%DT |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 2 | RAREG1 RAREG2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETDISV | ; when registering procedures of different imaging types set imaging
; location default value in DIC("B") if only one location associated with ; imaging type. |
|
| SUB1MIN | ; subtract 1 minute from NOW to get an unused date/time
|
|
| LABEL | ; *** Print labels
|
|
| SL | ; switch locations
; Prompt the user to switch locations if the current sign-on imaging ; type does not match the procedure's imaging type. ; comment out 06/10/97 D EXAMSET^RAREG2 S RAPARENT=0 |
|
| DT2 | ||
| DT1 | ||
| RSBIT | ; renumber selections by imaging type
; The RAORDS array has the list of orders the user selected to register ; in the order the user entered them. This subroutine will reorganize ; the array so the orders are arranged by imaging type of their ; procedure starting with the imaging type the user is currently signed ; on with followed by the ascending internal entry number of the ; remaining imaging types. |
|
| DT | ; prompt for new imaging date/time when imaging type changes
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(195.4 | LABEL+8 |
| ^DIC(4 - [#4] | SL+16 |
| ^RA(79 - [#79] | DT+2 |
| ^RA(79.1 - [#79.1] | SETDISV+5, SETDISV+7 |
| ^RA(79.2 - [#79.2] | RSBIT+16, SL+5, SL+6 |
| ^RADPT - [#70] | DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+3, LABEL+4 |
| ^RAMIS(71 - [#71] | RSBIT+13, SL+4 |
| ^RAO(75.1 - [#75.1] | RSBIT+12 |
| ^SC - [#44] | SETDISV+7 |
| Name | Line Occurrences |
|---|---|
| DT | SL+17, DT+8, DT1 |
| DT2 | DT2 |
| LABEL | SL+7 |
| SETDISV | SL+11 |
| SUB1MIN | DT+6, DT2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SETDISV+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DT+7*, DT+8! |
| %DT(0 | DT+7* |
| >> DIC("B" | SETDISV+7* |
| DTIME | DT+3 |
| RABED | DT2+3! |
| >> RACAT | DT2+2*, DT2+3* |
| >> RACNI | LABEL+4 |
| RACNT | SETDISV+3~, SETDISV+4*, SETDISV+5*, SETDISV+7 |
| >> RADFN | DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+2, LABEL+3, LABEL+4, LABEL+7* |
| >> RADTE | DT1*, DT2*, SUB1MIN+1 |
| RADTEBAD | DT2!*, DT2+1! |
| >> RADTI | DT+1, DT1*, DT2*, LABEL+3, LABEL+4 |
| RADTICHK | DT+6*!, DT2, SUB1MIN+1* |
| RAHRS | DT+2~*, DT+7 |
| >> RAIMGTY | RSBIT+16, SL+5, SL+8 |
| RAIMGTYN | RSBIT+16*, RSBIT+18, RSBIT+19*, RSBIT+20! |
| RAIN | RSBIT+13*, RSBIT+14, RSBIT+17*, RSBIT+18*, RSBIT+19*, RSBIT+20! |
| RAITN | SETDISV+5, SL+4*, SL+5, SL+6, SL+20! |
| RAITNHLD | SETDISV+3~, SETDISV+5*, SETDISV+7 |
| RAITNXT | SETDISV+3~, SETDISV+4*, SETDISV+5* |
| RALOOP | RSBIT+9!, RSBIT+10*, RSBIT+11, RSBIT+14, RSBIT+17*, RSBIT+18*, RSBIT+19*, RSBIT+20!, SETDISV+3~, SETDISV+5* , SUB1MIN+1*, SUB1MIN+2! |
| >> RAMDIV | SL+6, SL+16, DT+2 |
| RAMDIVHD | SL+6*, SL+16, SL+20! |
| >> RAMDV | LABEL+6 |
| RAMLC | SL+6, SL+12!, SL+15* |
| RAMLCHLD | SL+6*, SL+15, SL+20! |
| >> RANOW | DT+5*, DT2+2, DT2+3 |
| RANUMF | LABEL+5! |
| RAON | RSBIT+11*, RSBIT+12, RSBIT+14, RSBIT+20! |
| RAORDS | RSBIT+8, RSBIT+17! |
| RAORDS( | RSBIT+10, RSBIT+11, RSBIT+18*, RSBIT+19* |
| RAORDST | RSBIT+9!, RSBIT+19, RSBIT+20! |
| RAORDST( | RSBIT+14*, RSBIT+18!, RSBIT+19 |
| RAPN | RSBIT+12*, RSBIT+13, RSBIT+20! |
| RAPROLOC | SL+6*, SL+9, SL+10, SL+20! |
| RAPX | LABEL+1, LABEL+2*, LABEL+7, LABEL+9! |
| >> RAQUIT | SL+15*, SL+17, DT+4* |
| >> RASAV2 | LABEL+3* |
| >> RASAV3 | LABEL+4* |
| RASER | DT2+3! |
| RASWLOC | SL+12*, SL+14! |
| RAWARD | DT2+2, DT2+3! |
| RAYHOLD | SL+6*, SL+18, SL+20! |
| RAZIS | LABEL+2*, LABEL+7! |
| U | RSBIT+11, RSBIT+12, RSBIT+13, SL+4, SL+6, SL+16, LABEL+6, LABEL+8 |
| >> X | DT+3*, DT+4, DT+5*, DT+6, DT2, SUB1MIN+1* |
| >> Y | SL+4, SL+6, SL+18*, DT+8, DT1 |