Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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,$S($D(^DIC(5,+VAPA(5),1,+VAPA(7),0)):$P(^(0),"^",3),1:""),?66,"|"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?67,I,"|"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?7,VAPA(2),?66,"| 2. Name and Address of Issuing Health Care Facility",?131,"|"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !?7,VAPA(4),?40,$P(^DIC(5,+VAPA(5),0),"^",2),?50,$P(VAPA(11),U,2),?66,"|",?131,"|"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?66,"|",?131,"|"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?7,DGBTSSN,?21,$E($P(VADM(10),"^",2),1),?22,$P(VADM(5),"^"),?30,DGBTDOB,?50,DGBTDIV,?66,"|",?88,$P($G(DGBTINS),"^"),?131,"|"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: $P(DGBTINS1,"^",2)
  • Condition for execution: $P(DGBTINS1,"^")=""
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: DGBTINS2
  • Condition for execution: $P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)="")
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !?7,VAEL(7),?19
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: $P(^(0),"^",4)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?21,DGBTSCP,?28
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: $P(^(0),"^",3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?66,"|",?88
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: $P(DGBTINS1,"^",2)
  • Condition for execution: $P(DGBTINS1,"^",2)'=""&($P(DGBTINS1,"^")'="")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: DGBTINS2
  • Condition for execution: $P(DGBTINS1,"^")'=""&($P(DGBTINS1,"^",2)="") DGBTINS2 W:$P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)'="")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !," 1. Patient Data Card Information",?66,"|",?131,"|"
  • Line Location: PRINT+13
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
Info |  Source |  Entry Points |  Interaction Calls