Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Routine: PRCGF424

Package: IFCAP

Routine: PRCGF424

Information

PRCGF424 ;;VMP/RGB IFCAP 424/424.1 FILE CLEANSING ;12/10/97 9:48 AM

Source Information

Source file <PRCGF424.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	2	NOW^%DTC ^DIK
Kernel	1	$$FMADD^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
IFCAP	1	PRCG CLEAN 424/424.1 FILES

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;115,190;Oct 20, 2000;Build 3
TXT	;Cleanse files for: ; 1. File 424 entry with missing 0 node ; 2. File 424 entry with null file #442-Obligation pointer ; 3. File 424 entry with invalid file #442-Obligation pointer ; 4. File 424 entry with null Auth # (field .01) ; 5. File 424 entry with missing sequence number in field .01 ; 6. File 424 entry older than 9 years from current FY
CHK	;START FILE 424 CLEANSING
0	;SAVE FILES
BUILD
1	;CHECK 424 OBLIGATION POINTER TO 442
2
3	;KILL BAD 424 RECORD
CHK1	;START FILE 424.1 CLEANSING
10
11	;KILL BAD 424.1 RECORD
EXIT	;

External References

Name	Field # of Occurrence
NOW^%DTC	BUILD, EXIT+2
^DIK	3+2, 11+2
$$FMADD^XLFDT	BUILD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHK+1
Function Call: WRITE	Prompt: !,$P($T(TXT+PRCII),";",2) Line Location: CHK+1
Function Call: WRITE	Prompt: ! Line Location: BUILD+0
Function Call: WRITE	Prompt: "." Line Location: 2+1
Function Call: WRITE	Prompt: !,"424: ",?8,PRCIEN,?17,PRCTYP,?21,PRCR Line Location: 3+3
Function Call: WRITE	Prompt: "." Line Location: 10+1
Function Call: WRITE	Prompt: !,"424.1: ",?8,PRCIEN,?18,PRCTYP,?22,PRCR Line Location: 11+3
Function Call: WRITE	Prompt: !!,"<< *NO* FILE ISSUES FOUND TO BE CLEANED >>" Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"CLEANSING OF FILES 424/424.1 COMPLETED" Line Location: EXIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRC(424 - [#424]	Classic Fileman Calls
^PRC(424.1 - [#424.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(424 - [#424]	2, 2+2, 2+6!*, 3+1, 10+7
^PRC(424.1 - [#424.1]	10, 10+2, 11+1
^PRC(442 - [#442]	2+8
^XTMP("PRCGF424"	BUILD!, BUILD+1, BUILD+2, BUILD+3, 3+1, 11+1, EXIT+3

Label References

Name	Line Occurrences
10	10+10, 11+4
11	10+3
2	2+11, 3+4
3	2+3
CHK1	2
EXIT	10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BUILD, EXIT+2, EXIT+5!
DA	3+2!, 11+2!
DIK	3+2!, 11+2!
DT	CHK+2, CHK+3
PRCAUTH	2+2, 2+5, 2+6, EXIT+5!
PRCBILNO	10+2*, 10+5, EXIT+5!
PRCDTA	2+2, 2+9, 10+2, 10+8, EXIT+5!
PRCEN424	10+2*, 10+6, 10+7, EXIT+5!
PRCEND	EXIT+2*, EXIT+3, EXIT+5!
PRCFY	CHK+2, CHK+3, CHK+4, EXIT+5!
PRCFY10	CHK+4*, 2+9, 10+8, EXIT+5!
PRCIEN	1+1, 2, 2+2, 2+6, 3+1, 3+2, 3+3, CHK1+1, 10, 10+2 , 11+1, 11+2, 11+3, EXIT+5!
PRCII	CHK+1*, EXIT+5!
PRCOBNO	2+2*, 2+7, 2+8, EXIT+5!
PRCR	2+2, 2+4, 3+3, 10+2, 10+4, 11+3, EXIT+6!
PRCR424	10+7*, EXIT+6!
PRCSTART	BUILD*, BUILD+1, BUILD+3, EXIT+6!
PRCT	1+1, 3+1, 11+1*, EXIT+1, EXIT+6!
PRCTH	1+1, 2+1, 10+1*, EXIT+6!
PRCTYP	2, 2+3, 2+4, 2+5, 2+6, 2+7, 2+8, 2+9, 3+1, 3+3 , 10, 10+3, 10+4, 10+5, 10+6, 10+7, 10+8*, 11+1, 11+3, EXIT+6!
PRCX	2+1*, 10+1, EXIT+6!
PRCXX	10+1*, EXIT+6!
U	CHK+2, 1+1, 2+2, 2+6, 10+2

Marked Items

Name	Field # of Occurrence
$T(TXT+PRCII	CHK+1

Customize PDF page

Package: IFCAP

Routine: PRCGF424

Call Graph Total: 3

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Legend: