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

Package: Record Tracking

Routine: RTP41


Information

RTP41 ;MJK/TROY ISC;Charge Out Pull List (continued); ; 4/24/87 11:55 AM ;

Source Information

Source file <RTP41.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  (D,Y)^DIQ  ^DIR  
Record Tracking 3 NAME^RTB  DIC^RTDPA31  (EQUALS,LINE)^RTUTL3  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Record Tracking 3 RTP4  RTP5  RTP6  

Entry Points

Name Comments DBIA/ICR reference
LIST
WRITE
SHOW ;
SHOW1
BOR ;ask record retirement borrower
H1
H12
H14
H13
H4
H42

External References

Name Field # of Occurrence
NOW^%DTC LIST
^DIC BOR+3
D^DIQ LISTWRITE
Y^DIQ SHOW1+1, H13
^DIR SHOW1BOR+5, BOR+9
NAME^RTB WRITE
DIC^RTDPA31 BOR+3
EQUALS^RTUTL3 LIST+1
LINE^RTUTL3 WRITE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$S(RTLIST="RTCANCEL":"Cancelled Requests",1:"Missing Records")," List"
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: ?55,"RUN DATE: ",Y
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"PULL LIST",?25,"REQUEST#",?35,"REQUESTED TIME",?60,"RECORD INFORMATION"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !?2,$E(RTPX,1,20),?25,RTQ,?35,RTQDT,?60,RTYPE,?65,$E(RTNME,1,15),!,?60,RT,?65,RTSSN
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !!,"The following CLINIC pull lists will be ",RTMES,": "
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !?5,*7,"No CLINIC pull lists need to be ",RTMES,"."
  • Line Location: SHOW+3
Function Call: WRITE
  • Prompt: !?5,RTC,". ",$E($P($P(X,"^"),"["),1,25),?35," Status: "
  • Line Location: SHOW1+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: SHOW1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BOR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BOR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BOR+9
Function Call: WRITE
  • Prompt: !!?5,"Answer 'Yes' to create the default perpetual record."
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !?5,"Answer 'No' to just charge out the retirement pull list."
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !!?5,"After the Pull list(s) are charged out, a perpetual record"
  • Line Location: H12+0
Function Call: WRITE
  • Prompt: !?5,"can be created for each patient on the Pull list."
  • Line Location: H12+1
Function Call: WRITE
  • Prompt: !?5,"'",Y,"' records and labels will be created"
  • Line Location: H12+2
Function Call: WRITE
  • Prompt: !?5,"The application default perpetual record is NOT defined."
  • Line Location: H14+0
Function Call: WRITE
  • Prompt: !?14,"NO records will be created"
  • Line Location: H14+1
Function Call: WRITE
  • Prompt: !!?5,"The accession number will be recorded in the content descriptor"
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !?5,"field of the perpetual records created from these pull lists."
  • Line Location: H4+1
Function Call: WRITE
  • Prompt: !!?5,"Enter the accession number as provided by the Record Center."
  • Line Location: H42+0
Function Call: WRITE
  • Prompt: !?20,"from 3-20 characters"
  • Line Location: H42+1
Function Call: WRITE
  • Prompt: !!?5,"The accession numbers will be used in the future to locate"
  • Line Location: H42+2
Function Call: WRITE
  • Prompt: !?5,"records transfered to the Record Center."
  • Line Location: H42+3
Routine Call
  • DIC
  • Line Location:
    • BOR+3
Routine Call
  • DIR
  • Line Location:
    • SHOW1
    • BOR+5
    • BOR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RTV(195.9 - [#195.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(194.2 SHOW1+1
^DD(195.1 H13
^DIC(195.1 - [#195.1] BOR+2, H13
^DIC(195.2 - [#195.2] WRITE
^DPT - [#2] WRITE+1
^RT - [#190] WRITE
^RTV(194.2 - [#194.2] SHOW+2
^TMP($J LIST+2

Label References

Name Line Occurrences
H13 BOR+5, BOR+7, H12+2
H14 BOR+7
SHOW1 SHOW+2
WRITE LIST+2

Naked Globals

Name Field # of Occurrence
^( LIST+2
^(0 WRITEWRITE+1, SHOW+2
^(4 BOR+2, H13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LIST
>> A BOR+2*
>> C SHOW1+1*, H13*
D SHOW+2*, SHOW+4!, SHOW1*
>> DIC BOR+3*
>> DIC("A" BOR+3*
>> DIC("B" BOR+2*
>> DIC("S" BOR+3*
>> DIC(0 BOR+3*
DIR BOR+5!, BOR+9!
DIR("?" BOR+5*, BOR+9*
DIR("??" BOR+5*, BOR+9*
DIR("A" BOR+5*, BOR+9*
DIR("B" BOR+5*
DIR(0 SHOW1*, BOR+5*, BOR+9*
P SHOW+2*, SHOW+4!
RT WRITE*, WRITE+2, WRITE+3!
RT0 WRITE*, WRITE+1, WRITE+3!
>> RTACCN BOR+9*
>> RTAPL SHOW+2, BOR+2, BOR+3, H13
>> RTB BOR+3*
>> RTC SHOW+1*, SHOW+2*, SHOW+3, SHOW1SHOW1+1
>> RTDT SHOW+1, SHOW+2
RTEND SHOW+1*, SHOW+2, SHOW+4!
>> RTLIST LISTLIST+2
>> RTMES SHOW+1, SHOW+3
RTNME WRITE*, WRITE+2, WRITE+3!
RTPX LIST+2*, LIST+3!, WRITE+2
RTPX1 LIST+2*, LIST+3!
RTQ LIST+2*, LIST+3!, WRITE+2
RTQ0 LIST+2*, LIST+3!, WRITE
RTQDT WRITE*, WRITE+2, WRITE+3!
>> RTSSN WRITE+1*, WRITE+2
>> RTYES BOR+5*, BOR+6, BOR+7*
RTYPE WRITE*, WRITE+2, WRITE+3!
>> SAVX SHOW1*, SHOW1+1
>> X WRITE+1*, SHOW+2*, SHOW1SHOW1+1*
>> Y LIST*, WRITE*, SHOW1+1*, BOR+3, BOR+5, BOR+9, H12+2, H13*
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