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

Package: Radiology Nuclear Medicine

Routine: RADEM2


Information

RADEM2 ;HISC/CAH,FPT,GJC-Display Patient Demographics (short) ;10/20/94 09:18

Source Information

Source file <RADEM2.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
DIS
ALER ;
Q
RADFN
VETELI(DFN) ; Is this patient a veteran? Does this patient have a
; primary eligibility code?
; RAELI=Primary Eligibility code <-> RAVET=Veteran (Yes/No)

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)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: ?37,"Currently is an inpatient."
  • Condition for execution: $D(RAWARD)
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !?2,"Pt ID : ",RASSN
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?39,"Ward/Service: ",$E(RAWARD_"/"_RASER,1,25)
  • Condition for execution: $D(RAWARD)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !?2,"Date of Birth: ",RADOB," (",RAGE,")"
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: ?39,"Bedsection : ",RABED
  • Condition for execution: $D(RABED)
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !?2,"Veteran : ",RAVET,?39,"Eligibility : ",$E(RAELIG,1,25)
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !?2,"Sex : ",$S(RASEX="M":"MALE",RASEX="F":"FEMALE",1:"Unknown")
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !?2,"Narrative : ",^(1)
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !?2,$E(RAHDVITL),"eight : ",$P(RAHDX,U,8)
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: $S(RAHDVITL="HT":"""",RAHDVITL="WT":" lbs",1:"")
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: " on ",Y
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: !?2,"Other Allergies:",!?7,"'V' denotes verified allergy 'N' denotes non-verified allergy",!
  • Line Location: DIS+18
Function Call: WRITE
  • Prompt: !?20,"** No allergies on file. **"
  • Line Location: DIS+19
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ALER+1
Function Call: WRITE
  • Prompt: !!?2,$C(7),"**** Patient has died ****",!!,"Do you want to continue? NO// "
  • Line Location: ALER+1
Info |  Source |  Entry Points |  Interaction Calls