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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAPTLU

Package: Radiology Nuclear Medicine

Routine: RAPTLU


Information

RAPTLU ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Patient's Exam Lookup ;11/13/00 09:13

Source Information

Source file <RAPTLU.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Radiology Nuclear Medicine 6 ^RADPA  ($$SSANVAL,$$USESSAN)^RAHLRU1  ($$SSN,D)^RAUTL  $$IMGTY^RAUTL12  EN1^RAUTL20  ASK^RAUTL4  
VA FileMan 4 ^DIE  DT^DIO2  $$GET1^DIQ  ^DIR  
Adverse Reaction Tracking 2 $$ORCHK^GMRAOR  ($$RACHK,$$RADD)^GMRARAD  
Kernel 1 HOME^%ZIS  
Record Tracking 1 ESC^RTRD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Radiology Nuclear Medicine 9 RA OERR PROFILE  RA PTEDIT  RACNLU  RAEDPT  RAERRPT  RAPROQ  RAPROS  RART1  
RART2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CASE ;
PTUPD ;Update Patient Info
PTUPDH2 ;
PTUPDH3
PTUPDX
PTUPD0
Q
PRT ; Screen only if entered through Rad/Nuc Med
PTUPDH1
SEL2 ; per RACNLU, check loc access, need split For Loop,swm080398
SEL ;
IMGDISP(RARPT) ; Display "i" if an image is associated with the Rad/Nuc Med
; Report. Called from RAPROS - Exam Profile (Selected Sort)
; Input : RARPT - ien of the report
; Output: "i" if an image exists, else null ("")
HD ;

External References

Name Field # of Occurrence
HOME^%ZIS SEL+2
^DIE PTUPD+1
DT^DIO2 HD+3
$$GET1^DIQ PRT+12
^DIR PTUPD0+4
$$ORCHK^GMRAOR PTUPD0+1
$$RACHK^GMRARAD PTUPD0+6
$$RADD^GMRARAD PTUPD0+7
^RADPA PTUPD+1
$$SSANVAL^RAHLRU1 PRT+18
$$USESSAN^RAHLRU1 PRT+22, PRT+23, HD+5, HD+6, HD+7, HD+8
$$SSN^RAUTL SEL+2
D^RAUTL PRT+6
$$IMGTY^RAUTL12 PRT+1, PRT+11
EN1^RAUTL20 PRT+17
ASK^RAUTL4 SEL+10, PRT+24
ESC^RTRD HD+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$C(7),"No matches found!"
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !,RACNT,?3,$S(RAMEMLOW:"+",RAPRTSET:".",1:" "),?4,RACNDSP,?19,$$IMGDISP(RARPT),?21,$E(RAPRC,1,26),?49,RADTPRT,?59,$E(RASTP,1,8),?68,$E(RAELOC,1,12)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !,RACNT,?5,$S(RAMEMLOW:"+",RAPRTSET:".",1:" "),?6,RACN,?11,$$IMGDISP(RARPT),?13,$E(RAPRC,1,26),?41,RADTPRT,?52,$E(RASTP,1,16),?69,$E(RAELOC,1,11)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: @IOF,?25,RAHEAD,!!,"Patient's Name: ",$E(RANME,1,20)," ",RASSN,?55,"Run Date: "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"============================ Exam Procedure Profile =========================="
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?3,"Case No.",?21,"Procedure",?49,"Exam Dt",?59
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: $S($D(RAREPORT):"Rpt",1:"Exam")," St",?68,"Imaging Loc"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?3,"--------",?21,"-------------",?49,"---------",?59,"--------",?68,"-----------"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !!?3,"Case No.",?13,"Procedure",?41,"Exam Date",?52,"Status of "
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: $S($D(RAREPORT):"Report",1:"Exam"),?69,"Imaging Loc"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !?3,"--------",?13,"-------------",?41,"---------",?52,"----------------",?69,"-----------"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: PTUPD0+5
Function Call: WRITE
  • Prompt: !?5,"If this patient has had an allergic reaction to contrast medium, enter 'Y'"
  • Line Location: PTUPDH1+0
Function Call: WRITE
  • Prompt: !?5,"for YES at this prompt. If not, enter 'N' for NO."
  • Line Location: PTUPDH1+1
Function Call: WRITE
  • Prompt: !?5,"The value in this field is used to indicate if this Radiology"
  • Line Location: PTUPDH2+1
Function Call: WRITE
  • Prompt: !?5,"/Nuclear Medicine patient has had an allergic reaction to the contrast"
  • Line Location: PTUPDH2+2
Function Call: WRITE
  • Prompt: !?5,"medium during a Radiology/Nuclear Medicine procedure. It may contain a"
  • Line Location: PTUPDH2+3
Function Call: WRITE
  • Prompt: !?5,"'Y' for YES, or 'N' for NO. If YES, then a warning message is"
  • Line Location: PTUPDH2+4
Function Call: WRITE
  • Prompt: !?5,"displayed to the receptionist whenever this patient is"
  • Line Location: PTUPDH2+5
Function Call: WRITE
  • Prompt: !?5,"registered for a procedure that may involve contrast material."
  • Line Location: PTUPDH2+6
Function Call: WRITE
  • Prompt: !?5,"CHOOSE FROM:"
  • Line Location: PTUPDH3+0
Function Call: WRITE
  • Prompt: !?5," Y YES"
  • Line Location: PTUPDH3+1
Function Call: WRITE
  • Prompt: !?5," N NO"
  • Line Location: PTUPDH3+2
Routine Call
  • %ZIS
  • Line Location:
    • SEL+2
