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

Package: Beneficiary Travel

Routine: DGBT2


Information

DGBT2 ;ALB/LM - BENEFICIARY TRAVEL SCREEN 2 ;5/24/91 09:19

Source Information

Source file <DGBT2.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 3 SCAN^DGSDU  ^VADATE  PID^VADPT6  
VA Fileman 1 (COMMA,NOW)^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBTE  

Entry Points

Name Comments DBIA/ICR reference
PAST
SCREEN ;
APPT
STOP
WRTVIS(DGBTCSN) ;
EXIT ;
ACCT
ADM
AMT

External References

Name Field # of Occurrence
COMMA^%DTC AMT
NOW^%DTC ADM+1
SCAN^DGSDU SCREEN+14
^VADATE PAST+1
PID^VADPT6 SCREEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+1
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Screen 2>"
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?42,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2)
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !!?2,"Visits For: "
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: $P(DGBTDTE,"@")
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: $S(DGBTAS="A":" * * * * ADMITTED ON THIS DATE * * * *",DGBTAS="D":" * * * * DISCHARGED ON THIS DATE * * * *",DGBTAS="I":" * * * * CURRENTLY AN INPATIENT * * * *",DGBTAS="II":" * * * INPATIENT STATUS * * *",1:"")
  • Line Location: SCREEN+7
Function Call: WRITE
  • Prompt: !!," Admitted On: "
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: ?40,"Ward Location: ",^DPT(DFN,.1)
  • Condition for execution: $D(^DPT(DFN,.1))
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: ?40,"Discharge Date: "
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !!,"Appointments: "
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$D(DGBTCL) "NONE RECORDED FOR THIS DATE" I $D(DGBTCL) F I=0:0 S I=$O(DGBTCL(I)) Q:'I
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: !!?45,"Elig for Visit:",?65,"Appt Type:",!?45,"______________",?65,"_________",!!,"Clinic Stop: "
  • Line Location: WRTVIS+2
Function Call: WRITE
  • Prompt: ?65,$E($S($D(^SD(409.1,+$P(DGBTCSN,"^",10),0)):$P(^(0),"^"),1:"REGULAR"),1,15),!
  • Line Location: STOP+0
Function Call: WRITE
  • Prompt: ?14,$S($D(^SC(DGBTCN,0)):$P(^(0),"^"),1:"Unknown")
  • Line Location: APPT+0
Function Call: WRITE
  • Prompt: " (",Y,") "
  • Line Location: APPT+0
Function Call: WRITE
  • Prompt: !!?14,"Date/Time",?35,"Account",?55,"Deductible",?69,"Amt. Paid",!!,"Past Claims: "
  • Line Location: PAST+0
Function Call: WRITE
  • Prompt: ?14,VADATE("E")
  • Line Location: PAST+1
Function Call: WRITE
  • Prompt: ?35,$S($P(^DGBT(392,DGBTPDT,0),"^",6):$E($P(^DGBT(392.3,$P(^(0),"^",6),0),"^"),1,15),1:"")
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: AMT+0
Function Call: WRITE
  • Prompt: ?67,X,!
  • Line Location: AMT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCREEN+8, APPT
^DGBT(392 - [#392] PAST, PAST+1, ACCT, AMT
^DGBT(392.3 - [#392.3] ACCT
^DGPM - [#405] ADM+1, ADM+2
^DGPM("ATID3" ADM+1
^DIC(40.7 - [#40.7] WRTVIS+6
^DIC(8 - [#8] WRTVIS+6
^DPT - [#2] SCREEN+8, ADM
^SC - [#44] APPT
^SD(409.1 - [#409.1] STOP, APPT+3

Label References

Name Line Occurrences
ACCT PAST+1
ADM SCREEN+4
AMT ACCT
APPT SCREEN+9
PAST SCREEN+4
STOP WRTVIS+7

Naked Globals

Name Field # of Occurrence
^( ADM, ADM+1
^(0 WRTVIS+6, ADM+1, ADM+2, STOP, APPT, APPT+3, ACCT, AMT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADM+1, ADM+3!
>> DFN SCREEN+8, SCREEN+12, ADM, ADM+1, PAST, PAST+1
>> DGBTAD SCREEN+6, SCREEN+8, ADM+2*
>> DGBTAN ADM*, ADM+1*, ADM+2
>> DGBTAS SCREEN+6*, SCREEN+7, SCREEN+8
>> DGBTCL SCREEN+9, APPT, APPT+1
>> DGBTCL( SCREEN+9, APPT, APPT+2, APPT+3
>> DGBTCN APPT*
DGBTCS WRTVIS+4~, WRTVIS+5*, STOP
DGBTCSN WRTVIS~, WRTVIS+5, WRTVIS+6, STOP
>> DGBTDD SCREEN+6, SCREEN+8, ADM+2*
DGBTDI ADM+1*, ADM+3!
DGBTDN ADM+1*, ADM+3!
>> DGBTDTE SCREEN+5
>> DGBTDTI SCREEN+6, SCREEN+12, PAST, PAST+1
>> DGBTP PAST+1*
>> DGBTPDT PAST+1*, ACCT, AMT
DGCBK SCREEN+10~, SCREEN+13*, SCREEN+14
DGDT1 SCREEN+10~, SCREEN+13*, WRTVIS+1, WRTVIS+2
>> DGQUERY SCREEN+14
DGVAL SCREEN+10~, SCREEN+14
DGVAL("BDT" SCREEN+12*
DGVAL("DFN" SCREEN+12*
DGVAL("EDT" SCREEN+12*
>> I SCREEN+9*, APPT, APPT+2, APPT+3
IOF SCREEN+1
>> J PAST+1*
>> SDOE0 WRTVIS+1
>> SDSTOP WRTVIS+1*, WRTVIS+3
U WRTVIS+5, WRTVIS+6
>> VA("PID" SCREEN+3
VADAT AMT!
VADAT("W" PAST+1*
VADATE AMT!
VADATE("E" PAST+1
>> VADM(1 SCREEN+3
>> VADM(3 SCREEN+3
VAIP EXIT+1!
X APPT+2*, APPT+3, AMT*!
X2 AMT*!
Y SCREEN+8*!, APPT*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All