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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^DIC  YN^DICN  ^DIE  
Automated Medical Information Exchange 2 (DICW,KILL)^DVBAUTIL  ($$LOCK,UNLOCK)^DVBAUTL6  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA RELEASE 21-DAY CERT  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS TERM
^DIC EDIT
YN^DICN RELEASE+2
^DIE EDIT+10
DICW^DVBAUTIL SETUP+3
KILL^DVBAUTIL EXIT
$$LOCK^DVBAUTL6 EDIT+2
UNLOCK^DVBAUTL6 SETUP

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
Routine Call
  • %ZIS
  • Line Location:
    • TERM
Routine Call
  • DIC
  • Line Location:
    • EDIT
Routine Call
  • DIE
  • Line Location:
    • EDIT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396 - [#396] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EDIT+9
^DPT - [#2] EDIT+3
^DVB(396 - [#396] EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+9
^VA(200 - [#200] TERM
^XUSEC("DVBA 21-DAY CERT CLERK" SETUP+2
^XUSEC("DVBA RELEASE 21-DAY CERT" RELEASE+1

Label References

Name Line Occurrences
EDIT EDIT
EXIT SETUP+2, EDIT
RELEASE RELEASE+3
SETUP EDIT+2, EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+11

Naked Globals

Name Field # of Occurrence
^(0 TERM, EDIT+3
^(2 EDIT+4
^(4 EDIT+7, EDIT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RELEASE+2*, RELEASE+4
>> %Y RELEASE+3
>> ADMDT EDIT+9*, EDIT+10
>> DA EDIT+3*, EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+9
>> DFN EDIT+3*
>> DIC SETUP+1*
>> DIC("A" SETUP+1*
>> DIC(0 SETUP+1*
>> DIE SETUP+1*
>> DR SETUP+1*
DT SETUP+1
DUZ DVBARL21+3, TERM, SETUP+2, RELEASE+1
DVBAENTR TERM+1*, SETUP, EDIT+3*, EXIT!
DVBAQUIT SETUP+1!, EXIT!, RELEASE+1*, RELEASE+4*
>> HD TERM*, EDIT+10
IOF SETUP+1, EDIT+10, EXIT
>> NAME EDIT+3*, EDIT+10
>> OPER TERM*, SETUP+1
OUT EDIT+1*, EXIT!
>> SSN EDIT+3*, EDIT+10
U TERM, EDIT, EDIT+3, EDIT+4, EDIT+6, EDIT+7, EDIT+8, EDIT+9
WWHO EXIT!
>> X EDIT
>> Y EDIT, EDIT+2, EDIT+3, EDIT+9*
Info |  Source |  Call Graph |  Caller 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