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

Package: Automated Medical Information Exchange

Routine: DVBAFINL


Information

DVBAFINL ;ALB/GTS-557/THM-AUTO-FINALIZE 7131 REQUESTS; 21 JUL 89

Source Information

Source file <DVBAFINL.m>

Entry Points

Name Comments DBIA/ICR reference
SETUP
EN
ASK
EN1
CHK1 ;check status of each field
EXIT
HDR
ZTM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"Your user number is not set.",!!
  • Line Location: DVBAFINL+2
Function Call: WRITE
  • Prompt: *7,!!,"Your user number is invalid. Please log off and back on.",!!
  • Line Location: DVBAFINL+3
Function Call: WRITE
  • Prompt: @IOF,!,"AUTOMATIC 7131 FINALIZATION - USER MODE",!!!,"This program will search the entire 7131 file",!,"and FINALIZE all requests that are ready."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Do you want to continue"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter Y to go ahead and finalize all requests which are ready",!,"or N to exit.",!!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"The following Veterans had requests automatically finalized on "
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: "Veteran name",?37,"Soc Sec #",?49,"Admission date",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"Total requests finalized: ",$J(CNT,4,0),!!
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Bad 7131 record for internal entry # ",DA,"!...Notify IRM!!",!
  • Line Location: CHK1+2
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),U,1),?37,$P(^DPT(DFN,0),U,9),?49
  • Line Location: CHK1+7
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: CHK1+7
Function Call: WRITE
  • Prompt: @IOF,!,"Automatic 7131 finalization on "
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: HDR+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396 - [#396] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call