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

Package: IFCAP

Routine: PRCFACD


Information

PRCFACD ;WISC@ALTOONA/CTB-AUTO PURGE OF CODE SHEETS ;25 May 90/12:17 PM

Source Information

Source file <PRCFACD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIK  
IFCAP 2 ^PRCFSITE  (,WAIT)^PRCFYN  
Kernel 1 ^%ZIS  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
OUT
EN1 ;ENTRY POINT TO DELETE ALL CODE SHEETS (BEYOND RETENTION PERIOD) FOR A SINGLE STATION
EN2 ;DELETE A SINGLE CODE SHEET
A ;SELECT CODE SHEETS TO BE DELETED FOR STATION NUMBER PRCFSN
K ;KILL THE CODE SHEET AND CROSS REFERENCES

External References

Name Field # of Occurrence
^%DT EN1+3, A+1
DD^%DT EN1+4
^%ZIS V+2
^DIC EN2+1
^DIK K+1
^PRCFSITE EN1+1
^PRCFYN EN1+5, EN2+2
WAIT^PRCFYN K+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THIS PROGRAM WILL DELETE ALL CODE SHEETS FOR A SINGLE STATION NUMBER WHICH HAVE",!,"A TRANSMISSION DATE EARLIER (OLDER) THAN THE DATE SPECIFIED BY THE USER",!!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: EN1+5
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: EN2+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: EN2+2
Function Call: READ
  • Variable: X
  • Timeout: 2
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: " CODE SHEET DELETED",$C(7)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,L," CODE SHEETS DELETED FOR STATION ",PRC("SITE")
  • Line Location: A+3
Routine Call
  • DIC
  • Line Location:
    • EN2+1
Routine Call
  • %ZIS
  • Line Location:
    • V+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCF(423 - [#423] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(411 - [#411] V+3, A+1
^PRCF(423 - [#423] A+2

Label References

Name Line Occurrences
A V+3, EN1+6
K EN2+3, A+2
OUT EN1+6

Naked Globals

Name Field # of Occurrence
^("TRANS" A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+1, EN1+5*, EN2+2*
>> %A EN1+4*, EN2+2*
>> %A(1 EN1+4*
>> %B EN1+4*, EN2+2*
%DT OUT!, EN1+3*, A+1*
D0 OUT!, A+2*
DA OUT!, EN2+3*, A+2*, K+1!, K+2!
DIC EN2+1*!
DIC("A" EN2+1*
DIC(0 EN2+1*
>> DIK K+1*
DUZ(0 V+2*
I V+3*, OUT!
IOF V+2
IOP V+2*!
J OUT!, A+2*
K K+2!
>> L A+2*, A+3
>> PRC("FY" EN1+2!
>> PRC("PARAM" EN1+2!
>> PRC("QTR" EN1+2!
>> PRC("SITE" EN1+3, EN1+4, A+3
>> PRCF("X" EN1+1*
PRCFDATE OUT!, A+2*
>> PRCFDEL K+1*
PRCFSN V+3*, OUT!, EN1+3*, A+1, A+2
U A+2
X OUT!, EN1+4*, EN1+5*, EN1+6, EN2+1*, EN2+2*, EN2+3*, A+1*, K+2!
Y V+3!, OUT!, EN1+3, EN1+4, EN1+6*, EN2+1, EN2+3, A+1, A+2
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