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

Package: Record Tracking

Routine: RTSM81


Information

RTSM81 ;PKE/ISC-ALBANY-Retirement Data Routine; ; 11/7/90 ;

Source Information

Source file <RTSM81.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
DIE
Q
START ;K RTFLAGS,RTT S (RTLSTQ,RTLSTP)=0 F I=10,8,12 S $P(RTFLAGS,"^",I)=$P(^DIC(195.4,1,0),"^",I)="y"
DIP
FLAG
DAT
TYP
SET ;
BDAT
HDR
H1
H2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Record Type Retirement Parameters:",!,"----------------------------------"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+0
Function Call: WRITE
  • Prompt: !!,"Overall Retirement Parameters:",!,"------------------------------"
  • Line Location: DIE+1
Function Call: WRITE
  • Prompt: !!?5,*7,"No records will be retired!"
  • Line Location: DIE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIE+7
Function Call: WRITE
  • Prompt: !!," 'Record Retirement Pull lists' will be generated by",!," searching all Records for ",$P($P(RTAPL,"^"),";",2)
  • Line Location: DIE+10
Function Call: WRITE
  • Prompt: !!," 'Record Retirement Pull lists' will be generated using",!," terminal digits to select a range of Records "
  • Line Location: DIE+12
Function Call: WRITE
  • Prompt: !!?5,"...compiling retirement profile"
  • Line Location: DIP+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: BDAT+0
Function Call: WRITE
  • Prompt: !?5,"Generating ",RTDESC,!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !?5
  • Condition for execution: $X>55
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: RTFLAGS(N)," "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?5,"You may select a single terminal digit like `11'",!?8,"or a range of terminal digits like `5-30'"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!?5,"Enter 'Y' to look for inactive records by terminal digit"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !?5,"Enter 'N' to look for inactive records by record number"
  • Line Location: H2+1

FileMan Files Accessed Via FileMan Db Call

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