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

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(#)

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.1 - [#396.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call