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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAORD6

Package: Radiology Nuclear Medicine

Routine: RAORD6


Information

RAORD6 ;HISC/CAH - AISC/RMO-Print A Request Cont. ;13 Apr 2018 3:35 PM

Source Information

Source file <RAORD6.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Radiology Nuclear Medicine 9 ODX^RABWUTL  EN30^RAO7PC1  USERCAN^RAORD3  $$ID^RAORD6  TC^RAORD61  D^RAUTL  DIWP^RAUTL5  $$PTSEX^RAUTL8  
OUTTEXT^RAUTL9  
VA FileMan 3 ^%DT  ^DIWP  ^DIWW  
Kernel 2 (PKILL,PSET)^%ZISP  $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Radiology Nuclear Medicine 6 RABTCH  RAORD  RAORD4  RAORD5  RAORD6  RAORD61  

Entry Points

Name Comments DBIA/ICR reference
BAR ;Print bar-coded SSN on request form if term type has bar code setup
CONT
WORK
TC
DASHLN
HD
CRCHK
ID(X,Y) ; Checks for the following condition:
; 1) Attending Phy. Current & Attending Phy. At Order are the same.
; 2) Primary Phy. Current & Primary Phy. At Order are the same.
; Input Variables:
; 'X'-> Attending/Primary Phy. Current
; 'Y'-> Attending/Primary Phy. At Order

External References

Name Field # of Occurrence
^%DT HD+2
PKILL^%ZISP BAR+5
PSET^%ZISP BAR+4
^DIWP RAORD6+67, CONT+4
^DIWW RAORD6+70, CONT+5
ODX^RABWUTL CONT
EN30^RAO7PC1 TC
USERCAN^RAORD3 RAORD6+107
$$ID^RAORD6 RAORD6+88, RAORD6+93
TC^RAORD61 TC
D^RAUTL HD+2, HD+6
DIWP^RAUTL5 CONT+3
$$PTSEX^RAUTL8 RAORD6+13
OUTTEXT^RAUTL9 RAORD6+54
$$UP^XLFSTR ID+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Requested:",?18,RA("PRC INFO")
  • Line Location: RAORD6+29
Function Call: WRITE
  • Prompt: !,"Registered:"
  • Line Location: RAORD6+38
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RA18NLIN
  • Line Location: RAORD6+41
Function Call: WRITE
  • Prompt: ?12,RAT
  • Line Location: RAORD6+41
Function Call: WRITE
  • Prompt: !?12,"** The requested procedure has contrast media assigned **"
  • Line Location: RAORD6+45
Function Call: WRITE
  • Prompt: !?12,"** A registered procedure uses contrast media **"
  • Line Location: RAORD6+46
Function Call: WRITE
  • Prompt: !,"Procedure Message: ",!
  • Line Location: RAORD6+49
Function Call: WRITE
  • Prompt: !,"Request Status:",?22,$E(RA("OST"),1,24)
  • Line Location: RAORD6+58
Function Call: WRITE
  • Prompt: !,"Reason ",$S($P(RAORD0,"^",5)=1:"Cancelled",1:"Held"),":"
  • Line Location: RAORD6+60
Function Call: WRITE
  • Prompt: ?22,$S($D(^RA(75.2,+$P(RAORD0,"^",10),0)):$E($P(^(0),"^"),1,50),$P(RAORD0,"^",27)]"":$E($P(RAORD0,"^",27),1,50),1:"UNKNOWN")
  • Line Location: RAORD6+61
Function Call: WRITE
  • Prompt: !,"Hold Description:",!
  • Line Location: RAORD6+66
Function Call: WRITE
  • Prompt: !!,?(IOM-(IOM/2+15)),"*********************",!,?(IOM-(IOM/2+15)),"* C A N C E L L E D *",!,?(IOM-(IOM/2+15)),"*********************"
  • Line Location: RAORD6+73
Function Call: WRITE
  • Prompt: !!,"Requester:",?22,$E(RA("PHY"),1,20)
  • Line Location: RAORD6+77
Function Call: WRITE
  • Prompt: !,"Attend Phy Current:",?22,$E(RA("ATTEN"),1,20)
  • Line Location: RAORD6+80
Function Call: WRITE
  • Prompt: !,"Prim Phy Current:",?22,$E(RA("PRIM"),1,20)
  • Line Location: RAORD6+83
Function Call: WRITE
  • Prompt: !,"Attend Phy At Order:",?22,$E(RA("OATTEN"),1,20)
  • Line Location: RAORD6+89
Function Call: WRITE
  • Prompt: !,"Prim Phy At Order:",?22,$E(RA("OPRIM"),1,20)
  • Line Location: RAORD6+94
Function Call: WRITE
  • Prompt: !,"Approved by: ",?22,RAPPRAD
  • Line Location: RAORD6+102
