©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
RAUTL15 ;HISC/GJC-Skeleton rpt del if no data entered. ;11/5/99 12:33
Source file <RAUTL15.m>
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | RAORD2 RAPROD RARTE4 RASTEXT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INV(X,X1) | ; invalid action message called from the schedule/cancel or hold
; request options. ; X -> point of orgin (option) X1 -> procedure name ; Called from: CZECH subroutine |
|
| KMV | ; kill miscellaneous variables
|
|
| VALORD | ; validate order data, i.e, has OE/RR order # and the site is running
; a version of OE/RR > 2.5 Called from: 2^RAORD, 3^RAORD & 4^RAORD |
|
| EN3(IEN74) | ;Delete the skeleton report and pointer from Rad Pt file to
; report if user has not entered any report data (i.e. user ^'d out ; of report entry/edit after the system created a skeleton record). ; If the report is deleted, a bulletin will not be generated! |
|
| CZECH(Y) | ; check if an order can be cancelled, held, or scheduled.
; Y -> ien of the Rad/Nuc Med Orders file. ; Y1 -> if OE/RR > 2.5 & no order number: 1, else 0 ; Called from: VALORD subroutine |
|
| DPROC(RADFN,RADTI,RACNI,RAOIFN) | ; Determine if the ordered procedure is
; different from the registered procedure. ; Input Variables: RADFN-Patient DFN ; RADTI-inverse DT of exam (if exists) ; RACNI-IEN on the case node (if exists) ; RAOIFN-IEN of the order ; Output: null-procedures don't differ -OR- no order/exam ; not null-ordered proc_"^"_registered proc data ; registered procedure data includes imaging type, procedure ; type and CPT codes (if any) |
| Name | Field # of Occurrence |
|---|---|
| ^DIK | EN3+34 |
| $$GET1^DIQ | DPROC+29, DPROC+30, DPROC+31 |
| $$NAMCODE^RACPTMSC | DPROC+28 |
| $$SSANVAL^RAHLRU1 | DPROC+25 |
| $$USESSAN^RAHLRU1 | DPROC+34, DPROC+35 |
| $$ORVR^RAORDU | CZECH+6 |
| DEL17^RARTE2 | EN3+17 |
| UPDTPNT^RAUTL9 | EN3+32 |
| ENKILL^RAXREF | EN3+25 |
| $$LOW^XLFSTR | DPROC+32 |
| $$RJ^XLFSTR | DPROC+24 |
| $$UP^XLFSTR | INV+4 |
| MES^XPDUTL | EN3+37 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RAMIS(71 - [#71] | GET1^DIQ |
| ^RARPT - [#74] | Classic Fileman Calls |
| ^RA(79.2 - [#79.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | DPROC+36 |
| ^RADPT - [#70] | EN3+23, EN3+28*, DPROC+19 |
| ^RAMIS(71 - [#71] | CZECH+8, DPROC+27 |
| ^RAO(75.1 - [#75.1] | CZECH+5, DPROC+20 |
| ^RARPT - [#74] | EN3+5, EN3+6, EN3+7, EN3+8, EN3+9 |
| Name | Line Occurrences |
|---|---|
| $$CZECH | VALORD+4 |
| INV | CZECH+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN3+12~ |
| %DT | KMV+1! |
| %I | KMV+1! |
| %RET | KMV+1! |
| %T | KMV+1! |
| D | EN3+12~, KMV+2! |
| D0 | EN3+12~, KMV+2! |
| D1 | KMV+2! |
| D2 | KMV+2! |
| D3 | KMV+2! |
| DA | EN3+12~, EN3+24*, EN3+25, EN3+28!, EN3+34*, KMV+2! |
| DA(1 | EN3+24* |
| DA(2 | EN3+24* |
| DDER | KMV+2! |
| DDH | KMV+2! |
| DG | KMV+2! |
| DI | KMV+2! |
| DIC | EN3+12~ |
| DIE | EN3+12~, KMV+2! |
| DIFLD | KMV+2! |
| DIG | KMV+2! |
| DIH | KMV+2! |
| DIK | EN3+12~, EN3+34* |
| DISYS | KMV+2! |
| DIU | KMV+2! |
| DIW | KMV+2! |
| DIWF | KMV+2! |
| DIWL | KMV+2! |
| DIWR | KMV+2! |
| DIWT | KMV+2! |
| DK | KMV+2! |
| DL | KMV+2! |
| DM | KMV+2! |
| DN | KMV+2! |
| DQ | EN3+12~ |
| DR | EN3+12~, KMV+2! |
| DT | DPROC+28 |
| G1 | VALORD+2~*, VALORD+3*, VALORD+4 |
| G2 | VALORD+2~, VALORD+4* |
| IEN74 | EN3~, EN3+5, EN3+6, EN3+7, EN3+8, EN3+9, EN3+17, EN3+25, EN3+32, EN3+34 |
| POP | KMV+3! |
| RA | EN3+4~ |
| RA("I" | EN3+7*, EN3+11 |
| RA("P" | EN3+8*, EN3+11 |
| RA("R" | EN3+9*, EN3+11 |
| RA(0 | EN3+5*, EN3+10, EN3+11, EN3+21, EN3+22, EN3+23 |
| RA(5 | EN3+10*, EN3+11 |
| RA7003 | DPROC+18~, DPROC+19*, DPROC+21, DPROC+22, DPROC+24, DPROC+27, DPROC+29, DPROC+31, DPROC+36 |
| RA71 | DPROC+23~, DPROC+27*, DPROC+28, DPROC+30 |
| RA751 | VALORD+2~, DPROC+18~, DPROC+20*, DPROC+21, DPROC+22 |
| RACNDSP | DPROC+25~, DPROC+26*, DPROC+34 |
| RACNI | EN3+23*, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25 |
| RACPT | DPROC+23~, DPROC+28*, DPROC+34, DPROC+35 |
| RACSE | DPROC+23~, DPROC+24*, DPROC+26, DPROC+35 |
| RADFN | EN3+21*, EN3+23, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25 |
| RADTI | EN3+22*, EN3+23, EN3+24, EN3+28, DPROC~, DPROC+19, DPROC+25 |
| RAITY | DPROC+23~, DPROC+30*, DPROC+34, DPROC+35 |
| RAOIFN | DPROC~, DPROC+20 |
| >> RAOPT("ORDERPRINTPAT" | DPROC+22 |
| >> RAOPT("ORDERPRINTS" | DPROC+22 |
| >> RAOPTN | CZECH+9 |
| RAORDER | CZECH+4~ |
| RAORDER(0 | CZECH+5*, CZECH+6, CZECH+8 |
| >> RAORDS( | VALORD+3, VALORD+4! |
| RAPRC | DPROC+23~, DPROC+29*, DPROC+34, DPROC+35 |
| RAPRG74 | EN3+4~ |
| RASSAN | DPROC+25~*, DPROC+26 |
| RATXT | EN3+4~, EN3+37 |
| RATXT(1 | EN3+35* |
| RATXT(2 | EN3+36* |
| RATXT(3 | EN3+37* |
| RATY | DPROC+23~, DPROC+31*, DPROC+32*, DPROC+34, DPROC+35 |
| U | CZECH+6, CZECH+8 |
| X | EN3+12~, EN3+28!, INV~, INV+4*, INV+5, DPROC+23~, DPROC+34*, DPROC+35*, DPROC+37*, DPROC+38 |
| X1 | INV~, INV+4*, INV+7 |
| Y | EN3+12~, CZECH~, CZECH+5, DPROC+23~, DPROC+34*, DPROC+35*, DPROC+37 |
| Y(0 | DPROC+34*, DPROC+35*, DPROC+36*, DPROC+37 |
| Y1 | CZECH+4~*, CZECH+8*, CZECH+11 |
| Y2 | CZECH+7~, CZECH+8*, CZECH+9 |