Routine Call
  • DIE
  • Line Location:
    • PTUPD+1
Routine Call
  • DIR
  • Line Location:
    • PTUPD0+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
^RARPT - [#74] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SEL2+2
^DISV( CASE+2*
^DPT - [#2] SEL+2
^RA(72 - [#72] PRT+13, PRT+15
^RA(79 - [#79] SEL2+2
^RA(79.1 - [#79.1] PRT+7
^RA(79.2 - [#79.2] SEL2+4, PRT+3
^RADPT - [#70] CASE+2, SEL+5, SEL2+8, PRT+3, PRT+7, PRT+24
^RAMIS(71 - [#71] PRT+6
^RARPT - [#74] PRT+5, IMGDISP+4
^SC - [#44] PRT+7
^TMP("MAG" Q!
^TMP($J SEL+2!, SEL2+6, PRT+9*

Label References

Name Line Occurrences
$$IMGDISP PRT+22, PRT+23
HD PRT+21
PRT SEL2+8
PTUPD0 PTUPD0+5
PTUPDH3 PTUPDH1+2, PTUPDH2+7
PTUPDX PTUPD0+4, PTUPD0+5
Q CASE+1
SEL CASE+1
SEL2 SEL+5

Naked Globals

Name Field # of Occurrence
^( SEL+5, SEL2+8
^(0 SEL+2, SEL+5, SEL2+8, PRT+6, PRT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PTUPDX!
%Y PTUPDX!
ALLERGY PTUPD0+1*, PTUPD0+2, PTUPD0+5, PTUPDX!
C PTUPDX!
D PTUPDX!
D0 PTUPDX!
DA PTUPD+1*, PTUPD0+1, PTUPD0+6, PTUPD0+7, PTUPDX!
DE PTUPDX!
DIC PTUPD+1!, PTUPDX!
DIC(0 PTUPD+1*
DIE PTUPD+1*, PTUPDX!
DIR PTUPD0!, PTUPD0+4!, PTUPDX!
DIR("?" PTUPD0+3*
DIR("??" PTUPD0+3*
DIR("A" PTUPD0*
DIR("B" PTUPD0+2*
DIR(0 PTUPD0*
>> DIRUT PTUPD0+4
DQ PTUPDX!
DR PTUPD+1*, PTUPDX!
DT HD+3
DUZ CASE+2
>> I CASE+1*
IOF PRT+24, HD+3
IOSL PRT+24, HD+4
>> ORVP SEL2+6, PRT+1
>> RACN SEL2+8*, PRT+4, PRT+6*, PRT+9, PRT+19, PRT+23
RACNDSP PRT+18~, PRT+19*, PRT+22
>> RACNI CASE+2, SEL2+8*, PRT+9, PRT+18, PRT+24
RACNT CASE+1, Q!, SEL+2*, SEL+6, PRT+9*, PRT+22, PRT+23
>> RADATE PRT+6*, PRT+9
>> RADFN CASE+2, SEL+2, SEL+5, SEL2+8, PRT+1, PRT+3, PRT+7, PRT+9, PRT+11, PRT+18
, PRT+24
>> RADIV SEL2+1*, SEL2+2*, SEL2+3*, SEL2+6
>> RADTE SEL+5*, PRT+6, PRT+9
>> RADTI CASE+2, SEL+5*, SEL2+8, PRT+1, PRT+3, PRT+7, PRT+9, PRT+11, PRT+18, PRT+24
RADTPRT Q!, PRT+6*, PRT+7*, PRT+22, PRT+23
>> RADUPSCN SEL2+6
RAELOC Q!, PRT+7*, PRT+8*, PRT+22, PRT+23
RAERR Q!
>> RAF1 CASE+1
RAHDCNT CASE+1~*, HD+1, HD+2*
>> RAHEAD HD+3
RAIC PTUPD+1!
>> RAIMAGE SEL2+1*, SEL2+4*, SEL2+5*, SEL2+6
>> RAIMGTY PRT+1
>> RAIMGTYI PRT+11*, PRT+13
RAMEMLOW PRT+17~, PRT+22, PRT+23
>> RANME SEL+2*, PRT+9, HD+3
>> RANODE SEL+5*, SEL2+1
>> RANOSCRN SEL2+6, PRT+1
>> RAOPT("DOSAGE TICKET" , PRT+1, PRT+3
>> RAOPT("UNCORR ECTED REPORTS" , PRT+1, PRT+5
>> RAPRC PRT+6*, PRT+9, PRT+22, PRT+23
RAPRTSET PRT+17~, PRT+22, PRT+23
RAPTFL PTUPDX!
>> RAREPORT PRT+10, PRT+15, HD+5, HD+7
RARPT PRT+4*, PRT+5, PRT+9, PRT+12, PRT+22, PRT+23, IMGDISP~, IMGDISP+4
RASSAN PRT+18~*, PRT+19
>> RASSN SEL+2*, PRT+9, HD+3
>> RAST PRT+6*, PRT+9, PRT+13, PRT+15
RASTP Q!, PRT+12*, PRT+13*, PRT+15*, PRT+22, PRT+23
RTESC Q!, HD+4
RTFL Q!, HD+3, HD+4
U PRT+3, PRT+7
X CASE+1*, SEL+2*, SEL+4*, SEL+5, SEL+6, SEL+10*, SEL2+8, PTUPD0+5*, PTUPD0+6*, PTUPD0+7*
, PTUPDX!
Y CASE+1, PRT+6*, HD+3*, PTUPD+1, PTUPD0+5, PTUPD0+6, PTUPD0+7, PTUPDX!
Y(0 CASE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All