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

Package: Voluntary Timekeeping

Routine: ABSVDADD


Information

ABSVDADD ;EAP ALTOONA VOLUNTARY PROGRAM ; 26 Sep 2001 2:04 PM

Source Information

Source file <ABSVDADD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  NOW^%DTC  FILE^DICN  
Voluntary Timekeeping 3 ^ABSVQ  ^ABSVSITE  ^ABSVYN  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.0;VOLUNTARY TIMEKEEPING;**25,26**;JULY 6, 1994
QUEUE ;;;;;;;;;;;;;;;;;;;;;;;;
START
END ;;;;;;;;;;;;;;;;;;;;;;;;
YESNO ;;YES/NO PROCESSOR UTILITY
ASKIT
SUB1 ;;;;;;;;;;;;;;;;;
CREATE ;;;;;;;;;CREATE LOG ENTRY IN DONATIONS TEMPORARY RECEIPT FILE;;;;
GET
HEADER ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
WRITE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
LINEPRT
DOLL ;;;;;;;;;;DOLLAR CONVERTER;;;;;;;;;;;;;;;;;;;;;;;;
CONV ;;DATE CONVERTER BLACK BOX. ** FORMAT 11/04/90 **
CONVERT
SITESET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
BLURB ;;CALLED FROM ENTRY ACTION ON OPTION DELETE A DONATION ENTRY;;

External References

Name Field # of Occurrence
^%DT V+28
NOW^%DTC CREATE+1
^ABSVQ QUEUE+2
^ABSVSITE SITESET+1
^ABSVYN V+15
FILE^DICN GET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DUZ VARIABLE NOT DEFINED. CALL IRM"
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !,"SITE PARAMETERS FILE IS NOT COMPLETE. NO SITE SPECIFIED"
  • Line Location: V+17
Function Call: WRITE
  • Prompt: !,"SITE PARAMETERS FILE IS NOT COMPLETE. NO SITE SPECIFIED"
  • Line Location: V+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+0
Function Call: READ
  • Variable: ANS
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: ASKIT+2
Function Call: WRITE
  • Prompt: !,%A_"? (Y/N) // "
  • Line Location: ASKIT+2
Function Call: WRITE
  • Prompt: *7,!,%B
  • Line Location: ASKIT+2
Function Call: WRITE
  • Prompt: !,"NOTE: Cannot create Temporary Receipt."
  • Line Location: SUB1+1
Function Call: WRITE
  • Prompt: !,"Type of Donation is not Cash/Check or Money Order."
  • Line Location: SUB1+2
Function Call: WRITE
  • Prompt: !!,"THIS TEMPORARY RECEIPT LOG ENTRY HAS BEEN ASSIGNED NUMBER: ",+Y
  • Line Location: GET+1
Function Call: WRITE
  • Prompt: !,"**** ******* "
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !," **** *********"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " DEPARTMENT OF VETERAN AFFAIRS "
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !," **** *** ****"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " TEMPORARY RECEIPT FOR FUNDS "
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !," *******************"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: " ",ABSVSTNM
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !," ******* **** "
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !," ***** **** "
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !,"ORG: ",$E(ABSVORG,1,23),?30,"| TYPE OF FUNDS |",?48,"AMOUNT: ",ABSVDOLA
  • Line Location: WRITE+10
Function Call: WRITE
  • Prompt: !,$P(ABSVDATA,U,1),?30,"| CASH/CHECK |",?48,"ISSUED BY: ",$P(ABSVDATA,U,6)
  • Line Location: WRITE+11
Function Call: WRITE
  • Prompt: !,$P(ABSVDATA,U,2),?30,ABSVTYP4,?48,"DATE ISSUED: ",ABSVDATE
  • Line Location: WRITE+12
Function Call: WRITE
  • Prompt: !,$P(ABSVDATA,U,4),?30,ABSVTYP4,?48,"LOG FILE#: ",ABSVDA
  • Line Location: WRITE+13
Function Call: WRITE
  • Prompt: !,$P(ABSVDATA,U,3),?30,ABSVTYP4,?48,"LOG FILE#: ",ABSVDA
  • Line Location: WRITE+14
Function Call: WRITE
  • Prompt: !,$P(ABSVDATA,U,4),?30,"|",?46,"|"
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: !
  • Line Location: LINEPRT+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINEPRT+0
Function Call: WRITE
  • Prompt: !,"POST: ",ABSVPOSF
  • Line Location: LINEPRT+5
Function Call: WRITE
  • Prompt: ?30,"|FUND: ",ABSVPOST," ","(",ABSVGPFN,")"
  • Line Location: LINEPRT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LINEPRT+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINEPRT+6
Function Call: WRITE
  • Prompt: !,"PURPOSE OF DONATION: ",ABSVPURP
  • Line Location: LINEPRT+8
Function Call: WRITE
  • Prompt: !,"SITE PARAMETERS FILE IS NOT COMPLETE. NO SITE SPECIFIED"
  • Line Location: SITESET+1
Function Call: WRITE
  • Prompt: !,"SITE PARAMETERS FILE IS NOT COMPLETE. NO SITE SPECIFIED"
  • Line Location: SITESET+2
Function Call: WRITE
  • Prompt: !!,"*********************************************************"
  • Line Location: BLURB+1
