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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^SDV - [#409.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call