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. ; Mar 16, 2023@06:47:30

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
HD2 ;2-p200 - Modified header if PT NAME (PREFERRED NAME) exceeds column-one length of 30 chars.
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+68, CONT+4
^DIWW RAORD6+71, CONT+5
ODX^RABWUTL CONT
EN30^RAO7PC1 TC
USERCAN^RAORD3 RAORD6+108
$$ID^RAORD6 RAORD6+89, RAORD6+94
TC^RAORD61 TC
D^RAUTL HD+2, HD+7, HD2+9
DIWP^RAUTL5 CONT+3
$$PTSEX^RAUTL8 RAORD6+14
OUTTEXT^RAUTL9 RAORD6+55
$$UP^XLFSTR ID+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Requested:",?18,RA("PRC INFO")
  • Line Location: RAORD6+30
Function Call: WRITE
  • Prompt: !,"Registered:"
  • Line Location: RAORD6+39
Function Call: WRITE
  • Prompt: !
  • Condition for execution: RA18NLIN
  • Line Location: RAORD6+42
Function Call: WRITE
  • Prompt: ?12,RAT
  • Line Location: RAORD6+42
Function Call: WRITE
  • Prompt: !?12,"** The requested procedure has contrast media assigned **"
  • Line Location: RAORD6+46
Function Call: WRITE
  • Prompt: !?12,"** A registered procedure uses contrast media **"
  • Line Location: RAORD6+47
Function Call: WRITE
  • Prompt: !,"Procedure Message: ",!
  • Line Location: RAORD6+50
Function Call: WRITE
  • Prompt: !,"Request Status:",?22,$E(RA("OST"),1,24)
  • Line Location: RAORD6+59
Function Call: WRITE
  • Prompt: !,"Reason ",$S($P(RAORD0,"^",5)=1:"Cancelled",1:"Held"),":"
  • Line Location: RAORD6+61
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+62
Function Call: WRITE
  • Prompt: !,"Hold Description:",!
  • Line Location: RAORD6+67
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+74
Function Call: WRITE
  • Prompt: !!,"Requester:",?22,$E(RA("PHY"),1,20)
  • Line Location: RAORD6+78
Function Call: WRITE
  • Prompt: !,"Attend Phy Current:",?22,$E(RA("ATTEN"),1,20)
  • Line Location: RAORD6+81
Function Call: WRITE
  • Prompt: !,"Prim Phy Current:",?22,$E(RA("PRIM"),1,20)
  • Line Location: RAORD6+84
Function Call: WRITE
  • Prompt: !,"Attend Phy At Order:",?22,$E(RA("OATTEN"),1,20)
  • Line Location: RAORD6+90
Function Call: WRITE
  • Prompt: !,"Prim Phy At Order:",?22,$E(RA("OPRIM"),1,20)
  • Line Location: RAORD6+95
Function Call: WRITE
  • Prompt: !,"Approved by: ",?22,RAPPRAD
  • Line Location: RAORD6+103
Function Call: WRITE
  • Prompt: !,"Date/Time Ordered:",?22,$S($D(RA("ODT")):RA("ODT"),1:"")," by ",$E(RA("USR"),1,20)
  • Line Location: RAORD6+106
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+5
Function Call: WRITE
  • Prompt: " *PORTABLE*"
  • Condition for execution: $D(RA("PORTABLE"))
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"Pt ID Num : ",RASSN,?46,"Transport : ",RA("TRAN")
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Date of Birth: ",Y,?46,"Patient Loc: ",$E(RA("HLC"),1,20)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,"Age at req : ",RA("AGE"),?46,"Phone Ext : ",RA("HPH")
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"Sex : ",$S(RA("SEX")="M":"MALE",1:"FEMALE")
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: ?46,"Room-Bed : ",RA("ROOM-BED")
  • Condition for execution: $D(RA("ROOM-BED"))
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,"Height (in.) : ",$S($D(RA("HT")):RA("HT"),1:"")
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: ?46,"Height Date: ",$S($D(RA("HTDT")):RA("HTDT"),1:"")
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !,"Weight (lbs) : ",$S($D(RA("WT")):RA("WT"),1:"")
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: ?46,"Weight Date: ",$S($D(RA("WTDT")):RA("WTDT"),1:"")
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !,RALNE1
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !,RALNE1,!,"Name : ",RA("NME")
  • Line Location: HD2+7
Function Call: WRITE
  • Prompt: !,"Pt ID Num : ",RASSN,?RARTC,"Urgency",?RARTC2,": ",RA("OUG")
  • Line Location: HD2+8
Function Call: WRITE
  • Prompt: " *PORTABLE*"
  • Condition for execution: $D(RA("PORTABLE"))
  • Line Location: HD2+8
Function Call: WRITE
  • Prompt: !,"Date of Birth: ",Y,?RARTC,"Transport",?RARTC2,": ",RA("TRAN")
  • Line Location: HD2+9
