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

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^%DT  YN^DICN  ^DIE  
Automated Medical Information Exchange 2 KILL^DVBAUTIL  NOPARM^DVBAUTL2  
Kernel 2 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  

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

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBA AUTO FINALIZE 7131 TASK  DVBA AUTO FINALIZE USER MODE  

Entry Points

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

External References

Name Field # of Occurrence
^%DT SETUP, ZTM+1
^%ZIS ASK+2
HOME^%ZIS SETUP+2
^%ZTLOAD ASK+4
KILL^%ZTLOAD EXIT
YN^DICN ASK
^DIE CHK1+8
KILL^DVBAUTIL EXIT+1
NOPARM^DVBAUTL2 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
Routine Call
  • DIE
  • Line Location:
    • CHK1+8
Routine Call
  • %ZIS
  • Line Location:
    • ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • SETUP+2

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" EN1+1, CHK1+7, HDR
^DPT - [#2] CHK1+7
^DVB(396 - [#396] EN1+3, CHK1+2, CHK1+3, CHK1+4, CHK1+5, CHK1+7
^VA(200 - [#200] SETUP+1

Label References

Name Line Occurrences
ASK ASK+1
CHK1 EN1+3
EN1 ZTM+2
EXIT ASK+2, ASK+4, EN1+5, ZTM
HDR CHK1+7

Naked Globals

Name Field # of Occurrence
^(0 SETUP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*, ASK+2
>> %DT SETUP*
>> %Y ASK+1
%ZIS ASK+2*!
%ZIS("A" ASK+2*
>> CNT SETUP+1*, EN1+4, CHK1+9*, ZTM+1*
>> DA EN1+3*, CHK1+2, CHK1+3, CHK1+4, CHK1+5, CHK1+7
>> DFN EN1+3*, CHK1+7
>> DIE CHK1+8*
>> DR CHK1+8*
DT SETUP*, EN1+1, CHK1+8, HDR, ZTM+1*
DUZ DVBAFINL+2, DVBAFINL+3, SETUP+1
>> DVBAQUIT ZTM
IO EN1
IO("Q" ASK+3, ASK+4
IOF EN, EN1, HDR
IOM EN1+2
ION ASK+3
IOST EN1
>> LINE EN1+2*
>> NOFINAL CHK1+1*, CHK1+4*, CHK1+5*, CHK1+6
>> OPER SETUP+1*, CHK1+8, EXIT, ZTM+1*
>> POP ASK+2
U SETUP+1, CHK1+3, CHK1+4, CHK1+5, CHK1+7
>> X SETUP*, ZTM+1*
>> Y SETUP, EN1+1*, CHK1+7*, HDR*, ZTM+1
ZA CHK1+4*, EXIT+1!
>> ZTDESC ASK+3*
>> ZTIO ASK+3*
>> ZTQUEUED EXIT
>> ZTRTN ASK+3*
>> ZTSAVE("CNT" ASK+3*
>> ZTSAVE("OPER" ASK+3*
>> ZTSK ASK+4
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