Function Call: WRITE
  • Prompt: !,"Date/Time Ordered:",?22,$S($D(RA("ODT")):RA("ODT"),1:"")," by ",$E(RA("USR"),1,20)
  • Line Location: RAORD6+105
Function Call: WRITE
  • Prompt: !!!?49,@IOBARON,X3,@IOBAROFF,!
  • Line Location: BAR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !,"VA Form 519a-ADP"
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !,RALNE,!,"Date Performed: ________________________",?46
  • Line Location: WORK+0
Function Call: WRITE
  • Prompt: "Case No.: ______________________"
  • Line Location: WORK+1
Function Call: WRITE
  • Prompt: "Case No.: ______see above_______"
  • Line Location: WORK+2
Function Call: WRITE
  • Prompt: !,"Technologist Initials: _________________"
  • Line Location: WORK+4
Function Call: WRITE
  • Prompt: !?46,"Number/Size Films: _____________",!,"Interpreting Phys. Initials: ___________",?65,"_____________",!?65,"_____________",!
  • Line Location: WORK+6
Function Call: WRITE
  • Prompt: !,"Comments:"
  • Line Location: WORK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DASHLN+0
Function Call: WRITE
  • Prompt: !,RALNE
  • Line Location: DASHLN+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?RATAB,">>"_$S($D(RACRHD):"Discontinued ",1:"")_"Rad/NM Consultation"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: " for ",$E(RA("ILC"),1,17)
  • Condition for execution: $D(RA("ILC"))
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "<<Printed:"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: "<<Printed:"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?71,"Page ",RAPGE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,RALNE1,!,"Name : ",RA("NME"),?46,"Urgency : ",RA("OUG")
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: " *PORTABLE*"
  • Condition for execution: $D(RA("PORTABLE"))
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"Pt ID Num : ",RASSN,?46,"Transport : ",RA("TRAN")
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"Date of Birth: ",Y,?46,"Patient Loc: ",$E(RA("HLC"),1,20)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Age at req : ",RA("AGE"),?46,"Phone Ext : ",RA("HPH")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,"Sex : ",$S(RA("SEX")="M":"MALE",1:"FEMALE")
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?46,"Room-Bed : ",RA("ROOM-BED")
  • Condition for execution: $D(RA("ROOM-BED"))
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"Height (in.) : ",$S($D(RA("HT")):RA("HT"),1:"")
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: ?46,"Height Date: ",$S($D(RA("HTDT")):RA("HTDT"),1:"")
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"Weight (lbs) : ",$S($D(RA("WT")):RA("WT"),1:"")
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: ?46,"Weight Date: ",$S($D(RA("WTDT")):RA("WTDT"),1:"")
  • Line Location: HD+14