Function Call: WRITE
  • Prompt: !,"Age at req : ",RA("AGE")
  • Line Location: HD2+11
Function Call: WRITE
  • Prompt: ?RARTC,"Patient Loc",?RARTC2,": "_$E(RA("HLC"),1,20)
  • Line Location: HD2+12
Function Call: WRITE
  • Prompt: ?RARTC,RAPTLOC,$E(RA("HLC"),1,20)_"/"_RA("ROOM-BED")
  • Line Location: HD2+13
Function Call: WRITE
  • Prompt: !,"Sex : ",$S(RA("SEX")="M":"MALE",1:"FEMALE")
  • Line Location: HD2+14
Function Call: WRITE
  • Prompt: ?RARTC,"Room-Bed",?RARTC2,": "_RA("ROOM-BED")
  • Line Location: HD2+15
Function Call: WRITE
  • Prompt: ?RARTC,"Phone Ext",?RARTC2,": "_RA("HPH")
  • Line Location: HD2+16
Function Call: WRITE
  • Prompt: !,"Height (in.) : ",$S($D(RA("HT")):RA("HT"),1:"")
  • Line Location: HD2+19
Function Call: WRITE
  • Prompt: ?RARTC,"Height Date",?RARTC2,": ",$S($D(RA("HTDT")):RA("HTDT"),1:"")
  • Line Location: HD2+19
Function Call: WRITE
  • Prompt: !,"Weight (lbs) : ",$S($D(RA("WT")):RA("WT"),1:"")
  • Line Location: HD2+21
Function Call: WRITE
  • Prompt: ?RARTC,"Weight Date",?RARTC2,": ",$S($D(RA("WTDT")):RA("WTDT"),1:"")
  • Line Location: HD2+21