Function Call: WRITE
  • Prompt: !,"* THIS REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY *"
  • Line Location: BLURB+2
Function Call: WRITE
  • Prompt: !,"*********************************************************"
  • Line Location: BLURB+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: BLURB+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABS(503344 - [#503344] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABS("RECEIPT" GET
^ABS(503334 - [#503334] V+21
^ABS(503340 - [#503340] V+4, V+5, V+11, V+21, V+22, V+23
^ABS(503342 - [#503342] LINEPRT+2, LINEPRT+3
^ABS(503344 - [#503344] V+29*, V+30*, GET
^ABS(503345 - [#503345] LINEPRT+7
^DIC(5 - [#5] V+26
^VA(200 - [#200] V+25

Label References

Name Line Occurrences
ASKIT ASKIT+2, ASKIT+4
CONV QUEUE+1
CREATE V+20
DOLL WRITE+8
END V+15, V+16, QUEUE+2
GET GET
HEADER START+1
LINEPRT WRITE+13
SITESET V+16
WRITE START+1

Naked Globals

Name Field # of Occurrence
^("RECEIPT" GET*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % V+15, ASKIT+3*, ASKIT+4*
%A END+1!, ASKIT*, ASKIT+2, ASKIT+5!
%B ASKIT+1*, ASKIT+2, ASKIT+5!
>> ABSV("INST" V+19
>> ABSV("SITE" V+16, V+19, SITESET+1, SITESET+2
>> ABSV("SITENAME" V+19
ABSVADD1 V+8~, V+22*, V+29, WRITE+3
ABSVADD2 V+8~, V+27*, V+29, WRITE+3
>> ABSVALL V+27*, V+29, WRITE+3
>> ABSVAMOU V+28*, V+29, WRITE+3
>> ABSVCITY V+27*
>> ABSVDA V+29, V+30, GET+1*, WRITE+13, WRITE+14
ABSVDATA V+7~, V+10*, WRITE+3*, WRITE+8, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15
>> ABSVDATE V+28*, V+29, QUEUE+1*, WRITE+12
>> ABSVDOLA WRITE+8*, WRITE+10, DOLL+1, DOLL+2*, DOLL+3*
ABSVDUZ V+9~, V+25*, V+29, WRITE+3
ABSVERR V+7~, V+16, SITESET+1*, SITESET+2*
ABSVFLAG V+8~, V+13*, END+1!
>> ABSVGPFN LINEPRT+2*, LINEPRT+5
ABSVNAME V+8~, V+22*, V+29, WRITE+3
ABSVNUM V+7~, V+11*, V+29
ABSVORG V+8~, V+21*, V+29, WRITE+10
ABSVPOSF V+8~, V+21*, V+30, LINEPRT+1*, LINEPRT+5
>> ABSVPOST V+28*, V+30, LINEPRT+2, LINEPRT+3*, LINEPRT+4*, LINEPRT+5
ABSVPURP V+9~, V+23*, V+30, LINEPRT+7*, LINEPRT+8
>> ABSVSITE V+19*
>> ABSVSTAT V+26*, V+27
ABSVSTNM V+8~, V+16*, V+19*, V+29, HEADER+4
ABSVTYP1 V+7~, V+10*, WRITE+5*, WRITE+6*, WRITE+7*
ABSVTYP2 V+7~, V+10*, WRITE+5*, WRITE+6*, WRITE+7*
ABSVTYP3 V+7~, V+10*, WRITE+5*, WRITE+6*, WRITE+7*
ABSVTYP4 V+7~, V+10*, WRITE+5*, WRITE+6*, WRITE+7*, WRITE+12, WRITE+13, WRITE+14
ABSVTYPE V+9~, V+11*, V+12, V+13, V+29, END+1!, WRITE+5, WRITE+6, WRITE+7
>> ABSVXA V+15*
>> ABSVZIP V+27*
ANS ASKIT+2*, ASKIT+3, ASKIT+4*, ASKIT+5!
>> BAR WRITE+4*, WRITE+5, WRITE+6
>> CHECK WRITE+4*, WRITE+5, WRITE+6, WRITE+7
>> DA V+3, V+4, V+5, V+11, V+21, V+22, V+23
>> DIC CREATE+1*
>> DIC(0 CREATE+1*
DINUM V+6~, GET*
>> DLAYGO CREATE+1*
DT CREATE+1*
DTIME ASKIT+2
DUZ V+2, V+25
>> I WRITE+2*, LINEPRT*, LINEPRT+6*
IOF START
IOM WRITE+1*, WRITE+2, LINEPRTLINEPRT+6
IOST START
NEWDATE QUEUE+1*!, CONVERTCONVERT+1*
U V+10*, V+11, V+21, V+22, V+23, V+25, V+26, V+27, V+28, V+29
V+30, WRITE+3, WRITE+8, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, LINEPRT+2, LINEPRT+3
LINEPRT+7
>> UNCHECK WRITE+4*, WRITE+5, WRITE+6, WRITE+7
X V+6~, V+28*, CREATE+1, GET*
Y V+6~, V+28, QUEUE+1, GETGET+1
ZN V+6~, V+21*, V+28, END+1!
ZN1 V+6~, V+22*, V+26, V+27, END+1!
>> ZTDESC QUEUE+2*
>> ZTRTN QUEUE+2*
>> ZTSAVE("ABSV*" QUEUE+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