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

Package: Fee Basis

Routine: FBAABPG


Information

FBAABPG ;AISC/DMK - PURGE BATCH FILE ;11/15/2010

Source Information

Source file <FBAABPG.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  DT^DICRW  ^DIK  ^DIR  
Fee Basis 1 (CLOSE,PDF,ZIS)^FBAAUTL  
Kernel 1 $$FMADD^XLFDT  
MailMan 1 ^XMB  

Entry Points

Name Comments DBIA/ICR reference
RD
SETDT
START
MORE
MEDP
TRAVP
RPHP
GOT
PRT
END
CHP

External References

Name Field # of Occurrence
^%DT SETDT+2
DT^DICRW FBAABPG+5
^DIK GOT
^DIR SETDT+6
CLOSE^FBAAUTL END
PDF^FBAAUTL FBAABPG+5, PRT+4
ZIS^FBAAUTL SETDT+8
$$FMADD^XLFDT SETDT
^XMB PRT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"DUZ and DUZ(0) must be defined as a valid user to run the batch purge.",!!
  • Line Location: FBAABPG+3
Function Call: WRITE
  • Prompt: *7,!!,"You must have programmer access (DUZ(0)='@') before running the batch purge.",!!
  • Line Location: FBAABPG+4
Function Call: WRITE
  • Prompt: !,*7,?7,"There are no batches finalized !!"
  • Line Location: FBAABPG+6
Function Call: WRITE
  • Prompt: !,"This option is used to purge Fee Basis batch numbers that were"
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !,"finalized before a specified date (at least 18 months ago)."
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SETDT+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?15,"*** BEGIN FEE BASIS BATCH NUMBER PURGE ***",!!!
  • Line Location: START+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: GOT+0
Function Call: WRITE
  • Prompt: !!,?10,"There are no batch numbers to purge for this time frame !! "
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!!!,?15,"*** FEE BASIS BATCH NUMBER PURGE FINISHED ***"
  • Line Location: PRT+3
Routine Call
  • DIR
  • Line Location:
    • SETDT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.7 - [#161.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.4 - [#161.4] PRT+2*
^FBAA(161.7 - [#161.7] FBAABPG+6, START+1, MORE
^FBAA(162.1 - [#162.1] RPHP, RPHP+1!
^FBAAC - [#162] MEDP, TRAVP
^FBAAC("AC" MEDP, MEDP+1!
^FBAAC("AD" TRAVP, TRAVP+1!
^FBAAI - [#162.5] CHP*
^FBAAI("AC" CHP, CHP+1!
^FBAAI("AE" CHP+1!
^VA(200 - [#200] PRT+4

Label References

Name Line Occurrences
CHP MORE
END SETDT+2, SETDT+6, SETDT+8, PRT
GOT MEDP+1, TRAVP+1, RPHP+1, CHP+1
MEDP MORE
MORE START+1
PRT START+2
RPHP MORE
TRAVP MORE

Naked Globals

Name Field # of Occurrence
^("FBREJ" CHP
^(0 MEDP*, TRAVP*, RPHP*, PRT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SETDT*, SETDT+2!
%DT("A" SETDT+1*
%DT(0 SETDT*
B MORE*, END!
CNT START*, GOT*, PRT, PRT+1, PRT+4, END!
D0 END!
D1 END!
DA GOT*, END!
DIC END!
DIK GOT*, END!
DIR SETDT+6!
DIR("?" SETDT+5*
DIR("A" SETDT+4*
DIR("B" SETDT+4*
DIR(0 SETDT+4*
DIRUT SETDT+6, END!
DIW END!
DIWL END!
DIWT END!
DN END!
DT FBAABPG+5, SETDT, PRT+2
DUZ FBAABPG+3, PRT+4
DUZ(0 FBAABPG+3, FBAABPG+4
FBDUZ MORE*, END!
FBPGDT FBAABPG+5*, SETDT+8, PRT+4, END!
>> FBPOP SETDT+8
FBTYPE MORE*, END!
I START+1*, MORE, MEDP, MEDP+1, TRAVP, TRAVP+1, RPHP, RPHP+1, GOT, END!
, CHP, CHP+1
IO START
IOF START
IOST START
J MEDP*, TRAVP*, RPHP*, END!, CHP*
K MEDP*, TRAVP*, RPHP*, END!
L MEDP*, END!
M MEDP*, END!
PD START+1*, END!
PDAT SETDT+2*, SETDT+8, START+1, PRT+1, PRT+4, END!
PGM SETDT+8*, END!
VAL SETDT+8*, END!
VAR SETDT+8*, END!
X END!
XM1 END!
XMA END!
XMB PRT+4*, END!
XMB(1 PRT+4*
XMB(2 PRT+4*
XMB(3 PRT+4*
XMB(4 PRT+4*
XMDT END!
XMM END!
Y FBAABPG+5*, SETDT+2, SETDT+6, PRT+4*, END!
Y(0 MORE*
Info |  Source |  Call 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