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: RADEM

Package: Radiology Nuclear Medicine

Routine: RADEM


Information

RADEM ;HISC/CAH AISC/MJK,RMO,DMK-Display Patient Demographics ;1/22/97 11:10

Source Information

Source file <RADEM.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
DIS
Q
RADFN
ALLERGY ;get allergies DFN must be defined

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF," *********** Patient Demographics ***********",!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !?2,"Name : ",$E(RANME,1,20),?40,"Address: ",?50,$G(RAPA(1))
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !?2,"Pt ID : ",RASSN,?38,$S($G(RAPA(9))]"":"(temporary)",1:""),?50,$G(RAPA(2))
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !?2,"Date of Birth: ",RADOB,?50,$G(RAPA(3))
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?2,"Age : ",RAGE,?50,$G(RATWN)
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !?2,"Veteran : ",RAVET
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: ?40,"Currently is an inpatient."
  • Condition for execution: $D(RAWARD)
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !?2,"Eligibility : ",RAELIG
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: ?42,"Ward : ",RAWARD
  • Condition for execution: $D(RAWARD)
  • Line Location: DIS+6
Function Call: WRITE
  • Prompt: !?2,"Exam Category: ",RAUSAL
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: ?42,"Service : ",RASER
  • Condition for execution: $D(RASER)
  • Line Location: DIS+7
Function Call: WRITE
  • Prompt: !?2,"Sex : ",RASEX
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: ?42,"Bedsection : ",RABED
  • Condition for execution: $D(RABED)
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !?2,"Phone Number : ",$G(RAPA(8))
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !?2,"Narrative : ",^(1)
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !!?2,"Contrast Medium Reaction: ",RAMED
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: !,?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",!
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !?20,"** No allergies on file **"
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: @IOF,!,?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",!
  • Line Location: DIS+18
Function Call: WRITE
  • Prompt: !!?2,$C(7),"**** Patient has died ****"
  • Line Location: Q+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call