Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGBTCR1

Package: Beneficiary Travel

Routine: DGBTCR1


Information

DGBTCR1 ;ALB/SCK - BENEFICIARY TRAVEL FORM 70-3542d; 2/7/88@08:00 6/11/93@09:30

Source Information

Source file <DGBTCR1.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBTCR  

Entry Points

Name Comments DBIA/ICR reference
PRINT
FISCAL
LINE
RMV ; W !,"|",?66,"|",?131,"|"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?66,"|",I,"|",!?7,VADM(1),?50
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: $P(^(0),"^",4)
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?66,"| VOUCHER FOR CASH REIMBURSEMENT OF BENEFICIARY TRAVEL EXPENSES |"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?7,VAPA(1),?50,DGBTCC,?66,"|"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?67,I,"|"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?7,VAPA(4),?40,DGBTST,?50,$P(VAPA(11),U,2),?66,"| 2. Name and Address of Issuing Health Care Facility",?131,"|"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?66,"|",?131,"|"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?7,DGBTSSN,?21,$E($P(VADM(10),"^",2),1),?22,$P(VADM(5),"^"),?30,DGBTDOB,?50,DGBTDIV,?66,"|",?88,$P(DGBTINS,"^"),?131,"|"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: $P(DGBTINS1,"^",2)
  • Condition for execution: $P(DGBTINS1,"^")=""
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: DGBTINS2
  • Condition for execution: $P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)="")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?7,VAEL(7),?19
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: $P(^(0),"^",4)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?21,DGBTSCP,?28
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: $P(^(0),"^",3)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?66,"|",?88
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $P(DGBTINS1,"^",2)
  • Condition for execution: $P(DGBTINS1,"^",2)'=""&($P(DGBTINS1,"^")'="")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: DGBTINS2
  • Condition for execution: $P(DGBTINS1,"^")'=""&($P(DGBTINS1,"^",2)="") DGBTINS2 W:$P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)'="")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !," 1. Patient Data Card Information",?66,"|",?131,"|"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"| 3. Fiscal Symbols"
  • Line Location: FISCAL+0
Function Call: WRITE
  • Prompt: ?30,$P(DGBTRATE,"^",4),?131,"|"
  • Line Location: FISCAL+1
Function Call: WRITE
  • Prompt: !,"| 4. From (Place of Departure)",?66,"| 5. To (Destination)",?131,"|"
  • Line Location: FISCAL+2
Function Call: WRITE
  • Prompt: !,"|",?66,"|",?131,"|"
  • Line Location: RMV+0
Function Call: WRITE
  • Prompt: !,"|",?12,$P(DGBTVAR("D"),"^"),?66,"|",?88,$P(DGBTVAR("T"),"^"),?131,"|"
  • Line Location: RMV+1
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),"^",3)
  • Condition for execution: $P(DGBTVAR("D"),"^",2)=""
  • Line Location: RMV+2
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),"^",2)=""&($P(DGBTVAR("D"),"^",3)="")
  • Line Location: RMV+2
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),"^",3)
  • Condition for execution: $P(DGBTVAR("T"),"^",2)=""
  • Line Location: RMV+3
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),"^",2)=""&($P(DGBTVAR("T"),"^",3)="")
  • Line Location: RMV+3
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: RMV+3
Function Call: WRITE
  • Prompt: !,"|",?12
  • Line Location: RMV+4
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),"^",3)'="" $P(DGBTVAR("D"),"^",3) W:$P(DGBTVAR("D"),"^",2)'=""&($P(DGBTVAR("D"),"^",3)="")
  • Line Location: RMV+4
Function Call: WRITE
  • Prompt: ?66,"|",?88
  • Line Location: RMV+5
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),"^",3)'="" $P(DGBTVAR("T"),"^",3) W:$P(DGBTVAR("T"),"^",2)'=""&($P(DGBTVAR("T"),"^",3)="")
  • Line Location: RMV+5
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: RMV+5
Function Call: WRITE
  • Prompt: !,"|",?12
  • Line Location: RMV+6
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),"^",2)'=""&($P(DGBTVAR("D"),"^",3)'="")
  • Line Location: RMV+6
Function Call: WRITE
  • Prompt: ?66,"|",?88
  • Line Location: RMV+7
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),"^",2)'=""&($P(DGBTVAR("T"),"^",3)'="")
  • Line Location: RMV+7
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: RMV+7
Function Call: WRITE
  • Prompt: !,"|",I,"|"
  • Line Location: LINE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(13 - [#13] PRINT
^DIC(21 - [#21] PRINT+9
^DIC(8 - [#8] PRINT+8

Label References

Name Line Occurrences
LINE PRINT+12, FISCAL+1, RMV+7

Naked Globals

Name Field # of Occurrence
^(0 PRINT, PRINT+8, PRINT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGBTCC PRINT+2
>> DGBTDIV PRINT+6
>> DGBTDOB PRINT+6
>> DGBTFCTY RMV+2, RMV+4, RMV+6
>> DGBTINS PRINT+6, PRINT+11
>> DGBTINS1 PRINT+7, PRINT+10, PRINT+11
>> DGBTINS2 PRINT+7, PRINT+10, PRINT+11
>> DGBTRATE FISCAL+1
>> DGBTSCP PRINT+9
>> DGBTSSN PRINT+6
>> DGBTST PRINT+4
>> DGBTTCTY RMV+3, RMV+5, RMV+7
>> DGBTVAR("D" RMV+1, RMV+2, RMV+4, RMV+6
>> DGBTVAR("T" RMV+1, RMV+3, RMV+5, RMV+7
I PRINT!*, PRINT+3!*, LINE!*
U PRINT+4
>> VADM(1 PRINT
>> VADM(10 PRINT+6
>> VADM(5 PRINT+6
>> VADM(9 PRINT
>> VAEL(1 PRINT+8
>> VAEL(2 PRINT+9
>> VAEL(7 PRINT+8
>> VAPA(1 PRINT+2
>> VAPA(11 PRINT+4
>> VAPA(4 PRINT+4
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All