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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls