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

Call Graph

Call Graph Total: 11

Package Total Call Graph
Radiology Nuclear Medicine 4 (,Q)^RADEM1  $$VETELI^RADEM2  ^RASERV  ($$SSN,D)^RAUTL  
VA Fileman 3 ^%DTC  ^DIC  ^DIR  
Adverse Reaction Tracking 2 ^GMRADPT  $$ORCHK^GMRAOR  
Kernel 1 HOME^%ZIS  
Registration 1 ADD^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Radiology Nuclear Medicine 5 RA PROFDEMOS  RADEM2  RAHLQ1  RAHLR  RAHLR1A  

Entry Points

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

External References

Name Field # of Occurrence
^%DTC PAT
HOME^%ZIS DIS
^DIC RADFN
^DIR DIS+17
^GMRADPT ALLERGY+4
$$ORCHK^GMRAOR PAT+14
^RADEM1 Q+2
Q^RADEM1 DIS+21
$$VETELI^RADEM2 PAT+12
^RASERV PAT+19
$$SSN^RAUTL PAT
D^RAUTL PAT+2
ADD^VADPT PAT+4

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
Routine Call
  • %ZIS
  • Line Location:
    • DIS
Routine Call
  • DIC
  • Line Location:
    • RADFN
Routine Call
  • DIR
  • Line Location:
    • DIS+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ALLERGY+2
^DD(70 PAT+16
^DIC(5 - [#5] PAT+10
^DPT - [#2] PAT, PAT+19, Q
^RADPT - [#70] PAT+15, DIS+10

Label References

Name Line Occurrences
ALLERGY DIS+13
PAT RADFN
Q PAT, DIS+13

Naked Globals

Name Field # of Occurrence
^( PAT+19, Q
^(0 PAT, PAT+15
^(1 DIS+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+1!
%H Q+1!
CNT ALLERGY+3~, ALLERGY+5*, ALLERGY+6*, ALLERGY+7
>> DFN PAT+4*, DIS+13*, ALLERGY+4
DIC RADFN*!
DIC(0 RADFN*
DIR DIS+17~
DIR(0 DIS+17*
DT PAT, PAT+1
GMRAL DIS+13, Q+2!, ALLERGY+4
GMRAL( ALLERGY+6, ALLERGY+7
I DIS+14*, DIS+15, DIS+16, Q+2!, ALLERGY+3~, ALLERGY+5*, ALLERGY+6*, ALLERGY+7
IOF DIS, DIS+18
IOSL DIS+16
IOST DIS+16
PI Q+1!
PI( DIS+14, DIS+15, DIS+16, ALLERGY+6*, ALLERGY+7*
POP Q+1!
RABED DIS+8, Q+2!
>> RADFN PAT, PAT+4, PAT+12, PAT+14, PAT+15, PAT+19, DIS+10, DIS+13, Q, RADFN*
RADOB PAT*, PAT+1, PAT+2*, DIS+3, Q+1!
RAELIG PAT+13*, DIS+6, Q+1!
RAGE PAT*, PAT+1*, DIS+4, Q+1!
RAI PAT+6*, Q+1!
RAMED PAT+14*, DIS+11, Q+1!
RANME PAT*, DIS+1, Q+1!
RAPA PAT+4!, Q+1!
RAPA( PAT+6*
RAPA(1 DIS+1
RAPA(2 DIS+2
RAPA(3 DIS+3
RAPA(4 PAT+10
RAPA(5 PAT+10
RAPA(6 PAT+10
RAPA(8 PAT+7*, DIS+9
RAPA(9 DIS+2
RASER DIS+7, Q+2!
RASEX PAT*, DIS+8, Q+1!
RASSN PAT*, DIS+2, Q+2!
RATWN PAT+7*, PAT+10*, DIS+4, Q+1!
RAUSAL PAT+14*, PAT+16*, PAT+17*, DIS+7, Q+2!
RAVET PAT+13*, DIS+5, Q+2!
RAVETELI PAT+12~*, PAT+13
RAWARD DIS+5, DIS+6, Q+2!
RAWD Q+1!
>> RAXIT DIS+14*, DIS+17*, DIS+21
ST Q+2!
U PAT+10
VAERR PAT+4!, PAT+5, PAT+9, Q+2!
VAIN Q+2!
VAROOT PAT+4*!
>> X PAT, ALLERGY+2*
>> X1 PAT*
>> X2 PAT*
>> Y PAT*, PAT+2*, PAT+14*, PAT+15*, PAT+16, DIS+17, RADFN
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