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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ABSVSERV

Package: Voluntary Timekeeping

Routine: ABSVSERV


Information

ABSVSERV ;VAMC ALTOONA/CTB - SERVER TO FILE DATA FROM AUSTIN ;1/11/01 10:21 AM

Source Information

Source file <ABSVSERV.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Voluntary Timekeeping 3 NOW^ABSVQ  ^ABSVSER3  ($$EXTSSN,$$FULLDAT)^ABSVU2  
VA FileMan 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.0;VOLUNTARY TIMEKEEPING;**3,9,10,19,21,23**;JULY 6, 1994
START ;
TYPE01
TYPE02
FILE ;LOOKUP STATION NUMBER FOR INTERNAL NUMBER ON 4 NODE
FMDATE(X) ;CONVERT MMDDYYYY OR MMYYYY TO FILEMAN INTERNAL DATE
YEAR(X) ;CONVERT COBOL YEAR TO FM YEAR EG 89 TO 289
STRIP(X) ;STRIP TRAILING BLANKS
BLANK(X) ;SET 0 TO BLANKS
ERR ;POST ERROR MESSGE
MSG
AWD(X,Y,Z) ;

External References

Name Field # of Occurrence
NOW^ABSVQ V+1
^ABSVSER3 V+12
$$EXTSSN^ABSVU2 FILE+1, FILE+3, FILE+5, FILE+6, FILE+10
$$FULLDAT^ABSVU2 MSG+3, AWD+5
^DIC V+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABS(503330 - [#503330] FILE+3, FILE+5, FILE+6, FILE+7*, FILE+9, FILE+10, FILE+11*, FILE+12
^ABS(503337 - [#503337] TYPE01+9, TYPE02+7
^ABS(503338 - [#503338] FILE+1
^ABS(503339.1 - [#503339.1] V+7, V+8*, START+8*

Label References

Name Line Occurrences
$$AWD MSG+3
$$BLANK FILE+7, AWD+1
$$FMDATE TYPE02+3, TYPE02+5, TYPE02+9
$$STRIP TYPE01+2, TYPE01+3, TYPE01+4, TYPE01+9, TYPE01+14, TYPE02+2, TYPE02+3, TYPE02+4, TYPE02+7, TYPE02+10
$$YEAR TYPE01+7, TYPE01+13
ERR V+7, FILE+1, FILE+3, FILE+5, FILE+6, FILE+10
FILE TYPE01+15, TYPE02+11
MSG START+1, START+2
START V+11
TYPE01 START+3, START+5
TYPE02 START+6

Naked Globals

Name Field # of Occurrence
^(0 FILE+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % V+1
AWDCODE TYPE01!, TYPE01+9*, TYPE02!, TYPE02+7*, FILE+7, MSG+3
>> AWDDATE TYPE01+12*, TYPE01+13*, TYPE02+9*, FILE+7, MSG+3
AWDHRS TYPE01!, TYPE01+10*, TYPE02!, TYPE02+8*, FILE+7, MSG+3
AWDMO TYPE01!, TYPE01+11*, TYPE01+13, TYPE02!
AWDYR TYPE01!, TYPE01+11*, TYPE01+13, TYPE02!
DATE V+1*, V+8, TYPE01!, TYPE01+3*, TYPE02!, TYPE02+3*
>> DIC V+4*
>> DIC(0 V+4*
>> DLAYGO V+4*
>> DONE V+9*, V+10, V+11, V+12, START+12*
>> ERRCOUNT V+3*, START+11, ERR+1*
HRSCURYR TYPE01!, TYPE01+8*, TYPE02!, TYPE02+6*, FILE+7, MSG+3
HRSPRYR TYPE01!, TYPE01+8*, TYPE02!, TYPE02+6*, FILE+7, MSG+3
HRSTOT TYPE01!, TYPE01+8*, TYPE02!, TYPE02+6*, FILE+7
>> MFILEDA V+6*, V+7, V+8, START+8
>> MSG V+7*, START+1*, START+2*, FILE+1*, FILE+3*, FILE+5*, FILE+6*, FILE+10*, MSG+1, MSG+2
>> MSGLINE START+9*, START+10*, START+11, MSG*, MSG+1, MSG+3*
>> MSGNUM V+6*
>> PSSN TYPE01+3*, TYPE02+3*
>> RECCOUNT V+3*, START+10, FILE+8*
SERVYRS TYPE01!, TYPE01+8*, TYPE02!, TYPE02+6*, FILE+7, MSG+3
SITE START+9, TYPE01!, TYPE01+2*, TYPE02!, TYPE02+2*, FILE+1, FILE+5
>> SITEDA FILE+1*, FILE+5, FILE+6, FILE+7, FILE+9
SSN TYPE01!, TYPE01+4*, TYPE02!, TYPE02+4*, FILE+1, FILE+3, FILE+5, FILE+6, FILE+10
>> TERMDATE TYPE01+6*, TYPE01+7*, TYPE02+5*, FILE+7, MSG+3
TERMMO TYPE01!, TYPE01+5*, TYPE01+7, TYPE02!
TERMYR TYPE01!, TYPE01+5*, TYPE01+7, TYPE02!
TRANSNUM TYPE01!, TYPE01+2*, TYPE02!, TYPE02+2*
>> VOLDA FILE+3*, FILE+5, FILE+6, FILE+7, FILE+9, FILE+10, FILE+11, FILE+12
X V+4*, TYPE01!, TYPE01+1*, TYPE01+2, TYPE01+3, TYPE01+4, TYPE01+5, TYPE01+8, TYPE01+9, TYPE01+10
TYPE01+11, TYPE01+14, TYPE02!, TYPE02+1*, TYPE02+2, TYPE02+3, TYPE02+4, TYPE02+5, TYPE02+6, TYPE02+7
TYPE02+8, TYPE02+9, TYPE02+10, FMDATE~, FMDATE+1, FMDATE+2, FMDATE+3, YEAR~, YEAR+1, STRIP~
, STRIP+1*, STRIP+2, BLANK~, BLANK+1*, BLANK+2, AWD~, AWD+1*, AWD+2, AWD+3, AWD+5
>> XMER V+10, START+4
>> XMREC V+10, START+4
>> XMRG V+11, V+12, START+5, START+6, TYPE01+1, TYPE02+1
>> XMZ V+4, V+6
>> XQSTXT( START+10*, START+11*, MSG+1*, MSG+3*
>> XQSTXT(1 START+9*
>> XQSTXT(2 START+9*
Y V+5, V+6, AWD~, AWD+2, AWD+3, AWD+4*, AWD+5
Z AWD~, AWD+2, AWD+3, AWD+5
ZIP TYPE01!, TYPE01+14*, TYPE02!, TYPE02+10*, FILE+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All