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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
CASE ;
Q
SEL ;
SEL2 ; per RACNLU, check loc access, need split For Loop,swm080398
PRT ; Screen only if entered through Rad/Nuc Med
HD ;
PTUPD ;Update Patient Info
PTUPD0
PTUPDX
PTUPDH1
PTUPDH2 ;
PTUPDH3
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 ("")

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
^RARPT - [#74] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call