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 |  Marked Items |  All
Print Page as PDF
Routine: DGOVBC

Package: Registration

Routine: DGOVBC


Information

DGOVBC ;ALB/MRL - VBC DRIVER ROUTINE ; 12 FEB 87

Source Information

Source file <DGOVBC.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 4 (,Q)^DGOVBC1  $$ASKDIV^DGUTL  ZIS^DGUTQ  PATIENT^VAUTOMA  
VA Fileman 4 ^%DT  C^%DTC  YN^DICN  DT^DICRW  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG VBC ADMISSION  DG VBC PATIENT  

Entry Points

Name Comments DBIA/ICR reference
A
A1
SET
OK
D
ERR
M
1
P
S
2
QUE
T ;

External References

Name Field # of Occurrence
^%DT 2+1, D
C^%DTC 2+1
^%ZIS DGOVBC+2
^DGOVBC1 S+1, A+1
Q^DGOVBC1 1, OK, 2+1, D+1, QUE
$$ASKDIV^DGUTL M+2
ZIS^DGUTQ QUE
YN^DICN OK
DT^DICRW DGOVBC+2, 2+1
PATIENT^VAUTOMA 1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DGOVBC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: !!,"DISPLAY THE FOLLOWING PATIENTS",!,"------------------------------"
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !,$P(X,"^",1),?40,Y,?60,$P(X,"^",9)
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !!,"IS THIS CORRECT"
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!?4,"Y - If you want to see VBC data for these patients.",!?4,"N - If you want to QUIT and reconsider this action."
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,J
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: !?4,"TO DATE CAN'T BE BEFORE FROM DATE!!",*7,!
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,*7,"Note: This report requires a column width of 132."
  • Line Location: QUE+0
Routine Call
  • %ZIS
  • Line Location:
    • DGOVBC+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" P, D
^DD("SITE" SET
^DGPM - [#405] A, A1+1
^DGPM("AMV1" A
^DIC(42 - [#42] A1+1
^DIC(8 - [#8] A1
^DPT - [#2] P, S, A1, A1+2
^UTILITY($J S*, A1+2*, SET!

Label References

Name Line Occurrences
@( QUE+1
A1 A
D D+1
M D
OK OK
QUE OK
SET S, A

Naked Globals

Name Field # of Occurrence
^( A1
^("SITE" SET
^(0 P, S, A1
^(1 SET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK*
>> %DT 2+1*
>> %DT("A" 2+1*, D*
>> %DT(0 D*
>> DFN P*, S*, A*, A1, A1+2
>> DFN1 P*, S*
>> DGCA A*, A1+1
>> DGDFN M*, A
>> DGFR 2+1*, D+1, M, A*
>> DGHD SET*
>> DGHD1 SET*
DGHFR 2+1*, D!
>> DGHOW 1*, 2+1*, QUE
>> DGLIN SET*
>> DGPGM QUE*, QUE+1
>> DGTO D*, D+1*, M, A*
>> DGVAR QUE*
>> DGWD A1+1*
DIC ERR!
DIC("S" 1*
DT D
>> I 2*, A*
IO QUE
IOF DGOVBC+2
IOP DGOVBC+2*!
>> J 2*
>> POP QUE
SDALL ERR!
SDEF ERR!
U A1+1, SET*
>> VAUTD A1+1
>> VAUTD( A1+1
>> VAUTN( P, S
>> VAUTNALL 1*
>> VAUTNI 1*
>> X P*, 2+1, D, A1*
>> X1 2+1*
>> X2 2+1*
>> Y 1, P*, 2+1, D*, D+1, ERR*

Marked Items

Name Field # of Occurrence
$T(T+I 2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All