Routine: RADRPT1A

Information

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

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

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