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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DVBAPST3

Package: Automated Medical Information Exchange

Routine: DVBAPST3


Information

DVBAPST3 ;ALB/JLU;post init to set up hl7 files ;05/03/93

Source Information

Source file <DVBAPST3.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 ^DIC  FILE^DICN  ^DIE  
Kernel 1 $$VERSION^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ;main entry point
EN1
WR1
EXIT
ENTRY1
WR
TYPE ;these are the hl7 message types and routines
SET ;

External References

Name Field # of Occurrence
^DIC EN+4, EN1+3
FILE^DICN EN+11, EN1+9
^DIE EN1+17, ENTRY1+7, ENTRY1+10
$$VERSION^XPDUTL EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"HL7 Version 1.5 not installed, I will not attempt to set up the AMIE/Kurzweil entries."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: *7,!!,"The HL7 DHCP Application Parameter file (771) already ",!,"has a DVBA AMIE entry! No updating of this file."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Setting up the entry in the HL7 DHCP Application Parameter file (771)."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,*7,"An error has occurred entering the entry into file 771. This file must be checked and set up properly. Continuing on to 770."
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: *7,!!,"The HL7 Non-DHCP Application Parameter file (770) already",!,"has an AMIE entry. No updating of this file."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Now setting up the entry in the HL7 Non-DHCP Application Parameter file (770).",!!
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !!,*7,"An error has occurred entering the necessary entry in file 770. This entry must be set up before use."
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: !!!,"The post init has finished!"
  • Line Location: WR1+0
Function Call: WRITE
  • Prompt: !,*7,"An error has occurred entering the message or segment types into file 771. Please check"
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: !,"this file to make sure all the necessary file entries exists."
  • Line Location: WR+1
Routine Call
  • DIC
  • Line Location:
    • EN+4
    • EN1+3
Routine Call
  • DIE
  • Line Location:
    • EN1+17
    • ENTRY1+7
    • ENTRY1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HL(770 - [#770] Classic Fileman Calls
^HL(771 - [#771] Classic Fileman Calls

Label References

Name Line Occurrences
EN1 EN+5
ENTRY1 EN+14
SET ENTRY1+10
WR ENTRY1+8, ENTRY1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EN1+15!, EN1+16*, EXIT!, ENTRY1+2*, ENTRY1+8, ENTRY1+10
DD EN+6!, EN1!
DIC EN+3!, EN+4*, EN+5!, EN+7*, EN1!, EN1+2!, EN1+3*, EN1+4!, EN1+5*, EXIT!
, ENTRY1!
DIC("DR" EN+7*, EN1+6*
DIC(0 EN+4*, EN+7*, EN1+3*, EN1+5*, ENTRY1+1*, ENTRY1+9*
DIE EN1!, EN1+15!, EN1+16*, EXIT!, ENTRY1!, ENTRY1+3*, ENTRY1+9*
DLAYGO EN+10*, EN+12!, EN1+8*, EN1+10!, ENTRY1+6*, ENTRY1+7!, ENTRY1+10!, SET+5*
DO EN+6!, EN1!
DR EN1+15!, EN1+16*, EXIT!, ENTRY1!, ENTRY1+4*, SET+1!, SET+3*
DR(2 ENTRY1+5*, SET+4*
DVBA EXIT!, ENTRY1+10*
DVBVAR EXIT!, SET+2*, SET+3, SET+4
U SET+3, SET+4
X EN+3!, EN+4*, EN+5!, EN+7*, EN1+2!, EN1+3*, EN1+4!, EN1+5*, EXIT!
Y EN+3!, EN+5!, EN+13, EN+14, EN1+2!, EN1+4!, EN1+12, EN1+16, EXIT!, ENTRY1+2

Marked Items

Name Field # of Occurrence
$T(TYPE+DVBA SET+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items  | All