©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
RADD1 ;HISC/FPT-Radiology Utility Routine ;6/2/98 16:17
Source file <RADD1.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 4 | ($$ACTCODE,$$NAMCODE)^RACPTMSC ($$VALADM,$$VOL)^RADD4 $$EN3^RAUTL17 XSEC^RAUTL20 |
| VA Fileman | 2 | NOW^%DTC EN^DDIOL |
| Kernel | 1 | $$FMADD^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 13 | RACTEX18 ^RARPT EXAM STATUS TIMES EXAMINATIONS RACTTK17 RACTVR RACTWR RACTWR2 RAEDCN RAEDPT ^RAMIS(71 RAPROD RARTR3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VOL(RAX) | ; Validate the format of the value input for volume.
; RAX must be a number followed by a space then text -or- ; a number followed by text ; Input Variable : 'RAX'- user's input ; Output Variable: null if 'RAX' erroneous, formatted version of 'RAX' |
|
| NODEL | ; Do not permit deletion of the PRIMARY DIAGNOSTIC CODE (70.03,
; 13), PRIMARY INTERPRETING RESIDENT (70.03,12) or PRIMARY ; INTERPRETING STAFF (70.03,15) if a SECONDARY DIAGNOSTIC CODE ; multiple (70.03,13.1) is associated with the exam record. ; ; P94: WRITE removed; EN^DDIOL added |
|
| CPTCHK(RADA) | ; Check if the CPT code is inactive nationally.
; 'RADA' assume the value of +Y passed from the input xform, ^DD(71,9,0) ; quit if CPT code is active |
|
| SDC2 | ;
|
|
| SDC3 | ;
|
|
| SDC() | ; do not enter primary into secondary diagnostic code field
; called from ^DD(70.14,.01,0) ; do not select inactive diagnostic code 12/23/96 |
|
| PRCCPT() | ; Displays the procedure type and CPT code if applicable.
; This code is called from ^DD(71,0,"ID","WRITE") and rtn RAPROD |
|
| VALADM(RAD0,Y,RADT,RAUTH) | ;edit validation
|
|
| PDC() | ; do not enter secondary into primary diagnostic code field
; called from ^DD(70.03,13,0) ; do not select inactive diagnostic code 12/23/96 |
|
| KILL | ||
| SCDTC | ; status change date/time check
; called from ^DD(70.05,.01 ; if X is a date/time prior to the exam date/time, then set Y=0. ; if X is a over a minute in the future, then set Y=0. ; if X is missing the time portion, then set Y=0. |
|
| INDTCHK(RADA) | ; Cannot inactivate a procedure if it is a common procedure
; with a valid sequence number. Code resides in ^DD(71,100,0)! ; 'RADA' is the ien of the procedure in file 71. if this procedure is ; a common procedure i.e, $D(^RAMIS(71.3,"B",RADA)) inform the user that ; the sequence number must be deleted. This relies on the "AA" xref in ; the Common Proc. file for the Sequence # fld (#3) 0 node, 4th pce. |
|
| SECXREF | ; sets/kills 'ARES' & 'ASTF' x-refs for secondary resident/staff rads
; called from ^DD(74,5 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | SCDTC+10 |
| ^RA(78.3 - [#78.3] | PDC+4, SDC+3 |
| ^RA(79.2 - [#79.2] | PRCCPT+6 |
| ^RADPT - [#70] | SECXREF+4, SECXREF+6, SECXREF+7, SECXREF+9, SCDTC+9, PDC+5, SDC+5, SDC+6, SDC2+2, SDC2+3 , SDC3+3, SDC3+4, NODEL+10 |
| ^RAMIS(71.3 - [#71.3] | INDTCHK+6, INDTCHK+7, INDTCHK+9 |
| ^RARPT - [#74] | SECXREF+3, SECXREF+10*! |
| Name | Line Occurrences |
|---|---|
| KILL | SECXREF+5, SECXREF+6, SECXREF+7 |
| SDC2 | SDC+4, SDC+5 |
| SDC3 | SDC2+1 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SECXREF+9 |
| ^("I" | PRCCPT+2 |
| ^(0 | SECXREF+3, PRCCPT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | SCDTC+15 |
| >> DA | SECXREF+3, SECXREF+10, PDC+5, SDC2+2, SDC2+3, SDC3+3, SDC3+4, NODEL+10 |
| >> DA(1 | SCDTC+9, PDC+5, SDC+5, SDC+6, SDC2+2, SDC2+3, SDC3+3, SDC3+4, NODEL+10 |
| >> DA(2 | SCDTC+9, SCDTC+11, PDC+5, SDC+5, SDC+6, SDC2+1, SDC2+2, SDC2+3, SDC3+2*, SDC3+3 , SDC3+4, NODEL+10 |
| >> DA(3 | SCDTC+9, SDC+4, SDC+5, SDC+6 |
| DT | PRCCPT+3, PRCCPT+9, CPTCHK+4 |
| RA | PRCCPT+2~, PRCCPT+3*, PRCCPT+8, INDTCHK+6~ |
| RA("I" | PRCCPT+2*, PRCCPT+3 |
| RA(0 | PRCCPT+2*, PRCCPT+4, PRCCPT+5, INDTCHK+7*, INDTCHK+8 |
| RA(10 | PRCCPT+5*, PRCCPT+6*, PRCCPT+7*, PRCCPT+8 |
| RA(12 | PRCCPT+5*, PRCCPT+6 |
| RA(4 | INDTCHK+8*, INDTCHK+9 |
| RA(6 | PRCCPT+4*, PRCCPT+8 |
| RA(9 | PRCCPT+4*, PRCCPT+9 |
| RACNIZ | SECXREF+4*, SECXREF+5, SECXREF+6, SECXREF+7, SECXREF+9, KILL! |
| RAD0 | VALADM~ |
| RADA | INDTCHK~, INDTCHK+6, INDTCHK+9, CPTCHK~, CPTCHK+4 |
| >> RADFN | SDC3+1, SDC3+2 |
| RADFNZ | SECXREF+3*, SECXREF+4*, SECXREF+6, SECXREF+7, SECXREF+9, KILL! |
| RADT | VALADM~ |
| RADTHOLD | SCDTC+12*, SCDTC+16, SCDTC+17, SCDTC+18! |
| RADTIZ | SECXREF+4*, SECXREF+6, SECXREF+7, SECXREF+9, KILL! |
| RAIEN | INDTCHK+6~*, INDTCHK+7, INDTCHK+9 |
| >> RAKILL | SECXREF+10 |
| RAMULT | NODEL+10, NODEL+12! |
| RAORDNUM | SCDTC+7~, SCDTC+10*, SCDTC+11 |
| RAPLUS1 | SCDTC+7~, SCDTC+15*, SCDTC+16 |
| >> RARAD | SECXREF+9*, SECXREF+10 |
| RASECCHK | NODEL+10*, NODEL+11, NODEL+12! |
| RASECIEN | SECXREF+8*, SECXREF+9*, KILL! |
| RASECOND | SECXREF+7, SECXREF+9, KILL! |
| >> RASET | SECXREF+10 |
| RASTATUS | SCDTC+7~, SCDTC+9*, SCDTC+10 |
| RATXT | PRCCPT+2~*, PRCCPT+8*, PRCCPT+9*, PRCCPT+10, INDTCHK+10~, INDTCHK+17, CPTCHK+5~, CPTCHK+7 |
| RATXT(1 | INDTCHK+10*, CPTCHK+5* |
| RATXT(2 | INDTCHK+11*, CPTCHK+6* |
| RATXT(3 | INDTCHK+12*, CPTCHK+7* |
| RATXT(4 | INDTCHK+13* |
| RATXT(5 | INDTCHK+14* |
| RATXT(6 | INDTCHK+15* |
| RATXT(7 | INDTCHK+16* |
| RAUTH | VALADM~ |
| RAX | VOL~ |
| >> RAXREF | SECXREF+10 |
| U | SCDTC+9, SCDTC+10, PDC+4, SDC+3, PRCCPT+4, PRCCPT+5, PRCCPT+6 |
| X | SCDTC+5, SCDTC+6, SCDTC+11, SCDTC+12, SCDTC+17*, SDC+4, SDC2+1, INDTCHK+17!, CPTCHK+8! |
| Y | SCDTC+6*, SCDTC+11*, SCDTC+16*, PDC+4, PDC+5, SDC+3, SDC+6, SDC2+3, SDC3+4, VALADM~ |