RARTR0 ;HISC/GJC - Queue/Print Radiology Rpts utility routine. ; May 23, 2024@14:02:42
Source file <RARTR0.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 8 | HD^RARTR $$TITLE^RARTR0 (SECRES,SECSTF)^RARTR1 ($$AMENRPT,HANG)^RARTR2 $$PTLOC^RAUTL12 $$INCR^RAUTL4 ($$ATND,$$PRIM,$$XTERNAL)^RAUTL5 $$PTSEX^RAUTL8 |
Kernel | 3 | $$FMTE^XLFDT $$UP^XLFSTR ($$MADD,$$NAME,$$PADD)^XUAF4 |
VA FileMan | 3 | DT^DILF ($$GET1,GETS)^DIQ ^DIWP |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 4 | RART1 RARTR RARTR0 RARTR1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1 | ; Called from RARTR ;P84 GETS^DIQ added...
|
|
TITLE(X) | ;Return the radiology classification in lieu of the signature block title
; 'X' is the IEN of the Primary Interpreting Resident i.e, ^DD(70.03,12 ; -OR- ; 'X' is the IEN of the Primary Interpreting Staff i.e, ^DD(70.03,15 |
|
HEAD | ; Set up header info for e-mail message (called from INIT^RARTR)
; 06/28/2006 BAY/KAM Remedy Call 146291 Change Patient Age to DOB |
|
HDRFAC(RADIVDA) | ;p210/KLM - Add Facility Contact Data for FDA mammography requirement
|
Name | Field # of Occurrence |
---|---|
DT^DILF | HEAD+5 |
$$GET1^DIQ | HDRFAC+3 |
GETS^DIQ | EN1+10, EN1+11 |
^DIWP | HEAD+45 |
HD^RARTR | EN1+26, EN1+65 |
$$TITLE^RARTR0 | EN1+23, EN1+62 |
SECRES^RARTR1 | EN1+91 |
SECSTF^RARTR1 | EN1+53 |
$$AMENRPT^RARTR2 | HEAD+48 |
HANG^RARTR2 | EN1+25, EN1+64 |
$$PTLOC^RAUTL12 | HEAD+12 |
$$INCR^RAUTL4 | EN1+33, EN1+34, EN1+44, EN1+45, EN1+71, EN1+72, EN1+82, EN1+83, HEAD+35, HEAD+36 , HEAD+37, HEAD+38, HEAD+43, HEAD+46, HEAD+48, HEAD+49, HDRFAC+9, HDRFAC+10, HDRFAC+11 |
$$ATND^RAUTL5 | HEAD+14 |
$$PRIM^RAUTL5 | HEAD+14 |
$$XTERNAL^RAUTL5 | HEAD+11, HEAD+13, HEAD+15 |
$$PTSEX^RAUTL8 | HEAD+40 |
$$FMTE^XLFDT | HEAD+9 |
$$UP^XLFSTR | HEAD+8 |
$$MADD^XUAF4 | HDRFAC+5 |
$$NAME^XUAF4 | HDRFAC+4 |
$$PADD^XUAF4 | HDRFAC+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GETS^DIQ |
^RA(79 - [#79] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(70.02 | HEAD+15 |
^DD(70.03 | HEAD+11, HEAD+13 |
^RA(79.1 - [#79.1] | HEAD+51 |
^RADPT - [#70] | HEAD+42, HEAD+51 |
^RARPT - [#74] | EN1+1, HEAD+9 |
^TMP($J | EN1+33*, EN1+34*, EN1+35, EN1+36*, EN1+44*, EN1+45*, EN1+48*, EN1+51*, EN1+71*, EN1+72* , EN1+73, EN1+74*, EN1+82*, EN1+83*, EN1+86*, EN1+89*, HEAD+35*, HEAD+36*, HEAD+37*, HEAD+38* , HEAD+43*, HEAD+46*, HEAD+48*, HEAD+49*, HDRFAC+9*, HDRFAC+10*, HDRFAC+11* |
^UTILITY($J | HEAD+45!, HEAD+46, HEAD+47! |
^VA(200 - [#200] | TITLE+4 |
Name | Line Occurrences |
---|---|
HDRFAC | HEAD+52 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIWF | HEAD+42~, HEAD+45* |
DIWL | HEAD+42~, HEAD+45* |
DIWR | HEAD+42~, HEAD+45* |
DT | HEAD+14 |
IOM | EN1+29, EN1+68 |
IOSL | EN1+25, EN1+26, EN1+64, EN1+65 |
RA32PSC | HEAD+42~, HEAD+46* |
>> RAACNT | EN1+33, EN1+34, EN1+35, EN1+36, EN1+44, EN1+45, EN1+48, EN1+51, EN1+71, EN1+72 , EN1+73, EN1+74, EN1+82, EN1+83, EN1+86, EN1+89, HEAD+3*, HEAD+35, HEAD+36, HEAD+37 , HEAD+38, HEAD+43, HEAD+46, HEAD+48, HEAD+49, HDRFAC+9, HDRFAC+10, HDRFAC+11 |
>> RACNI | HEAD+42 |
RACNTR | HDRFAC+2~*, HDRFAC+8*, HDRFAC+9, HDRFAC+10, HDRFAC+11, HDRFAC+13, HDRFAC+14, HDRFAC+15 |
RACOL | HDRFAC+2~, HDRFAC+13*, HDRFAC+14*, HDRFAC+15* |
RACRM | HEAD+51~*, HEAD+52 |
RACSE | HEAD+2~, HEAD+9*, HEAD+22*, HEAD+35 |
RACSZ | HDRFAC+2~, HDRFAC+6*, HDRFAC+10, HDRFAC+14 |
>> RADFN | HEAD+14, HEAD+40, HEAD+42, HEAD+51 |
RADIVDA | HEAD+51~*, HEAD+52, HDRFAC~, HDRFAC+1, HDRFAC+3, HDRFAC+4, HDRFAC+5 |
RADOB | HEAD+2~, HEAD+5 |
RADOB(0 | HEAD+20 |
>> RADTI | HEAD+42, HEAD+51 |
>> RAERRFLG | HEAD+48 |
RAFACN | HDRFAC+2~, HDRFAC+4*, HDRFAC+9, HDRFAC+13 |
>> RAFOOT | EN1+25, EN1+26, EN1+64, EN1+65 |
RAGE | HEAD+2~, HEAD+20*, HEAD+21, HEAD+22*, HEAD+35 |
RAIENDIV | HDRFAC+2~ |
RAILOC | HEAD+2~, HEAD+15*, HEAD+16*, HEAD+30*, HEAD+37 |
>> RALB | EN1+4 |
>> RALBR | EN1+57*, EN1+58*, EN1+67, EN1+72, EN1+79, EN1+83 |
>> RALBRT | EN1+61*, EN1+62*, EN1+68, EN1+73, EN1+74 |
>> RALBS | EN1+18*, EN1+19*, EN1+28, EN1+34, EN1+41, EN1+45 |
>> RALBST | EN1+22*, EN1+23*, EN1+29, EN1+35, EN1+36 |
RALEN | EN1+35~*, EN1+36, EN1+73~*, EN1+74 |
RAMADDR | HDRFAC+2~, HDRFAC+4*, HDRFAC+5*, HDRFAC+6 |
RANME | HEAD+2~, HEAD+7*, HEAD+17*, HEAD+35 |
>> RAOOUT | EN1+16, EN1+25, EN1+53, EN1+55, EN1+64 |
RAPCOMM | HEAD+42~*, HEAD+44, HEAD+45 |
RAPHONE | HDRFAC+2~, HDRFAC+3*, HDRFAC+11, HDRFAC+15 |
RAPIR | EN1+4!*, EN1+10, EN1+13, EN1+55, EN1+62, EN1+76, EN1+78, EN1+79, EN1+82, EN1+83 , EN1+88, EN1+89, EN1+92! |
RAPIR("IENS" | EN1+10*, EN1+57, EN1+58, EN1+61 |
RAPIR(200 | EN1+57, EN1+58, EN1+61 |
RAPIS | EN1+4!*, EN1+11, EN1+13, EN1+16, EN1+23, EN1+38, EN1+40, EN1+41, EN1+44, EN1+45 , EN1+50, EN1+51, EN1+92! |
RAPIS("IENS" | EN1+11*, EN1+18, EN1+19, EN1+22, EN1+38 |
RAPIS(200 | EN1+18, EN1+19, EN1+22, EN1+38 |
RAPRIPHY | HEAD+2~, HEAD+14*, HEAD+31*, HEAD+32, HEAD+33*, HEAD+38 |
RAPTLOC | HEAD+2~, HEAD+12*, HEAD+26*, HEAD+36 |
>> RAPVERF | EN1+3*, EN1+50, EN1+51, EN1+88, EN1+89 |
RAREQPHY | HEAD+2~, HEAD+11*, HEAD+12*, HEAD+23*, HEAD+24, HEAD+25*, HEAD+36 |
>> RARPT | EN1+1, HEAD+9 |
>> RARPT(0 | EN1+1*, EN1+2, EN1+3, EN1+12 |
>> RARPT(10 | EN1+2*, EN1+39, EN1+43, EN1+77, EN1+81 |
RASERV | HEAD+2~, HEAD+13*, HEAD+16*, HEAD+34*, HEAD+38 |
RASEX | HEAD+2~, HEAD+8*, HEAD+20 |
RASPACE | HEAD+3~, HEAD+21*, HEAD+22, HEAD+24*, HEAD+25, HEAD+28*, HEAD+29, HEAD+32*, HEAD+33, HDRFAC+8* , HDRFAC+9*, HDRFAC+10*, HDRFAC+11* |
RASSN | HEAD+3~, HEAD+7*, HEAD+18*, HEAD+35 |
>> RAST | HEAD+52 |
RATPHY | HEAD+2~, HEAD+14*, HEAD+27*, HEAD+28, HEAD+29*, HEAD+37 |
>> RAUTOE | EN1+25, EN1+26, EN1+27, EN1+39, EN1+43, EN1+47, EN1+48, EN1+50, EN1+51, EN1+64 , EN1+65, EN1+66, EN1+70, EN1+77, EN1+81, EN1+85, EN1+86, EN1+88, EN1+89, HDRFAC+7 |
>> RAVERF | EN1+3*, EN1+13, EN1+38, EN1+76 |
>> RAVERFND | EN1+14*, EN1+38, EN1+76 |
>> RAWHOVER | EN1+12*, EN1+40, EN1+41, EN1+44, EN1+45, EN1+78, EN1+79, EN1+82, EN1+83 |
>> RAY0 | HEAD+5, HEAD+7, HEAD+8 |
>> RAY2 | HEAD+9, HEAD+15 |
>> RAY3 | HEAD+11, HEAD+13, HEAD+40, HEAD+41, HEAD+43, HEAD+44 |
U | EN1+3, HEAD+43, HEAD+44, HEAD+51, HDRFAC+4, HDRFAC+5, HDRFAC+6 |
X | TITLE~, TITLE+4, HEAD+42~, HEAD+45* |
X1 | HEAD+3~ |
X2 | HEAD+3~ |