Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls