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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RTUTL2

Package: Record Tracking

Routine: RTUTL2


Information

RTUTL2 ;MJK/TROY ISC;Utility Routine; ; 5/15/87 11:39 AM ;

Source Information

Source file <RTUTL2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Record Tracking 5 NAME^RTB  SCR^RTDPA  (ESC,SEL)^RTRD  (DEMOS1,DEMOS2,FND)^RTUTL1  (EQUALS,LINE)^RTUTL3  
VA FileMan 2 NOW^%DTC  D^DIQ  
Kernel 1 ^%ZIS  

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
Record Tracking 9 RTDPA  RTDPA1  RTNQ  RTNQ1  RTNQ2  RTNQ3  RTNQ4  RTT  
RTUTL4  
Radiology Nuclear Medicine 1 RAPROQ  

Entry Points

Name Comments DBIA/ICR reference
SORT
SEL
REC1Q
PTHD ;Entry point to print entity(patient) demographics; RTE defined
; RTE = variable pointer for entity [45;DPT(]
PRT
RECHD ;Entry point for record header w/X and RT defined
; X = header
; RT = file entry # to ^RT(
REC
REC1
SEL1
HD
D1 ;D1 is the flag that indicates whether data is displayed

External References

Name Field # of Occurrence
NOW^%DTC PTHD+4
^%ZIS RTUTL2+2
D^DIQ PTHD+4, PTHD+5
NAME^RTB RECHD+3
SCR^RTDPA RTUTL2+4
ESC^RTRD SEL+1
SEL^RTRD SEL1
DEMOS1^RTUTL1 PTHD+2
DEMOS2^RTUTL1 SORT+1
FND^RTUTL1 PRT+2, RECHD+4
EQUALS^RTUTL3 RECHD+6, PTHD+2, HD
LINE^RTUTL3 REC1, RECHD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Record Type",?21,"Vol",?26,"Current Borrower",?45,"Date Charged",?65,"Phone/Room #"
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !?3,"-----------",?21,"---",?26,"----------------",?45,"------------",?65,"------------"
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: RTC
  • Condition for execution: $D(RTSEL)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?3,$E($P(X,"^",2),1,16),?21,"V",$P(X,"^",3),?26,$E($P(X,"^",4),1,18),?45,$P(X,"^",5),?65,$E($P(X,"^",6),1,14)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?3,"(",$P(X,"^",9),")"
  • Condition for execution: $P(X,"^",9)]""
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?26,"(",$P(X,"^",7),")"
  • Condition for execution: $P(X,"^",7)]""
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?65,"(",$P(X,"^",8),")"
  • Condition for execution: $P(X,"^",8)]""
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: *7
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?3,"*** INACTIVE RECORD ***"
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !?3,"(",^("COMMENT"),")"
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!?3,"...",$P(^DIC(195.2,+$P(^RT(+RTY(1),0),"^",3),0),"^")," V",+$P(^RT(+RTY(1),0),"^",7)
  • Line Location: SEL1+1
Function Call: WRITE
  • Prompt: !,"Current : ",$E(RTD("B"),1,19),?32,"Phone : ",RTD("P"),?58,"|Home : ",$E(H,1,13),!,"Since... : ",RTD("D"),?32,"Location: ",RTD("L"),?58,"|Phone: ",$E(P,1,13)
  • Line Location: RECHD+4
Function Call: WRITE
  • Prompt: @IOF,?(80-$L(X1))/2,X1
  • Line Location: PTHD+2
Function Call: WRITE
  • Prompt: !,"Name : ",$E(RTD("N"),1,30)
  • Line Location: PTHD+3
Function Call: WRITE
  • Prompt: " (",RTD("SSN"),")"
  • Condition for execution: $D(RTD("SSN"))
  • Line Location: PTHD+3
Function Call: WRITE
  • Prompt: ?55,"Page: ",$S($D(RTPAGE):RTPAGE,1:1)
  • Line Location: PTHD+3
Function Call: WRITE
  • Prompt: !?20,"***** Date of Death: "
  • Line Location: PTHD+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: PTHD+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: PTHD+5
Routine Call
  • %ZIS
  • Line Location:
    • RTUTL2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(195.2 - [#195.2] SORT, SEL1+1
^DISV( SEL1+1*
^DPT - [#2] PTHD+5
^RT - [#190] RTUTL2+4, SORT, SORT+1, PRT+3, PRT+4, SEL1+1, RECHD+3
^RTV(190.2 - [#190.2] PRT+2, RECHD+4
^RTV(195.9 - [#195.9] RECHD+3

Label References

Name Line Occurrences
D1 RTUTL2+5, REC
HD RTUTL2+5, REC
PRT REC1
PTHD RECHD+3, HD
REC RTUTL2+6
REC1 REC
REC1Q REC1
SEL REC1
SEL1 RTUTL2+6, SEL
SORT RTUTL2+4

Naked Globals

Name Field # of Occurrence
^( PTHD+5
^("COMMENT" PRT+4
^("I" PRT+3
^(0 SORT, RECHD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% RECHD+6!, PTHD+4!
D1 RTUTL2+5, RTUTL2+7!, REC, REC1, SEL1+1, D1+1*
DT PRT+3
DUZ SEL1+1
H RECHD+3*, RECHD+4, RECHD+6!
I RTUTL2+4*, RTUTL2+7!, SORT, SORT+1
IOF PTHD+2
IOP RTUTL2+2*!
IOST SEL+1
O RTUTL2+7!, SORT*, SORT+1, REC1*
P RECHD+3*, RECHD+4, RECHD+6!
RT RTUTL2+2!, SORT+1*!, RECHD+3, RECHD+4
>> RT1 RTUTL2+4*, RTUTL2+5
>> RTAPL RTUTL2+3, RTUTL2+5, HD
RTC RTUTL2+2!, RTUTL2+6, REC1*, PRT, SEL*, SEL1, SEL1+1
RTC0 RTUTL2+6, RTUTL2+7!, REC1*, SEL*
RTC1 RTUTL2+2!*, RTUTL2+5, RTUTL2+6, RTUTL2+7!, SORT+1*, D1+1
RTD SORT+1!, RECHD+6!, PTHD+4!
RTD("B" SORT+1, RECHD+4
RTD("D" SORT+1, RECHD+4
RTD("DOB" PTHD+4
RTD("L" RECHD+4
RTD("N" PTHD+3
RTD("P" RECHD+4
RTD("P1" SORT+1
RTD("PROV" SORT+1, RECHD+5
RTD("PROVP" SORT+1, RECHD+5
RTD("SAVE" RECHD+3*, PTHD+4
RTD("SSN" PTHD+3
RTD("W" PTHD+4
>> RTE RTUTL2+4, RECHD+3*, PTHD+2, PTHD+5
RTESC RTUTL2+6, REC1, SEL, SEL+1!, SEL1!, SEL1+1*
RTIX RTUTL2+3*, RTUTL2+4, RTUTL2+7!
RTIX("V" RTUTL2+3*, RTUTL2+4
RTL RTUTL2+2!, RTUTL2+7!
RTL( SORT+1*, REC1
RTLC RTUTL2+7!, REC*, REC+2*, REC1*, PRT*, PRT+1*, PRT+2*, PRT+3*, PRT+4*, SEL*
, SEL+1*
>> RTPAGE PTHD+3
RTRD SEL1!
RTRD("A" SEL1*
RTS RTUTL2+2!, RTUTL2+7!
RTS( REC1*
>> RTSEL RTUTL2+6, PRT, SEL, SEL1, D1+1
>> RTSEL("A" SEL1
>> RTTY RTUTL2+3, RTUTL2+5
RTX RTUTL2+2!
RTY RTUTL2+2!, SEL, SEL1+1
RTY( SEL1+1
RTY(1 SEL1+1
RTZ SEL!
RTZ("RTC" SEL*
T RTUTL2+7!, SORT*, SORT+1
U RTUTL2+2*
V RTUTL2+7!, SORT*, SORT+1, REC1*
>> X REC1*, PRT, PRT+1, PRT+2, PRT+3, PRT+4, SEL1+1
>> X1 PTHD+2, HD*
>> Y RTUTL2+4*, RECHD+3*, PTHD+2*, PTHD+4*, PTHD+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All