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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBAAPLK

Package: Automated Medical Information Exchange

Routine: DVBAAPLK


Information

DVBAAPLK ;ALB/GTS-557/THM-FORMATTING ROUTINE FOR APPTS (DVBAREN1) ;21 JUL 89

Source Information

Source file <DVBAAPLK.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
EN1
A
WRITE
SELECT
D
S
CHECK ;check what choices are available

External References

Name Field # of Occurrence
^DIC D+1, S+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Non-admitted Veteran Date Selection",!
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,?5,"Select from:",!!,?10,"(A)ppointment date",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: ?10,"(D)isposition log-in date",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: ?10,"(S)top code",!!
  • Line Location: EN1+3
Function Call: READ
  • Variable: DISTYPE
  • Timeout: DTIME
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,*7,"Must be A, D, or S",!!
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: @IOF,!,$S(DISTYPE="A":"Appointment",DISTYPE="D":"Disposition Log-in",1:"Stop code")_" Date Selection for "_PNAM,!!!
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!,*7,"This veteran has no appointments on file.",!!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"Choose from these appointment dates: "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: ?5,K_". ",?10,$P(Y,"@",1),?25,$P(Y,"@",2,99),?35,$S($D(^SC(J,0)):$P(^SC(J,0),U,1),1:"Unknown clinic"),!
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WRITE+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: SELECT+0
Function Call: WRITE
  • Prompt: !!,*7,"Must be between 1 and "_K_" ,RETURN, or ""^""",!!
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !!,*7,"This veteran has no log-ins on file.",!!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,*7,"This veteran has no stop codes on file.",!!
  • Line Location: S+0
Function Call: WRITE
  • Prompt: @IOF,!!,"The following choices are available for this Veteran:",!!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: "Appointments",!
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: "Stop codes",!
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: "Disposition Log-in dates",!
  • Line Location: CHECK+4
Function Call: READ
  • Variable: ANS1
  • Timeout: DTIME
  • Line Location: CHECK+5
Routine Call
  • DIC
  • Line Location:
    • D+1
    • S+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SDV - [#409.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DVBAAPLK+2
^DPT - [#2] A, A+2, D, S+1, CHECK+2, CHECK+4
^SC - [#44] WRITE
^SDV("ADT" S, CHECK+3
^TMP("DVBA" EN1+10!, A+2*, A+5!

Label References

Name Line Occurrences
@( EN1+10
CHECK EN1+5
EN1 EN1+8, CHECK+6
SELECT A+3, WRITE, SELECT+1
WRITE A+2

Naked Globals

Name Field # of Occurrence
^( A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS EN1+10!, A+2*, A+3, A+4, A+5, A+6, WRITE, SELECT*, SELECT+1
ANS1 EN1+10!, CHECK+5*
>> APPDT A+7*, D+2*, S+2*
APPT EN1+10!, A+6!
>> AROWOUT EN1+4*, EN1+7*, A+6*, D+1*, CHECK+5*
>> DFN A, A+2, D, S, S+1, CHECK+2, CHECK+3, CHECK+4
DIC EN1+10!, D+1*, S+1*
DIC("A" D+1*
DIC(0 D+1*, S+1*
DISTYPE EN1+1*, EN1+4*, EN1+5, EN1+6*, EN1+7, EN1+8, EN1+9, EN1+10!
DTIME EN1+4, SELECT, CHECK+5
>> DVBAQUIT EN1+4*, CHECK+5*
I EN1+10!, A+2*, WRITE*
IOF EN1, EN1+9, CHECK+1
J EN1+10!, A+2*, WRITE
K EN1+10!, A+2*, WRITE, SELECT, SELECT+1
>> OUT A*, A+4*, D*, S*, S+1*
>> PNAM EN1+9
U EN1+7, WRITE, SELECT, D+1, D+2, S+1, S+2, CHECK+5
X EN1+10!, D+1, S+1*
>> XDD DVBAAPLK+2*, A+2
>> Y EN1+4*, EN1+7*, A*, A+2*, A+5*, A+6*, A+7*, WRITE, D*, D+1*
, D+2*, S*, S+1, S+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All