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

Package: Automated Medical Information Exchange

Routine: DVBARL21


Information

DVBARL21 ;ALB/GTS-557/THM-EDIT 21 DAY CERTIFICATE TEXT ;21 JUL 89@0600

Source Information

Source file <DVBARL21.m>

Entry Points

Name Comments DBIA/ICR reference
TERM
SETUP
EDIT
EXIT
RELEASE ;verify release is ok

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You have no user number.",!!
  • Line Location: DVBARL21+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: !!,*7,"You do not have the proper key to use this option.",!!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,*7,"Wrong request type !",!,"This is an ACTIVITY DATE request, not ADMISSION DATE.",!!
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !!,*7,"This request has already been FINALIZED and the text may not be changed.",!!
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: *7,!!,"No 21-day certificate has been requested for this Veteran.",!!
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!,*7,"This Veteran has a 21-day certificate requested but",!," it has not yet been processed.",!!
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,*7,"This certificate has been released to the RO",!,$S($P(^(4),U,1)="R":" but has not been printed.",$P(^(4),U,1)="P":" and has already been printed.",1:" but the status is unknown."),!!
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: @IOF,!?(79-$L(HD)\2),HD,!!!,?15,"Name: ",NAME,!,?16,"SSN: ",SSN,?40,"Admit date: ",ADMDT,!!!
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: !!,"Ok to release this 21-day certificate text"
  • Line Location: RELEASE+2
Function Call: WRITE
  • Prompt: !!,"Enter Y to go ahead and release this certificate to the RO",!,"or N to be able to make corrections and release later.",!!
  • Line Location: RELEASE+3

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