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

Package: Beneficiary Travel

Routine: DGBT2


Information

DGBT2 ;ALB/GAH - BENEFICIARY TRAVEL SCREEN 2 ; 10/11/2006

Source Information

Source file <DGBT2.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls