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

Package: Registration

Routine: DGOVBC1


Information

DGOVBC1 ;ALB/MRL - VBC OUTPUT ; 12 FEB 87

Source Information

Source file <DGOVBC1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 6 ^DGINPW  (,Q)^DGOVBC2  ($$FIRST,ENDREP,H)^DGUTL  CLOSE^DGUTQ  (ADD,DEM,ELIG,SVC)^VADPT  PID^VADPT6  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Registration 1 DGOVBC  

Entry Points

Name Comments DBIA/ICR reference
Q
DIS
L
PT
A
AC ;Formatting Confidential Address Information
AS

External References

Name Field # of Occurrence
NOW^%DTC DIS+1
^DGINPW DIS+17
^DGOVBC2 DIS+13, DIS+19
Q^DGOVBC2 Q+1
$$FIRST^DGUTL DIS
ENDREP^DGUTL DGOVBC1+4
H^DGUTL DIS+17
CLOSE^DGUTQ Q
ADD^VADPT DIS+5
DEM^VADPT DIS+2
ELIG^VADPT DIS+3
SVC^VADPT DIS+9
PID^VADPT6 DIS+3
$$FMTE^XLFDT DIS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"VETERANS ASSISTANCE UNIT RECORD",?53,"PRINTED: ",$$FMTE^XLFDT(Y,1),?DGHD1,DGHD,!,DGLIN,!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,"1. Patient Name: ",$S(VADM(1)]"":VADM(1),1:"UNSPECIFIED PATIENT #"_DFN),?55,"| 2. DOB: ",$P(VADM(3),"^",2)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: ?80,"| 3. PT ID: ",$S(VA("PID"):VA("PID"),1:DGU),?106,"| 4. Claim #: "
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: $S(VAEL(7):VAEL(7),1:DGU),!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: "_______________________________________________________|________________________|_________________________|_______________________"
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: ?57,DGA(I),!
  • Line Location: DIS+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: ?57,DGA(I)
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !,"6. Service Record",?35,"Service #",?55,"Entry Date",?75,"Separation Date",?108,"Discharge Type"
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: $C(13)," ","______________",$E(DGLN,1,18),"_________",$E(DGLN,1,11),"__________",$E(DGLN,1,10),"_______________",$E(DGLN,1,18),"______________"
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !?3,$S(VASV(I,1):$P(VASV(I,1),"^",2),1:DGU),?35,$S($L(VASV(I,2)):VASV(I,2),1:DGU),?55,$S('VASV(I,4):DGU,1:$P(VASV(I,4),"^",2)),?75,$S('VASV(I,5):DGU,1:$P(VASV(I,5),"^",2)),?108,$S(VASV(I,3):$P(VASV(I,3),"^",2),1:DGU)
  • Line Location: DIS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: ": NO ADMISSIONS ON FILE FOR THIS APPLICANT."
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: ?20,"Admission Type",?55,"Ward",?70,"Admitting Diagnosis",?105,"Admission Authority"
  • Line Location: DIS+14
Function Call: WRITE
  • Prompt: $C(13)," ","______________"," ","______________",$E(DGLN,1,21),"____",$E(DGLN,1,11),"___________________",$E(DGLN,1,16),"___________________"
  • Line Location: DIS+15
Function Call: WRITE
  • Prompt: !?3,DGD(1),?20,DGD(2),?55,$E(DGD(3),1,10),?70,DGD(4),?105,$E(DGD(5),1,25)
  • Line Location: DIS+16
Function Call: WRITE
  • Prompt: !?4,"NOTE: Asterisk [*] indicates admission for Service Connected Condition."
  • Line Location: DIS+18
Function Call: WRITE
  • Prompt: "_"
  • Line Location: L+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" AS
^DG(405.2 - [#405.2] AS
^DGPM - [#405] DIS+12
^DGPM("ATID1" DIS+12
^DIC(42 - [#42] DIS+17, AS+1
^DIC(43.4 - [#43.4] AS+2
^DPT - [#2] PT
^UTILITY($J DGOVBC1+4, Q!

Label References

Name Line Occurrences
A DIS+5
AC DIS+8
AS DIS+16
DIS DGOVBC1+4
L DIS+2, DIS+7, DIS+9, DIS+12

Naked Globals

Name Field # of Occurrence
^( PT
^(0 DIS+12, DIS+17, AS, AS+1, AS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DIS+1
%DT Q!
DFN DGOVBC1+4*, Q!, DIS+2, DIS+12, PT
>> DG1 DIS+17
DGA DIS+9!, A*, A+1*, A+2, A+3, AC+1!, AC+4*, AC+11*, AC+12, AC+13
DGA( DIS+5, DIS+8, A*, A+2*, A+3*, AC+4*, AC+10*, AC+12*, AC+13*
DGA(1 A+1*, AC+11*
DGA(14 AC+4*
DGA(19 AC+5*
DGA(2 A*
DGA(20 AC+6*
DGA(21 AC+7*
DGA(22 AC+8*
>> DGADM( DIS+12*, DIS+16, AS+2
DGASEQ AC+3~, AC+9*, AC+10*
DGCA Q!, DIS+12*
DGCT Q!, DIS+12*, DIS+13, DIS+16
>> DGD DIS+16*, AS, AS+1, AS+2
>> DGD(1 DIS+16, AS*
>> DGD(2 DIS+16, AS*
>> DGD(3 DIS+16, AS+1*
>> DGD(4 DIS+16, AS+2*
>> DGD(5 DIS+16, AS+2*
>> DGD1 DIS+16*
DGDFN Q!
DGFR Q!
DGHD Q!, DIS+1
DGHD1 Q!, DIS+1
DGHOW Q!
DGIOM Q!
>> DGL L*
DGLIN Q!, DIS+1
DGLN DGOVBC1+3!*, Q!, DIS+10, DIS+15
>> DGMS DIS+3*
>> DGMT DIS+3*
DGP Q!
DGP( PT*, PT+1
DGPGM Q!
>> DGPOW DIS+10*
DGPP DGOVBC1+3*, DGOVBC1+4*, Q!
DGPP1 DGOVBC1+4*, Q!
>> DGSC DIS+3*, PT+1*
DGSCOND DIS+13*, DIS+18, DIS+19!, AS*
>> DGT DIS+17*
DGTIME DIS+17!
DGTO Q!
DGU DGOVBC1+3*, Q!, DIS+3, DIS+11, AS, AS+1, AS+2
DGVAR Q!
DGX Q!
DIC Q!
I Q!, DIS+5*, DIS+8*, DIS+11*, DIS+12*, DIS+16*, PT*, A*, A+4!, AC+4*
, AC+14!, AS+2
IOM L
J A+4!
SEQ AC+3~, AC+9*, AC+10
VA DIS+3!
VA("PID" DIS+3
VADM DIS+3!
VADM(1 DIS+2
VADM(10 DIS+3
VADM(3 DIS+2
VAEL DIS+3!
VAEL(3 DIS+3
VAEL(7 DIS+3
VAEL(9 DIS+3
VAPA DGOVBC1+2~, AC+14!
VAPA( A, AC+4
VAPA(1 A+1
VAPA(12 DIS+6, A+4, AC+2
VAPA(13 AC+11
VAPA(16 AC+12
VAPA(17 AC+12
VAPA(18 AC+13
VAPA(20 AC+6
VAPA(21 AC+7
VAPA(22 AC+9, AC+10
VAPA(4 A+2
VAPA(5 A+2
VAPA(6 A+3
VASV DIS+12!
VASV( DIS+11
VASV(4 DIS+10
X Q!
Y Q!, DIS+1*!, AS*
ZTSTOP DGOVBC1+4, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All