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 |  Caller 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: FBAAPRC

Package: Fee Basis

Routine: FBAAPRC


Information

FBAAPRC ;AISC/DMK-PRINT REPORT OF CONTACT ;08/02/88

Source Information

Source file <FBAAPRC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  DT^DICRW  ^DIWP  ^DIWW  
Fee Basis 2 $$SIGBLK^FBAAPRC  ($$DATX,CLOSE,SITEP,ZIS)^FBAAUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Fee Basis 4 FBAA PRINT REPORT OF CONTACT  FBAAPRC  FBAAROC  FBCHPRC1  

Entry Points

Name Comments DBIA/ICR reference
RD
START
ALRT1
BOT
Q
DATE
NONE
SIGBLK(X) ;returns the signature block printed name if in 200

External References

Name Field # of Occurrence
^DIC RD
DT^DICRW FBAAPRC+3
^DIWP ALRT1+1
^DIWW ALRT1+2
$$SIGBLK^FBAAPRC BOT+1
$$DATX^FBAAUTL DATE
CLOSE^FBAAUTL Q
SITEP^FBAAUTL FBAAPRC+3
ZIS^FBAAUTL RD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,QQ,!,?40,L,"VA Office",?58,L,"SSN #",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: ?40,L,?58,L,!,?8,">> REPORT OF CONTACT <<",?40,L,$E(SITE,1,18),?58,L,?60,$P(^DPT(DFN,0),"^",9),!,?40,L,$E(SITE,19,30),?58,L,!,Q,!,?3," Name of Veteran",?34,L,"Telephone No. of Vet.",?58,L,"Date of Contact",!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ?34,L,?58,L,!,?3,$E(NAM,1,30),?34,L,TEL,?58,L,?61,DAT,!,Q,!,?3," Address of Veteran",?58,L,"Type of Contact",!,?3,J(1),?58,L,!,?3,J(4)
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ",",STAT," ",J(6)
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?58,L,?63,FBCON,!,Q,!,?3," Person Contacted",?58,L,"Telephone Number of",!,?58,L," Person Contacted",!,?3,VEN,?58,L,?61,VENTEL,!,Q,!,?3,"Brief statement of information requested and given",!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: Q,!,?6,"Division or Section",?40,L," Executed by(signature and title)",!,?10,"FEE BASIS",?40,L," ",$$SIGBLK^FBAAPRC(USR),!,QQ,!,"VA form 119"
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !!,"There are no Reports of Contact on line for this patient.",!!
  • Line Location: NONE+0
Routine Call
  • DIC
  • Line Location:
    • RD

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] START+3
^DPT - [#2] START+1, START+2, START+3, START+6
^FBAAA - [#161] RD, START, START+4, ALRT1, ALRT1+1
^UTILITY($J ALRT1!
^VA(200 - [#200] SIGBLK+5, SIGBLK+6

Label References

Name Line Occurrences
DATE START
NONE RD
Q RD+1, NONE
RD RD

Naked Globals

Name Field # of Occurrence
^( START+1, START+2, ALRT1+1
^(0 START+3
^(20 SIGBLK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOT BOT*, Q!
BT BOT*, Q!
D0 Q!
D1 Q!
DAT START+7, Q!, DATE*
DFN RD*, RD+1, START, START+1, START+2, START+3, START+4, START+6, ALRT1, ALRT1+1
, Q!
DIC RD*, Q!
DIC(0 RD*
DIW Q!
DIWF ALRT1*, Q!
DIWL ALRT1*, Q!
DIWR ALRT1*, Q!
DIWT Q!
DIYS Q!
DWLW Q!
FBCON START+4*, START+8, Q!
FBI ALRT1*, ALRT1+1, ALRT1+2, Q!
>> FBPOP RD+1
FBRR ALRT1+1*, Q!
FBSITE Q!
FBSITE(0 RD
FBX START*, Q!, DATE
FBXX ALRT1+1*, ALRT1+2!
I START*, ALRT1, ALRT1+2*, Q!
IO START
IOSL BOT
J START*, START+2*, Q!
J( START*, START+2*
J(1 START+7
J(4 START+7
J(5 START+3, START+7
J(6 START+7
L START+5*, START+6, START+7, START+8, BOT+1, Q!
NAM START+1*, START+7, Q!
PGM RD+1*, Q!
PI START+5*, Q!
Q START+5*, START+6, START+7, START+8, BOT+1, Q!
QQ START+5*, BOT+1, Q!
ROC RD*, RD+1, START, START+4, Q!
S Q!
SITE RD*, RD+1, START+6, Q!
STAT START+3*, START+7, Q!
TEL START+3*, START+7, Q!
U SIGBLK+6
USR START*, BOT+1, Q!
VAL RD+1*, Q!
VAR RD+1*, Q!
VEN START*, START+8, Q!
VENTEL START*, START+8, Q!
X RD, ALRT1+1*, Q!, SIGBLK~, SIGBLK+5, SIGBLK+6
Y RD, START*, Q!
Z Q!
Info |  Source |  Call Graph |  Caller 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