Function Call: WRITE
  • Prompt: !,RALNE1
  • Line Location: HD2+24
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+62
^RADPT - [#70] RAORD6+23, RAORD6+24
^RADPT("AO" RAORD6+17, RAORD6+19, RAORD6+21, WORK+1
^RAMIS(71 - [#71] RAORD6+51, RAORD6+52
^RAMIS(71.4 - [#71.4] RAORD6+53
^RAO(75.1 - [#75.1] RAORD6+64, RAORD6+68, CONT+4
^TMP($J RAORD6+33, RAORD6+40
^UTILITY($J RAORD6+66!, CONT+4!
^VA(200 - [#200] RAORD6+101, RAORD6+102, ID+8

Label References

Name Line Occurrences
CONT BAR+1
CRCHK HD
HD RAORD6+13, RAORD6+41, RAORD6+56, RAORD6+63, RAORD6+68, RAORD6+70, RAORD6+72, RAORD6+77, RAORD6+80, RAORD6+83
, RAORD6+88, RAORD6+105, RAORD6+109, CONT, CONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7
, DASHLN
WORK CONT+5

Naked Globals

Name Field # of Occurrence
^( RAORD6+68, CONT+4
^(0 RAORD6+62, CONT+4
^(1 CONT+4!
^(20 RAORD6+101

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT HD+2*!
A RAORD6+50~*, RAORD6+51*, RAORD6+52, ID+8~*, ID+9
B RAORD6+50~, RAORD6+52*, RAORD6+53, ID+8~*, ID+9
BOT CONT+6*, CONT+7!
BT CONT+6*, CONT+7!
C RAORD6+50~*, RAORD6+54, RAORD6+56*
>> DDBRZIS CONT+6
DTIME CRCHK
I RAORD6+65~, RAORD6+68*, DASHLN*
>> IOBAROFF BAR+4
>> IOBARON BAR+4
IOF HD+2
IOM RAORD6+74
IOSL RAORD6+41, RAORD6+56, RAORD6+63, RAORD6+68, RAORD6+70, RAORD6+72, RAORD6+77, RAORD6+80, RAORD6+83, RAORD6+88
, RAORD6+105, RAORD6+109, CONT, CONT+1, CONT+4, CONT+5, CONT+6, WORK+3, WORK+5, WORK+7
, DASHLN
IOST CONT+6, CRCHK
R3 RAORD6+23~*, RAORD6+25, RAORD6+26
>> RA("AGE" HD+9, HD2+11
>> RA("APHOINFO" RAORD6+82
>> RA("ATTEN" RAORD6+81, RAORD6+82, RAORD6+87
>> RA("DOB" HD+7, HD2+9
>> RA("HLC" HD+7, HD2+4, HD2+12, HD2+13
>> RA("HPH" HD+9, HD2+2, HD2+12, HD2+13, HD2+15, HD2+16
>> RA("HT" HD+13, HD2+19
>> RA("HTDT" HD+13, HD2+19
>> RA("ILC" HD, HD+2
>> RA("MOD" RAORD6+48
>> RA("NME" HD+4, HD+5, HD2+7
>> RA("OAPHOINFO" RAORD6+91
>> RA("OATTEN" RAORD6+87, RAORD6+90, RAORD6+91
>> RA("ODT" RAORD6+106
>> RA("OPPHOINFO" RAORD6+96
>> RA("OPRIM" RAORD6+93, RAORD6+95, RAORD6+96
>> RA("OST" RAORD6+59
>> RA("OUG" HD+5, HD2+8
>> RA("PDT" RAORD6+110
>> RA("PHY" RAORD6+78, RAORD6+79
>> RA("PORTABLE" HD+5, HD2+8
>> RA("PPHOINFO" RAORD6+85
>> RA("PRC INFO" , RAORD6+30
>> RA("PRC MSG" RAORD6+49
>> RA("PRIM" RAORD6+84, RAORD6+85, RAORD6+93
>> RA("RDT" RAORD6+107
>> RA("ROOM-BED" HD+10, HD2+2, HD2+4, HD2+12, HD2+13, HD2+15
>> RA("RPHOINFO" RAORD6+79
>> RA("SDT" RAORD6+76
>> RA("SEX" HD+10, HD2+14
>> RA("ST" RAORD6+75
>> RA("STY_REA" CONT+3
>> RA("TRAN" HD+6, HD2+9
>> RA("USR" RAORD6+106
>> RA("VDT" RAORD6+29
>> RA("WT" HD+15, HD2+21
>> RA("WTDT" HD+15, HD2+21
RA18NLIN RAORD6+39~*, RAORD6+42, RAORD6+43*
RA5 RAORD6+18~, RAORD6+21*, RAORD6+22, RAORD6+23, RAORD6+24
>> RACMFLG("O" RAORD6+46
>> RACMFLG("R" RAORD6+47
>> RACRHD HD+2
>> RADFN RAORD6+14, RAORD6+17, RAORD6+19, RAORD6+21, RAORD6+23, RAORD6+24
>> RAFOERR RAORD6+33
RAINVDT RAORD6+18~, RAORD6+19*, RAORD6+20, RAORD6+21, RAORD6+23, RAORD6+24
>> RALNE WORK, DASHLN
>> RALNE1 HD+5, HD+18, HD2+7, HD2+24
RALRB HD2+1~, HD2+4*, HD2+5
>> RAOIFN RAORD6+16, RAORD6+17, RAORD6+19, RAORD6+21, RAORD6+64, RAORD6+68, CONT, CONT+4, WORK+1, TC
>> RAORD0 RAORD6+15, RAORD6+28, RAORD6+51, RAORD6+52, RAORD6+60, RAORD6+61, RAORD6+62, RAORD6+73, RAORD6+75, RAORD6+76
, RAORD6+99, RAORD6+100, RAORD6+108, HD+19, HD2+25
RAPASS1 RAORD6+86!, RAORD6+87*, RAORD6+89, RAORD6+93*, RAORD6+94, RAORD6+98!
RAPASS2 RAORD6+86!, RAORD6+87*, RAORD6+89, RAORD6+93*, RAORD6+94, RAORD6+98!
RAPCOMM RAORD6+23~, RAORD6+24*, RAORD6+26
>> RAPGE HD*, HD+3*, CRCHK
RAPPRAD RAORD6+100~*, RAORD6+101*, RAORD6+102*, RAORD6+103
RAPTLOC HD2+1~, HD2+3*, HD2+13
RARTC HD2+1~*, HD2+3*, HD2+5*, HD2+8, HD2+9, HD2+12, HD2+13, HD2+15, HD2+16, HD2+19
, HD2+21
RARTC2 HD2+1~*, HD2+5*, HD2+8, HD2+9, HD2+12, HD2+15, HD2+16, HD2+19, HD2+21
>> RASSN BAR+1, BAR+2, HD+6, HD2+8
RAT RAORD6+39~*, RAORD6+40*, RAORD6+42
>> RATAB HD*, HD+2
>> RAV CONT+4*
>> RAX RAORD6+13, RAORD6+33, RAORD6+40, RAORD6+41, RAORD6+49, RAORD6+51, RAORD6+60, RAORD6+63, RAORD6+64, RAORD6+68
, RAORD6+69, RAORD6+70, RAORD6+72, RAORD6+77, RAORD6+80, RAORD6+83, RAORD6+88, RAORD6+105, RAORD6+109, CONT
, CONT+1, CONT+4, CONT+5, WORK+3, WORK+5, WORK+7, TC, DASHLN, HD, CRCHK*
RAXX RAORD6+65~, RAORD6+68*, RAORD6+71, CONT+4!*, CONT+5
U RAORD6+25, RAORD6+26, HD+19, HD2+25
X RAORD6+50~, RAORD6+53*, RAORD6+55, RAORD6+65~, RAORD6+68*, CONT+4*, HD+2*, CRCHK*, ID~, ID+6
, ID+7, ID+8
>> X3 BAR+2*, BAR+4
Y HD+2, HD+7*, HD2+9*, 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