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

Package: Automated Medical Information Exchange

Routine: DVBADXFR


Information

DVBADXFR ;ALB/GTS-AMIE 7131 DIVISIONAL TRANSFER RTN ; 12/6/94 2:00 PM

Source Information

Source file <DVBADXFR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Automated Medical Information Exchange 4 $$IFNPAR^DVBAUTL3  ($$SEL7131,FILE,INITRPT)^DVBAUTL7  SSNOUT^DVBCUTIL  $$SITE^DVBCUTL4  
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIR  
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 7131 DIVISIONAL TRANSFER  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;**Loop to select and update 7131 report divisions
EXITLP
INITIAL ;**initialize general variables
REQVARS ;**Set variables unique to 7131
ADM ;**Set up admission date and discharge variables
ACT ;**Set up activity date variable
DRAW ;** Output Division screen
DRAW1 ;** Output a report to the screen
READ ;** Read selected report
DIVSEL ;** Select a division to transfer to (Division must be in AMIE Site
PARAMERR ;** Error if the AMIE Site Parameter file has a problem
ADJ ;** Adjust local array DVBARPT(#)
CHECK ;** Check for X-fer of report with status '= Pending
CHNG ;** Update local array DVBARPT(#)

External References

Name Field # of Occurrence
^%DT INITIAL+4
DD^%DT ADM+2, ACT+2
HOME^%ZIS MAIN+2
^DIC DIVSEL+9
^DIR READ+6
$$IFNPAR^DVBAUTL3 DIVSEL+3
$$SEL7131^DVBAUTL7 MAIN+5
FILE^DVBAUTL7 MAIN+17
INITRPT^DVBAUTL7 MAIN+9
SSNOUT^DVBCUTIL REQVARS+7
$$SITE^DVBCUTL4 INITIAL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRAW+1
Function Call: WRITE
  • Prompt: "Information Request Form"
  • Line Location: DRAW+2
Function Call: WRITE
  • Prompt: ?35,HNAME
  • Line Location: DRAW+3
Function Call: WRITE
  • Prompt: ?59,DVBATDT
  • Line Location: DRAW+4
Function Call: WRITE
  • Prompt: !,DVBALN
  • Line Location: DRAW+5
Function Call: WRITE
  • Prompt: !,"Patient: "
  • Line Location: DRAW+6
Function Call: WRITE
  • Prompt: PNAM
  • Line Location: DRAW+7
Function Call: WRITE
  • Prompt: ?54,"SSN: "
  • Line Location: DRAW+8
Function Call: WRITE
  • Prompt: SSN
  • Line Location: DRAW+9
Function Call: WRITE
  • Prompt: !,"Claim #: ",CNUM,!
  • Line Location: DRAW+10
Function Call: WRITE
  • Prompt: DVBAHD21
  • Line Location: DRAW+11
Function Call: WRITE
  • Prompt: !!,?9,"Report",?37,"Selected",?48,"Status",?58,"Division"
  • Line Location: DRAW+12
Function Call: WRITE
  • Prompt: !,DVBALN
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: !,DVBALN
  • Line Location: DRAW+15
Function Call: WRITE
  • Prompt: !,DVBAX
  • Line Location: DRAW1+1
Function Call: WRITE
  • Prompt: ?3,$P(DVBARPT(DVBAX),U,1)
  • Line Location: DRAW1+2
Function Call: WRITE
  • Prompt: ?40,$S($P(DVBARPT(DVBAX),U,2)["Y":"YES",1:"NO")
  • Line Location: DRAW1+3
Function Call: WRITE
  • Prompt: ?48,$S($P(DVBARPT(DVBAX),U,3)="C":"Completed",$P(DVBARPT(DVBAX),U,3)="P":"Pending",1:"")
  • Line Location: DRAW1+4
Function Call: WRITE
  • Prompt: ?58,$E($P(DVBARPT(DVBAX),U,4),1,20)
  • Line Location: DRAW1+5
Function Call: WRITE
  • Prompt: *7,!,"The AMIE Site Parameter File is not set up properly."
  • Line Location: PARAMERR+1
Function Call: WRITE
  • Prompt: !,"Contact the Medical Center's IRM department."
  • Line Location: PARAMERR+2
Function Call: WRITE
  • Prompt: !,?30,"<Return> to continue."
  • Line Location: PARAMERR+3
Routine Call
  • DIC
  • Line Location:
    • DIVSEL+9
Routine Call
  • DIR
  • Line Location:
    • READ+6
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INITIAL+5
^DG(40.8 - [#40.8] DIVSEL+11
^DPT - [#2] REQVARS+5, REQVARS+6
^DVB(396 - [#396] REQVARS+1, REQVARS+2, REQVARS+3, REQVARS+4
^DVB(396.1 - [#396.1] DIVSEL+10

Label References

Name Line Occurrences
ACT REQVARS+2
ADJ MAIN+16
ADM REQVARS+3
CHECK ADJ+3
CHNG ADJ+4
DIVSEL MAIN+15
DRAW MAIN+13
DRAW1 DRAW+14
EXITLP MAIN+18
INITIAL MAIN+8
PARAMERR DIVSEL+4
READ MAIN+14
REQVARS MAIN+8

Naked Globals

Name Field # of Occurrence
^( REQVARS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT INITIAL+3*, INITIAL+8!
A EXITLP!, ADJ+2~, ADJ+3*, CHECK+1, CHNG+1*, CHNG+2, CHNG+3, CHNG+4
CNUM EXITLP+3!, REQVARS+6*, DRAW+10
DA MAIN+19!, EXITLP!
DFN EXITLP+2!, REQVARS+4*, REQVARS+5, REQVARS+6
DIC DIVSEL+8*, DIVSEL+13!
DIC("A" DIVSEL+7*
DIC(0 DIVSEL+6*
DIE MAIN+19!, EXITLP!
DIR MAIN+19!, EXITLP!
DIR("?" READ+3*, READ+4*, READ+5*
DIR("A" READ+2*
DIR(0 READ+1*
DR MAIN+19!, EXITLP!
DTIME PARAMERR+4, CHECK+5
DTOUT MAIN+1, MAIN+10!, MAIN+11, MAIN+14, MAIN+15, MAIN+17, MAIN+19!, EXITLP!, READ+7
DUOUT MAIN+1, MAIN+10!, MAIN+11, MAIN+14, MAIN+15, MAIN+17, MAIN+19!, EXITLP!, READ+7
DVBADSCH EXITLP!
DVBAER EXITLP!, ADJ+1!, ADJ+4, CHECK+1*
DVBAHD21 EXITLP!, ADM+3*, ACT+3*, DRAW+11
DVBALN EXITLP!, INITIAL+1*, DRAW+5, DRAW+13, DRAW+15
DVBAO EXITLP+1!
DVBAOUT MAIN+1, MAIN+6*, MAIN+10!, MAIN+11, MAIN+14, MAIN+15, MAIN+19!, EXITLP!, READ+8*, PARAMERR+5*
DVBAP EXITLP+1!
DVBARPT EXITLP+1!, EXITLP+2!
DVBARPT( DRAW+14, DRAW1+2, DRAW1+3, DRAW1+4, DRAW1+5, CHECK+1, CHNG+2, CHNG+3*, CHNG+4*
DVBATDT EXITLP+1!, INITIAL+6*, DRAW+4
DVBATITL EXITLP+1!, INITIAL+2*
DVBAX EXITLP+1!, DRAW+14*, DRAW1+1, DRAW1+2, DRAW1+3, DRAW1+4, DRAW1+5
DVBCSSNO EXITLP+2!, REQVARS+8
DVBREQDT EXITLP+2!, REQVARS+1*, ADM+1, ACT+1
FLDDIV EXITLP+1!
FLDDTE EXITLP+1!
HNAME EXITLP+2!, INITIAL+7*, DRAW+3
IOF MAIN+3, MAIN+20, DRAW+1
IOST DRAW+1
NDIVIEN EXITLP+3!, DIVSEL+10*, DIVSEL+11, CHNG+4
NDIVNAME EXITLP+3!, DIVSEL+11*, CHNG+3
NODIV MAIN+12!, MAIN+16, EXITLP+3!, DIVSEL+12*
PARAMDA DIVSEL+2~, DIVSEL+3*, DIVSEL+4, DIVSEL+5, DIVSEL+10
PNAM EXITLP+2!, REQVARS+5*, DRAW+7
REQDA MAIN+5*, MAIN+6, MAIN+7, MAIN+9, MAIN+19!, EXITLP+2!, REQVARS+1, REQVARS+2, REQVARS+3, REQVARS+4
REQDIV EXITLP+1!
REQDTE EXITLP+2!
RPTVAR EXITLP+2!, READ+9*, ADJ+3, CHNG+1
SSN EXITLP+2!, REQVARS+5*, REQVARS+8*, DRAW+9
U REQVARS+1, REQVARS+2, REQVARS+3, REQVARS+4, REQVARS+5, REQVARS+6, DRAW1+2, DRAW1+3, DRAW1+4, DRAW1+5
, DIVSEL+10, DIVSEL+11, CHECK+1, CHNG+2, CHNG+3, CHNG+4
X EXITLP+1!, INITIAL+3*, INITIAL+8!, ADJ+2~, ADJ+3*, CHNG+1*
Y INITIAL+6, INITIAL+8!, ADM+1*, ADM+3, ADM+4!, ACT+1*, ACT+3, ACT+4!, READ+8, READ+9
, DIVSEL+10, DIVSEL+11, DIVSEL+12, DIVSEL+13!, ADJ+5!
Z EXITLP+1!, PARAMERR+4*, CHECK+5*
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