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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCSSTAT

Package: IFCAP

Routine: PRCSSTAT


Information

PRCSSTAT ;WISC/KMB-COLLECT FMS QUARTERLY DATA FOR RECONCILLIATION ;1/14/93 12:00

Source Information

Source file <PRCSSTAT.m>

Entry Points

Name Comments DBIA/ICR reference
START ;we have PRC("CP"),PRC("QTR"),PRC("FY")
EVAL
HEADER
MESSAGE ;;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total amount of FMS transactions: $",$J(TOTAL,20,2),!,?35,"-------------------"
  • Line Location: START+11
Function Call: WRITE
  • Prompt: $P($T(MESSAGE+OUT),";;",2)
  • Line Location: EVAL+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: ?10,"FMS TRANSACTIONS FOR CONTROL POINT ",PRC("CP")," FOR "
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: $S(QTR=1:"1ST",QTR=2:"2ND",QTR=3:"3RD",QTR=4:"4TH",1:"")," QUARTER"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,$P(FIELD,"-"),?15,$P(FIELD,"-",2),?30,$P(FIELD,"-",3),?45,$P(FIELD,"-",4),?60,$P(FIELD,"-",5),!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ZAP
  • Line Location: HEADER+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCS(417 - [#417] START+4, START+6, START+7

Label References

Name Line Occurrences
EVAL START+4
HEADER START+5, START+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHECK START+1~, START+2*, START+6*, START+7
COUNTER START+1~, START+2*, START+4, START+6
FIELD START+1~, START+3*, HEADER+3
FIELDS START+1~, START+3*, START+7*, START+8, START+9
>> HOLD START+9*
>> I START+7*, HEADER+4*
IOF HEADER
OUT START+1~, START+2*, START+4*, EVAL
>> PRC("CP" START+2, HEADER
>> PRC("FY" START+2
>> PRC("QTR" START+2, START+3
QTR START+1~, START+3*, HEADER+1
TOTAL START+1~, START+2*, START+9*, START+11
ZAP START+1~, HEADER+4*

Marked Items

Name Field # of Occurrence
$T(MESSAGE+OUT EVAL
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All