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

Package: Record Tracking

Routine: RTUTL1


Information

RTUTL1 ;MJK,PKE/ISC-ALBANY-Utility Routine; ; 4/24/87 9:22 AM ;

Source Information

Source file <RTUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
MOVE
LOC
ARRAY
ARRAY1
DEMOS
DEMOS1
DEMOS2
DEMOS3
DISP ;Executed by the ^DD(190,0,"ID","WRITE") node
RESTORE
SAVE
FND
DISP1 ;Executed by the ^DD(190.1,0,"ID","WRITE") node
DPA2 ;Entry point to display identifiers for request from NUM^RTDPA2
OVER
OVER1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,*7,"...not on list to be processed"
  • Line Location: ARRAY1+0
Function Call: WRITE
  • Prompt: !?3,"...deleted from list to be "_$S($D(Y("M")):Y("M"),1:"processed")
  • Line Location: ARRAY1+1
Function Call: WRITE
  • Prompt: !?3,*7,"...already selected"
  • Line Location: ARRAY1+2
Function Call: WRITE
  • Prompt: !?3,"...added to list to be "_$S($D(Y("M")):Y("M"),1:"processed")
  • Line Location: ARRAY1+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>50
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: ?50," Type: ",$E(RTD("T"),1,22)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,?10,"SSN: ",RTD("SSN")
  • Condition for execution: $D(RTD("SSN"))
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: " Deceased: ",RTD("DOD")," "
  • Condition for execution: $D(RTD("DOD"))
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: ?42,"Date of Birth: ",RTD("DOB")
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !?5,"Location: ",$E(Y,1,22),?45,"Phone/Room: ",RTPH
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: *7
  • Condition for execution: Y["MISSING"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !?5,"...record was missing but has been found pending supervisor approval"
  • Line Location: FND+0
Function Call: WRITE
  • Prompt: " REC#: ",+^RTV(190.1,+Y,0)," REQ#: ",Y," "
  • Line Location: DISP1+1
Function Call: WRITE
  • Prompt: !?4,"Requestor: ",Y
  • Line Location: DISP1+1
Function Call: WRITE
  • Prompt: ?44,"Date Needed: ",Y
  • Line Location: DISP1+2

FileMan Files Accessed Via FileMan Db Call

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