Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: RADRPT1A

Package: Radiology Nuclear Medicine

Routine: RADRPT1A


Information

RADRPT1A ;HISC/GJC Radiation dosage report utility one A ;01 Aug 2017 1:26 PM

Source Information

Source file <RADRPT1A.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 4 ($$BASICMOD,$$NAMCODE)^RACPTMSC  CT^RADRPT1  DISCLAIM^RADRPT2A  $$TRN1^RAPROD2  
Kernel 3 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Entry Points

Name Comments DBIA/ICR reference
PRC(Y) ;print procedure data (file #71)
CN() ;return case # in the form of the accession # (SSAN aware)
EN ;entry point
; variables saved
XIT ;kill variables set ZTREQ then exit
HDR ;header/end of screen logic

External References

Name Field # of Occurrence
$$S^%ZTLOAD EN+203
$$GET1^DIQ EN+60, EN+61, EN+64, EN+66, EN+68, EN+71, EN+75, EN+80, EN+94
GETS^DIQ EN+14, EN+34, EN+36, EN+112, EN+130, EN+143, EN+161
$$BASICMOD^RACPTMSC EN+118
$$NAMCODE^RACPTMSC PRC+14
CT^RADRPT1 EN+200
DISCLAIM^RADRPT2A EN+22
$$TRN1^RAPROD2 EN+167, EN+172
$$FMTE^XLFDT EN+6
$$NOW^XLFDT EN+6
$$CJ^XLFSTR EN+7, EN+97, EN+128, EN+142, EN+159, EN+183

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,RATITLE
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !?RATAB(1),"Pregnant at time of order entry: "_$$GET1^DIQ(75.1,+$P(RAY3,U,11)_",",13)
  • Line Location: EN+94
Function Call: WRITE
  • Prompt: "None"
  • Line Location: EN+107
Function Call: WRITE
  • Prompt: !?RATAB(1),RALBL,?RATAB(5),": "
  • Line Location: EN+109
Function Call: WRITE
  • Prompt: "None"
  • Line Location: EN+123
Function Call: WRITE
  • Prompt: !,RAHDR
  • Line Location: EN+142
Function Call: WRITE
  • Prompt: !?RATAB(1),XRA
  • Line Location: EN+190
Function Call: WRITE
  • Prompt: ?24,XRA
  • Line Location: EN+191
Function Call: WRITE
  • Prompt: ?60,XRA
  • Line Location: EN+192
Function Call: WRITE
  • Prompt: @IOF,!,RATITLE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Date: ",RANODT,?69,"Page: ",RAPG
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,RABORDR
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?RATAB(1),"Name: ",$E(RA("NAME"),1,27)_" "_RA("BID")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?RATAB(4),"Exam Date: ",$E(RAY2A(70.02,RAIEN,".01","E"),1,21)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?RATAB(1),"Procedure: ",$E(RAPRC,1,30)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?RATAB(4),"Case Number: ",RA("RACN")
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,RAHDR
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?RATAB(1),RALBL,": "
  • Condition for execution: $D(RALBL)#2
  • Line Location: HDR+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GETS^DIQ
^VA(200 - [#200] GET1^DIQ
70.02 GETS^DIQ
70.03 GETS^DIQ
^RADPTN - [#70.2] GETS^DIQ
^RAMIS(71 - [#71] GET1^DIQ
^RARPT - [#74] GET1^DIQ
^RAO(75.1 - [#75.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" EN+215
^RA(72 - [#72] EN+65
^RA(78.3 - [#78.3] EN+76
^RA(78.6 - [#78.6] EN+74
^RA(79.2 - [#79.2] PRC+13
^RAD - [#70.3] EN+32, EN+200
^RADPT - [#70] EN+28, EN+29, EN+77, EN+79, EN+99, EN+110, EN+127, EN+141
^RAMIS(71 - [#71] PRC+9
^RAO(75.1 - [#75.1] EN+30
^RARPT - [#74] EN+70
^TMP($J EN+22!, EN+24, EN+25, EN+210, EN+212, XIT+5!

Label References

Name Line Occurrences
$$CN EN+37, EN+53
$$PRC EN+62
HDR EN+102, EN+115, EN+133, EN+146, EN+164, EN+166, EN+188, EN+205, EN+211
XIT EN+218

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+1!
%H XIT+1!
%I XIT+1!
DT PRC+10, PRC+14
DTIME HDR+4
DX EN+215*, EN+216!
DY EN+215*, EN+216!
>> I EN+26*
IOF EN+40, HDR+7
IOM EN+7, EN+10, EN+97, EN+128, EN+142, EN+159, EN+183
IOSL EN+102, EN+115, EN+133, EN+146, EN+164, EN+166, EN+188, EN+211, EN+215
IOST HDR+3
N XIT+1!
RA XIT+1!
RA("BID" EN+20*, EN+45, HDR+10
RA("CAM" EN+74*, EN+89
RA("CMP" EN+83*, EN+93
RA("DX" EN+76*, EN+91
RA("EXS" EN+65*, EN+85
RA("NAME" EN+15*, EN+45, HDR+10
RA("PHYS" EN+64*, EN+84
RA("PID" EN+16*
RA("PIR" EN+66*, EN+86
RA("PIS" EN+75*, EN+90
RA("PREVFIED" EN+72*, EN+88
RA("PREVFIER" EN+70*, EN+71*, EN+72!
RA("RACN" EN+37*, HDR+13
RA("RPT" EN+68*, EN+69*, EN+87
RA("T" EN+79*, EN+80, EN+81!
RA("TECH" EN+77*, EN+78, EN+79, EN+80*, EN+92
RABORDR EN+10*, EN+42, HDR+9, XIT+1!
RACM EN+127!
RACM("70.3225" EN+131, EN+132, EN+134
RACN XIT+1!
RACNI EN+29, EN+35, EN+77, EN+79, EN+99, EN+110, EN+127, EN+141, XIT+1!
RACOL EN+195!
RACOL(1 EN+184*, EN+189, EN+190
RACOL(2 EN+185*, EN+189, EN+191
RACOL(3 EN+186*, EN+189, EN+192
RACPT EN+110!
RACPT("70.3135" EN+113, EN+114, EN+117
RADA EN+157!, EN+159*, EN+161, XIT+1!
RADFN EN+14, EN+15, EN+16, EN+28, EN+29, EN+33, EN+35, EN+77, EN+79, EN+99
, EN+110, EN+127, EN+141, XIT+1!
RADIO EN+157!, EN+160!
RADIO("70.21" EN+162, EN+163, EN+165, EN+167, EN+170, EN+172
RADPT XIT+1!
RADTE EN+118, CN+2, XIT+1!
RADTI EN+28, EN+29, EN+33, EN+35, EN+77, EN+79, EN+99, EN+110, EN+127, EN+141
, XIT+1!
RAHDR EN+97*, EN+98, EN+128*, EN+129, EN+142*, EN+159*, EN+160, EN+183*, EN+187, HDR+14
, XIT+1!
RAI EN+5*, EN+24*, EN+25, XIT+2!
RAIEN EN+33*, EN+34, EN+47, EN+49, EN+51, EN+216!, HDR+11, XIT+2!
RAIENS EN+35*, EN+36, EN+48, EN+50, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58
, EN+83, EN+112, EN+130, EN+143, EN+216!, XIT+2!
RAII EN+206*, EN+207, EN+208, EN+210, EN+212, EN+216!
RAL EN+99!, EN+100*, EN+104, EN+110!, EN+113*, EN+120, EN+127!, EN+131*, EN+135, EN+144*
, EN+151, EN+162*, EN+176, XIT+2!
RALBL EN+97*, EN+98, EN+109*, EN+110!, EN+127!, EN+128*, EN+129, EN+205!, HDR+14, XIT+2!
RALINE EN+10*, EN+59, XIT+2!
RAM XIT+2!
RAMED EN+141!, EN+143!, XIT+2!
RAMED("70.15" EN+144, EN+145, EN+147, EN+148, EN+149, EN+150
RANODT EN+6*, EN+41, HDR+8, XIT+2!
RAOPRC EN+60*, EN+63, XIT+2!
RAORD XIT+2!
RAORD(0 EN+30*, EN+60, EN+94
RAP EN+5*, EN+202*, EN+203, XIT+2!
RAPG EN+40*, EN+41, HDR+7*, HDR+8, XIT+2!
RAPRC EN+61*, EN+62, EN+63, HDR+12, XIT+3!
RAQUIT EN+5*, EN+24, EN+101, EN+102, EN+108, EN+114, EN+115, EN+124, EN+132, EN+133
, EN+138, EN+145, EN+146, EN+154, EN+163, EN+164, EN+165, EN+166, EN+179, EN+188
, EN+197, EN+201, EN+203*, EN+205, EN+206, EN+210, EN+211, HDR+3, HDR+5*, XIT+3!
RARAD EN+32, EN+200, XIT+3!
RARAD(0 EN+32*, EN+182, EN+193, EN+194
RARPT XIT+3!
RARX XIT+3!
RAS EN+99!, EN+101*, EN+103, EN+104, EN+110!, EN+114*, EN+117, EN+120, EN+127!, EN+132*
, EN+134, EN+135, EN+141!, EN+145*, EN+147, EN+148, EN+149, EN+150, EN+151, EN+157!
, EN+160*, EN+163*, EN+165, EN+167, EN+170, EN+172, EN+176, XIT+3!
RATAB XIT+3!
RATAB(1 EN+11*, EN+45, EN+47, EN+49, EN+51, EN+53, EN+62, EN+63, EN+84, EN+86
, EN+88, EN+90, EN+92, EN+94, EN+98, EN+109, EN+129, EN+147, EN+149, EN+169
, EN+189, EN+190, EN+193, HDR+10, HDR+12, HDR+14
RATAB(2 EN+11*, EN+45, EN+47, EN+49, EN+51, EN+53, EN+62, EN+63
RATAB(3 EN+11*, EN+48, EN+50, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58, EN+148
, EN+150
RATAB(4 EN+11*, EN+48, EN+50, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58, EN+62
, EN+174, HDR+11, HDR+13
RATAB(5 EN+12*, EN+84, EN+86, EN+88, EN+90, EN+92, EN+98, EN+109, EN+129
RATAB(6 EN+12*, EN+85, EN+87, EN+89, EN+91, EN+93
RATAB(7 EN+12*, EN+85, EN+87, EN+89, EN+91, EN+93
RATITLE EN+7*, EN+40, HDR+7, XIT+3!
RAU EN+157!, EN+165*, EN+167, EN+168, EN+170*, EN+171*, EN+172, EN+173, XIT+3!
RAU(0 EN+167*, EN+168*, EN+169
RAU(1 EN+172*, EN+173*, EN+174
RAX EN+9*, EN+36, XIT+3!
RAX99 EN+110!, EN+117*, EN+118*, EN+119
RAY XIT+3!
RAY2 EN+28*, XIT+3!
RAY2A EN+33!, EN+216!, XIT+3!
RAY2A( EN+47, EN+49, EN+51, HDR+11
RAY3 EN+29*, EN+30, EN+61, EN+62, EN+64, EN+65, EN+66, EN+67, EN+68, EN+70
, EN+74, EN+75, EN+76, EN+94, EN+157, EN+159, CN+1, CN+2, XIT+4!
RAY3A EN+33!, EN+216!, XIT+4!
RAY3A( EN+48, EN+50, EN+52, EN+54, EN+55, EN+56, EN+57, EN+58, EN+83
RAY3A("70.1" EN+100, EN+101, EN+103
RAYY EN+209*, EN+210*, EN+212, EN+216!
RAZCT EN+200*, EN+207, EN+208, EN+216!, XIT+4!
RAZDFN EN+14!, EN+20!
RAZDFN(2 EN+15, EN+16
RAZFL EN+183*, EN+207, EN+208, EN+216!, XIT+4!
RTFL EN+216!
U EN+30, EN+60, EN+61, EN+62, EN+64, EN+65, EN+66, EN+67, EN+68, EN+70
, EN+74, EN+75, EN+76, EN+79, EN+94, EN+119, EN+157, EN+159, EN+182, EN+193
, EN+194, CN+1, CN+2, PRC+11, PRC+13, PRC+14
X EN+16*, EN+18, EN+20!, CN+1~*, CN+2*, CN+3, HDR+4*, HDR+5!, PRC+8~, PRC+11*
, PRC+12, PRC+13*, PRC+15*, PRC+16
X("CPT" PRC+11*, PRC+14*, PRC+15
X("I" PRC+9*, PRC+10
X("IN" PRC+10*, PRC+15
X("IT" PRC+13*, PRC+15
X("PT" PRC+12*, PRC+14, PRC+15
X(0 PRC+9*, PRC+11, PRC+13, PRC+14
X1 EN+18*, EN+20!
XRA EN+190*, EN+191!*, EN+192!*, EN+195!
Y EN+25*, EN+26, EN+110!, EN+117*, EN+118, EN+216!, PRC~, PRC+9
Z EN+216!
>> ZTQUEUED EN+203, XIT+6
>> ZTREQ XIT+6*
>> ZTSTOP EN+203*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All