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

Package: Automated Medical Information Exchange

Routine: DVBARQP


Information

DVBARQP ;ALB/JLU-7131 request processing routine ;1/28/93

Source Information

Source file <DVBARQP.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ;
EXIT
INITIAL ;This subroutine will initialize most of the variable needed for this
ADM ;sets up admission date variable and discharge variable if applicable
ACT ;sets up activity date variable
DRAW ;This subroutine will draw the screen
DRAW1 ;rights the reports to the screen
READ ;reads the user answer
ADJ ;This subroutine adjusts the local array
DISC ;checks for bad answers
CKCFLOC() ;Check if Claim Folder Location or its Station Number is null.
CHNG ;updates the local array
FILE ;this subroutine sets the data into the file and asks the last three
ERR ;this subroutine will print out an error message when no reports are
ANYSEL(B) ;
LAST ;this subroutine will ask the last three questions
TEST ;tests to see if the user wants this 7131

Interaction Calls

Name Line Occurrences
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",?60,"Status"
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: !,DVBALN
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: !,DVBALN
  • Line Location: DRAW+16
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: ?60,$S($P(DVBARPT(DVBAX),U,3)="C":"Completed",$P(DVBARPT(DVBAX),U,3)="P":"Pending",1:"")
  • Line Location: DRAW1+4
Function Call: WRITE
  • Prompt: !,?30,"<Return> to continue."
  • Line Location: DISC+8
Function Call: WRITE
  • Prompt: *7,!,"The patient has no Claim Folder Location in the Patient File.",!,"Notice of Discharge would not be returned.",!,?30,"<Return> to continue."
  • Line Location: DISC+15
Function Call: WRITE
  • Prompt: *7,!,"The patient's Claim Folder Location has no Station Number in file #4.",!,"Notice of Discharge would not be returned.",!,"Please check the Claim Folder Location and its entry in file #4.",!,?30,"<Return> to continue."
  • Line Location: DISC+17
Function Call: WRITE
  • Prompt: *7,!,"The patient has no Claim Folder Location in the Patient File.",!,"21 Day Certificate would not be returned.",!,?30,"<Return> to continue."
  • Line Location: DISC+22
Function Call: WRITE
  • Prompt: *7,!,"The patient's Claim Folder Location has no Station Number in file #4.",!,"21 Day Certificate would not be returned.",!,"Please check the Claim Folder Location and its entry in file #4.",!,?30,"<Return> to continue."
  • Line Location: DISC+24
Function Call: WRITE
  • Prompt: !,*7,"Do you want to file this request"
  • Line Location: TEST+2

FileMan Files Accessed Via FileMan Db Call

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