Function Call: WRITE
  • Prompt: !,RALNE1
  • Line Location: HD+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CRCHK+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Press RETURN to continue or '^' to stop "
  • Line Location: CRCHK+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(75.2 - [#75.2] RAORD6+61
^RADPT - [#70] RAORD6+22, RAORD6+23
^RADPT("AO" RAORD6+16, RAORD6+18, RAORD6+20, WORK+1
^RAMIS(71 - [#71] RAORD6+50, RAORD6+51
^RAMIS(71.4 - [#71.4] RAORD6+52
^RAO(75.1 - [#75.1] RAORD6+63, RAORD6+67, CONT+4
^TMP($J RAORD6+32, RAORD6+39
^UTILITY($J RAORD6+65!, CONT+4!
^VA(200 - [#200] RAORD6+100, RAORD6+101, ID+8

Label References

Name Line Occurrences
CONT BAR+1
CRCHK HD
HD RAORD6+12, RAORD6+40, RAORD6+55, RAORD6+62, RAORD6+67, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82
RAORD6+87, RAORD6+104, RAORD6+108, CONTCONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7
DASHLN
WORK CONT+5

Naked Globals

Name Field # of Occurrence
^( RAORD6+67, CONT+4
^(0 RAORD6+61, CONT+4
^(1 CONT+4!
^(20 RAORD6+100

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT HD+2*!
A RAORD6+49~*, RAORD6+50*, RAORD6+51, ID+8~*, ID+9
B RAORD6+49~, RAORD6+51*, RAORD6+52, ID+8~*, ID+9
BOT CONT+6*, CONT+7!
BT CONT+6*, CONT+7!
C RAORD6+49~*, RAORD6+53, RAORD6+55*
>> DDBRZIS CONT+6
DTIME CRCHK
I RAORD6+64~, RAORD6+67*, DASHLN*
>> IOBAROFF BAR+4
>> IOBARON BAR+4
IOF HD+2
IOM RAORD6+73
IOSL RAORD6+40, RAORD6+55, RAORD6+62, RAORD6+67, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82, RAORD6+87
RAORD6+104, RAORD6+108, CONTCONT+1, CONT+4, CONT+5, CONT+6, WORK+3, WORK+5, WORK+7
DASHLN
IOST CONT+6, CRCHK
R3 RAORD6+22~*, RAORD6+24, RAORD6+25
>> RA("AGE" HD+8
>> RA("APHOINFO" RAORD6+81
>> RA("ATTEN" RAORD6+80, RAORD6+81, RAORD6+86
>> RA("DOB" HD+6
>> RA("HLC" HD+6
>> RA("HPH" HD+8
>> RA("HT" HD+12
>> RA("HTDT" HD+12
>> RA("ILC" HDHD+2
>> RA("MOD" RAORD6+47
>> RA("NME" HD+4
>> RA("OAPHOINFO" RAORD6+90
>> RA("OATTEN" RAORD6+86, RAORD6+89, RAORD6+90
>> RA("ODT" RAORD6+105
>> RA("OPPHOINFO" RAORD6+95
>> RA("OPRIM" RAORD6+92, RAORD6+94, RAORD6+95
>> RA("OST" RAORD6+58
>> RA("OUG" HD+4
>> RA("PDT" RAORD6+109
>> RA("PHY" RAORD6+77, RAORD6+78
>> RA("PORTABLE" HD+4
>> RA("PPHOINFO" RAORD6+84
>> RA("PRC INFO" RAORD6+29
>> RA("PRC MSG" RAORD6+48
>> RA("PRIM" RAORD6+83, RAORD6+84, RAORD6+92
>> RA("RDT" RAORD6+106
>> RA("ROOM-BED" HD+9
>> RA("RPHOINFO" RAORD6+78
>> RA("SDT" RAORD6+75
>> RA("SEX" HD+9
>> RA("ST" RAORD6+74
>> RA("STY_REA" CONT+3
>> RA("TRAN" HD+5
>> RA("USR" RAORD6+105
>> RA("VDT" RAORD6+28
>> RA("WT" HD+14
>> RA("WTDT" HD+14
RA18NLIN RAORD6+38~*, RAORD6+41, RAORD6+42*
RA5 RAORD6+17~, RAORD6+20*, RAORD6+21, RAORD6+22, RAORD6+23
>> RACMFLG("O" RAORD6+45
>> RACMFLG("R" RAORD6+46
>> RACRHD HD+2
>> RADFN RAORD6+13, RAORD6+16, RAORD6+18, RAORD6+20, RAORD6+22, RAORD6+23
>> RAFOERR RAORD6+32
RAINVDT RAORD6+17~, RAORD6+18*, RAORD6+19, RAORD6+20, RAORD6+22, RAORD6+23
>> RALNE WORKDASHLN
>> RALNE1 HD+4, HD+17
>> RAOIFN RAORD6+15, RAORD6+16, RAORD6+18, RAORD6+20, RAORD6+63, RAORD6+67, CONTCONT+4, WORK+1, TC
>> RAORD0 RAORD6+14, RAORD6+27, RAORD6+50, RAORD6+51, RAORD6+59, RAORD6+60, RAORD6+61, RAORD6+72, RAORD6+74, RAORD6+75
RAORD6+98, RAORD6+99, RAORD6+107, HD+18
RAPASS1 RAORD6+85!, RAORD6+86*, RAORD6+88, RAORD6+92*, RAORD6+93, RAORD6+97!
RAPASS2 RAORD6+85!, RAORD6+86*, RAORD6+88, RAORD6+92*, RAORD6+93, RAORD6+97!
RAPCOMM RAORD6+22~, RAORD6+23*, RAORD6+25
>> RAPGE HD*, HD+3*, CRCHK
RAPPRAD RAORD6+99~*, RAORD6+100*, RAORD6+101*, RAORD6+102
>> RASSN BAR+1, BAR+2, HD+5
RAT RAORD6+38~*, RAORD6+39*, RAORD6+41
>> RATAB HD*, HD+2
>> RAV CONT+4*
>> RAX RAORD6+12, RAORD6+32, RAORD6+39, RAORD6+40, RAORD6+48, RAORD6+50, RAORD6+59, RAORD6+62, RAORD6+63, RAORD6+67
RAORD6+68, RAORD6+69, RAORD6+71, RAORD6+76, RAORD6+79, RAORD6+82, RAORD6+87, RAORD6+104, RAORD6+108, CONT
CONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7, TCDASHLNHD, CRCHK*
RAXX RAORD6+64~, RAORD6+67*, RAORD6+70, CONT+4!*, CONT+5
U RAORD6+24, RAORD6+25, HD+18
X RAORD6+49~, RAORD6+52*, RAORD6+54, RAORD6+64~, RAORD6+67*, CONT+4*, HD+2*, CRCHK*, ID~, ID+6
, ID+7, ID+8
>> X3 BAR+2*, BAR+4
Y HD+2, HD+6*, ID~, ID+6, ID+7, ID+8
Z ID+8~, ID+9*, ID+10*, ID+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All