Routine: APSSINI0

Information

APSSINI0 ;IHS/CIA/MDM - ScriptPro Interface;26-Jun-2008 15:01;DU

Source Information

Source file <APSSINI0.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA Fileman	2	(FILE,UPDATE,WP)^DIE CLEAN^DILF
Kernel	1	BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
FDA	; ; Build FDA Array to define file structure and field values for use by Fileman
RESET	; ; Reset working variables to NULL once each record is processed
MES(MSG,QUIT)	; Display informational messages
NEWSEQ(ARRAY,SQ)	;
EP1	;MDM - Main entry point
MSG	; Set up informational messages to display to the screen
DESC(REC)	; Process description text and put it into the file ; If there is no description text then quit
DATA	; This module holds the data that will be put into the database.

External References

Name	Field # of Occurrence
FILE^DIE	EP1+70, EP1+106
UPDATE^DIE	EP1+133
WP^DIE	DESC+17
CLEAN^DILF	EP1+149
BMES^XPDUTL	MES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DELETE RECORD" Line Location: EP1+60
Function Call: WRITE	Prompt: !,"UPDATE RECORD" Line Location: EP1+88
Function Call: WRITE	Prompt: !,"RECORD NEW ENTRY" Line Location: EP1+124
Routine Call	DIE Line Location: EP1+133
Routine Call	DIE Line Location: EP1+70 EP1+106
Routine Call	DIE Line Location: DESC+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9009033.31	WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSSCOMD - [#9009033.3]	EP1+33, EP1+34, EP1+35, EP1+59, EP1+63, EP1+87, EP1+99, EP1+123
^APSSCOMD("B"	EP1+32

Label References

Name	Line Occurrences
$$NEWSEQ	EP1+49
DESC	EP1+113, EP1+140
FDA	EP1+103, EP1+130
MES	MSG+3, MSG+4, MSG+5, MSG+7
MSG	EP1+75, EP1+111, EP1+138
RESET	EP1+72, EP1+79, EP1+108, EP1+117, EP1+135, EP1+144

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	EP1+28~, EP1+61, EP1+89, EP1+125*, RESET+8!, MSG+3, MSG+4, MSG+5
APSSCLC	EP1+27~, EP1+39, DESC+5, DESC+14
APSSCMD	EP1+28~, EP1+32*, EP1+33, EP1+34, EP1+35, EP1+59, EP1+63, EP1+65, EP1+87, EP1+99 , EP1+101, EP1+123, EP1+128, DESC+3
APSSDAT	EP1+27~, EP1+39, EP1+41, EP1+43, EP1+45, EP1+46, EP1+50, EP1+51, EP1+52, EP1+53 , DESC+7, DESC+9*
APSSDBEG	EP1+28~, DESC+5*, DESC+7
APSSDEND	EP1+28~, DESC+5*, DESC+7
APSSDESC	EP1+27~, EP1+53, DESC+2, DESC+5, RESET+7
APSSDIEN	EP1+28~
APSSFLD	EP1+27~, EP1+50, FDA+5, RESET+4
APSSFMT	EP1+27~, EP1+51, FDA+6, RESET+5
APSSIEN	EP1+28~, EP1+65, EP1+67, EP1+101, EP1+128, DESC+3, DESC+17, FDA+2, FDA+3, FDA+4 , FDA+5, FDA+6, FDA+7
APSSLINE	EP1+28~, DESC+7, DESC+9, DESC+14
APSSSEQ	EP1+27~, EP1+46, EP1+49, FDA+4, RESET+3*
APSSSIEN	EP1+28~, EP1+63, EP1+65, EP1+99, EP1+101, EP1+113, EP1+126*, EP1+128
APSSTAG	EP1+27~, EP1+45, EP1+49, EP1+59, EP1+63, EP1+87, EP1+92, EP1+94, EP1+97, EP1+99 , EP1+123, FDA+2, RESET+2, MSG+3, MSG+4, MSG+5, MSG+7
APSSTRAN	EP1+27~, EP1+52, FDA+7, RESET+6
APSSUTAG	EP1+27~, EP1+92*, EP1+97, FDA+3, RESET+8!
ARRAY	NEWSEQ~
ARRAY(	NEWSEQ+5
ARY	EP1+29~, EP1+49
ARY(	EP1+35*, EP1+49
ERR	RESET+8!, MSG+2
ERR("ERR"	EP1+72, EP1+108, EP1+135
ERR(1	EP1+140, MSG+7
FDA	EP1+28~, RESET+8!
FDA(	EP1+67, FDA+2, FDA+3, FDA+4, FDA+5, FDA+6, FDA+7*
MSG	MES~, MES+1
NSQ	NEWSEQ+1~, NEWSEQ+2, NEWSEQ+4, NEWSEQ+5, NEWSEQ+6*, NEWSEQ+7
OFFSET	NEWSEQ+1~, NEWSEQ+3*, NEWSEQ+4
QUIT	MES~, NEWSEQ+1~, NEWSEQ+2, NEWSEQ+3, NEWSEQ+5, NEWSEQ+6
REC	DESC~, DESC+3
>> SIEN	EP1+33*, EP1+34, EP1+35
SQ	NEWSEQ~, NEWSEQ+2, NEWSEQ+4, NEWSEQ+6
SSEQ	EP1+29~, EP1+34*, EP1+35
TMP	RESET+8!
TMP("WP"	DESC+9*
U	EP1+34, EP1+35

Customize PDF page

Package: Scriptpro Interface

Routine: APSSINI0

Call Graph Total: 3