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

Package: VA FileMan

Routine: DICOMP0


Information

DICOMP0 ;SFISC/GFT - EVALUATE COMPUTED FLD EXPR ;20JAN2016

Source Information

Source file <DICOMP0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 11 ^%DT  $$EZBLD^DIALOG  ^DIC  YN^DICN  ($$NEST,2,I,MR)^DICOMP  ^DICOMPV  DPS^DICOMPW  ($$OKFILE,P,Y)^DICOMPX  
(DICS,G)^DICOMPY  MUL^DICOMPZ  $$CONVQQ^DILIBF  

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

Package Total Caller Graph
VA FileMan 2 DICOMP  DICOMPZ  

Entry Points

Name Comments DBIA/ICR reference
SETFUNC
LIT
L
TRY
R
N
NUMBER
UP
A
X
D
GET
O
S ;
V
OUT
SET
POINT
P
M
LITDATE
BACKPNT
MR
DDD
BAD
DATE ;
SCREEN() ;Screen out certain fields as we process an atom

External References

Name Field # of Occurrence
^%DT LITDATE
$$EZBLD^DIALOG NUMBERA+2
^DIC RR+1
YN^DICN A+2
$$NEST^DICOMP DD+1
2^DICOMP M+3
I^DICOMP V+7
MR^DICOMP MR
^DICOMPV BACKPNT
DPS^DICOMPW M+3
$$OKFILE^DICOMPX POINT
P^DICOMPX P
Y^DICOMPX V+6
DICS^DICOMPY TRY+2
G^DICOMPY GET+1
MUL^DICOMPZ D+3
$$CONVQQ^DILIBF LIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$EZBLD^DIALOG(8201,.N)
  • Line Location: A+2
Function Call: WRITE
  • Prompt: " (",T,")"
  • Line Location: DDD+0
Routine Call
  • DIALOG
  • Line Location:
    • NUMBER
    • A+2
Routine Call
  • DIC
  • Line Location:
    • R
    • R+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( TRYV+2, V+3, POINT+1
^DD("FUNC" - [#.5] M+1, M+2
^DDD("C" DDD
^DIC - [#1] D+5, V+4
^DIC("B" BACKPNT
^VA(200 - [#200] M+4

Label References

Name Line Occurrences
A RR+1
BAD SETFUNCA+1
D NUMBER
DATE D+2, POINT+1, M+3, M+5, LITDATE
DICOMP0 M
L MR
LITDATE M+2
M TRYUP
MR POINTM+1, M+4
N A+1
O D+4, GET
POINT D+5, M+4
R N
TRY UP
UP TRY
X R

Naked Globals

Name Field # of Occurrence
^( BACKPNT
^(0 TRY, SCREEN+3, SCREEN+4, SCREEN+5
^(1 M+3
^(2 M+3
^(3 M+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LIT*, A+1, A+2*, D*, D+5, S+1*, SET
>> %DT LITDATE*
>> %Y X*, D+5*, SET+1*, POINT+1, M+4*
>> D SETFUNC*, A*, A+4, D*, D+2, D+3, D+5, VOUTSET
SET+1, POINT+1*, BACKPNT
>> DA SCREEN+2
>> DATE( OUT+1!, DATE+1*
>> DBOOL SCREEN+3
>> DG TRY*, NA+1, A+2, S+1*, VOUT
>> DG( D+5*, V+10*, SET*
>> DIC TRY*
>> DIC("S" TRY+1*
>> DICF M+1*
>> DICMX TRY+1
>> DICN L*, NUPA+1, A+2, D*, D+5*, V+2, V+3, OUT+1
SETSET+1*, POINTPOINT+1, M+4*
>> DICO("BACK" A+3*, SCREEN+1
>> DICO("DIERR" OUT+1*
>> DICO("PT" D*
>> DICO(1 SCREEN+2
>> DICOMP A+1, GETPOINTDDD
DICOMPI DICOMP0+8~, D*, D+1*, D+2, D+5, GETO
DICOMPV V~, V+5*, V+8
>> DICOMPX X*
>> DICOMPX( SETFUNC*
>> DICOMPX(0 V+5
>> DICOMPX(1 D+4
>> DLV LR
>> DLV0 S+1, V+10, M+4, BACKPNT
>> DPS SETFUNCS+1, OUT
>> DPS( SETFUNCDD+1, S+1, OUT
>> DPUNC M
>> DQI D+5, SET
DUZ(0 SETFUNCTRY+2
FILE V+1~*, V+2, V+4*, V+5
FS V+1~, V+2*, V+3
>> I TRY+1, AV+1, V+9*, M*, MR
>> I( TRY
>> J( TRYUPXD+4, GETO+1, M+4
>> J(0 BACKPNT
>> K OUT+1, M+3*, DATE+1
>> K( M+3*
>> M TRY+1, AA+4*, V+1, V+9*, V+10*, M*, MR
N A+2~
N(1 A+2*
N(2 A+2*
N(3 A+2*
P SCREEN+5~*
>> T SETFUNC*, L*, TRY, UP*, A+3, XDD+4, D+5, GET
O+1*, V+2, V+3, OUT+1, SET, M*, M+1*, M+2, BACKPNT*, SCREEN+1
, SCREEN+2
U TRYA+1, A+2, XSET+1, POINT+1, SCREEN+3, SCREEN+4, SCREEN+5
>> W TRY+1, A*, DS+1, V+9, V+10*, POINTPOINT+1, M*
>> W( SETFUNC
>> X SETFUNC*, LIT*, L, R*, N*, NUMBER, UP*, AD+4*, D+5*
, GET*, V+5, V+8*, OUT+1*, SET*, POINT+1*, M*, M+1, M+3, M+4*
, LITDATE*, BACKPNTMR
Y SETFUNC*, LIT*!, RR+1, NUMBER*, A+1, A+2, A+3, XD
D+4, D+5, GETV+1~, V+3*, V+4, M+4*, LITDATE, BAD!, SCREEN+1
, SCREEN+2
Y(0 NUMBER*, DSET+1, M+3*, LITDATE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All