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/GAH - BENEFICIARY TRAVEL SCREEN 2 ; 10/11/2006

Source Information

Source file <DGBT2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 SCAN^DGSDU  ^VADATE  PID^VADPT6  
VA FileMan 2 (COMMA,NOW)^%DTC  $$FMTE^DILIBF  

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
Beneficiary Travel 1 DGBTE  

Entry Points

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

External References

Name Field # of Occurrence
COMMA^%DTC AMT+1
NOW^%DTC ADM+1
SCAN^DGSDU SCREEN+18
$$FMTE^DILIBF APPT+2
^VADATE PAST+1
PID^VADPT6 SCREEN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Screen 2>"
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?42,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2)
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !!?2,"Visits For: "
  • Line Location: SCREEN+6
Function Call: WRITE
  • Prompt: $P(DGBTDTE,"@")
  • Line Location: SCREEN+6
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+8
Function Call: WRITE
  • Prompt: !!," Admitted On: "
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: ?40,"Ward Location: ",^DPT(DFN,.1)
  • Condition for execution: $D(^DPT(DFN,.1))
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: ?40,"Discharge Date: "
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: Y
  • Line Location: SCREEN+9
Function Call: WRITE
  • Prompt: ?14,DGBTCL("ERROR")
  • Line Location: SCREEN+12
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,"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+1
Function Call: WRITE
  • Prompt: ?67,X,!
  • Line Location: AMT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SCREEN+9
^DGBT(392 - [#392] PAST, PAST+1, ACCT, AMT+1
^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+9, ADM
^SD(409.1 - [#409.1] STOP, APPT+6

Label References

Name Line Occurrences
ACCT PAST+1
ADM SCREEN+5
AMT ACCT
APPT SCREEN+13
PAST SCREEN+5
STOP WRTVIS+7

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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