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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Automated Medical Information Exchange 4 (DEL,FILE,INITRPT)^DVBAUTL3  WR^DVBAUTL4  SSNOUT^DVBCUTIL  (CONTMES,SPM,STM)^DVBCUTL4  
VA FileMan 4 (,DD)^%DT  YN^DICN  ^DIE  ^DIR  

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 DVBAREG1  

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

External References

Name Field # of Occurrence
^%DT INITIAL+5
DD^%DT ADM+2, ADM+8, ACT+2
YN^DICN TEST+3
^DIE LAST+3
^DIR READ+6
DEL^DVBAUTL3 FILE+2, FILE+4, FILE+10, TEST+4
FILE^DVBAUTL3 FILE+16
INITRPT^DVBAUTL3 BEG+2
WR^DVBAUTL4 ERR+4
SSNOUT^DVBCUTIL INITIAL+10
CONTMES^DVBCUTL4 ERR+6
SPM^DVBCUTL4 FILE+18
STM^DVBCUTL4 FILE+15

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
Routine Call
  • DIE
  • Line Location:
    • LAST+3
Routine Call
  • DIR
  • Line Location:
    • READ+6

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" INITIAL+6
^DGPM - [#405] ADM+4, ADM+5, ADM+7
^DIC(4 - [#4] CKCFLOC+9
^DPT - [#2] CKCFLOC+7
^DVB(396 - [#396] ANYSEL+9, ANYSEL+10

Label References

Name Line Occurrences
$$ANYSEL FILE+5, FILE+13
$$CKCFLOC DISC+14, DISC+21
ACT INITIAL+9
ADJ BEG+8
ADM INITIAL+8
CHNG DISC+25
DISC ADJ+3
DRAW BEG+6, TEST+1
DRAW1 DRAW+15
ERR FILE+6, FILE+14
EXIT BEG+12
FILE BEG+10
INITIAL BEG+1
LAST FILE+8
READ BEG+7

Naked Globals

Name Field # of Occurrence
^(0 ADM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TEST+3*, TEST+4
>> %DT INITIAL+4*
A EXIT!, ADJ+2~, ADJ+3*, DISC+1, DISC+6, DISC+13, DISC+20, CHNG+1, CHNG+2, CHNG+4
, CHNG+5
ADMNUM EXIT!, INITIAL+8, ADM+4, ADM+5, DISC+1
B ANYSEL~, ANYSEL+9, ANYSEL+10
CK DISC+14~*, DISC+15, DISC+16, DISC+21~*, DISC+22, DISC+23, CKCFLOC+4~, CKCFLOC+5*, CKCFLOC+6*, CKCFLOC+8*
, CKCFLOC+9*, CKCFLOC+10
CNT ANYSEL+4~, ANYSEL+5*, ANYSEL+6, ANYSEL+7*, ANYSEL+9*, ANYSEL+10*, ANYSEL+11
>> CNUM DRAW+10
DA EXIT!, LAST+1*
>> DFN CKCFLOC+6
DIE EXIT!, LAST+1*
DIR EXIT!
DIR("?" READ+3*, READ+4*, READ+5*
DIR("A" READ+2*
DIR(0 READ+1*
DR EXIT!, LAST+2*
DT LAST+2
DTIME DISC+4, DISC+9, DISC+15, DISC+17, DISC+22, DISC+24
DTOUT BEG+3, BEG+5, BEG+7, EXIT!, READ+7, FILE+2
DUOUT BEG+5, BEG+7, EXIT!, READ+7, FILE+3
DVBADSCH EXIT!, ADM+9*, DISC+1
>> DVBAEDT FILE+2, FILE+4, FILE+9
>> DVBAENTR FILE+2, FILE+4, FILE+5, FILE+10, FILE+13, LAST+1, TEST+4
DVBAER EXIT!, ADJ+1!, DISC+1*, DISC+6*
DVBAHD21 EXIT!, ADM+3*, ACT+3*, DRAW+11
DVBAHD22 EXIT!, ADM+10*, DRAW+12
DVBALN EXIT!, INITIAL+2*, DRAW+5, DRAW+14, DRAW+16
DVBANY BEG+3, EXIT!, INITIAL+12*, FILE+2*, FILE+4*, FILE+5*, FILE+6, FILE+11*, FILE+13*, FILE+14
DVBAO EXIT!
DVBAOLD EXIT!, CHNG+2*, CHNG+3*, CHNG+4, CHNG+5
DVBAOUT BEG+4*, BEG+5, BEG+7, EXIT!, READ+8*
DVBAP EXIT!
DVBARPT EXIT!
DVBARPT( DRAW+15, DRAW1+2, DRAW1+3, DRAW1+4, CHNG+1, CHNG+2, CHNG+4*, CHNG+5*, ANYSEL+6, ANYSEL+7
DVBARPT(4 ANYSEL+10
DVBATDT EXIT!, INITIAL+7*, DRAW+4
DVBATITL EXIT!, INITIAL+3*
DVBAX EXIT!, DRAW+15*, DRAW1+1, DRAW1+2, DRAW1+3, DRAW1+4
>> DVBCSSNO INITIAL+11
>> DVBDOC INITIAL+9, DISC+6
>> DVBREQDT ADM+1, ACT+1
FLOP ADJ+2~, DISC+13*, DISC+15*, DISC+16*, DISC+20*, DISC+22*, DISC+23*
>> HNAME DRAW+3
IOF DRAW+1
IOST DRAW+1
>> LOC LAST+2
>> OPER LAST+2
>> PNAM DRAW+7
>> SSN INITIAL+11*, DRAW+9
U ADM+5, ADM+6, ADM+7, DRAW1+2, DRAW1+3, DRAW1+4, CKCFLOC+6, CKCFLOC+7, CKCFLOC+9, CHNG+1
, CHNG+2, CHNG+4, CHNG+5, ANYSEL+7, ANYSEL+9, ANYSEL+10
VAR ERR+5!
VAR(1 ERR+2*
VAR(2 ERR+3*
X EXIT!, INITIAL+4*, ADJ+2~, ADJ+3*, ANYSEL+4~, ANYSEL+6*, ANYSEL+7
>> XRTN FILE+17*
Y INITIAL+7, ADM+1*, ADM+3, ADM+4!, ADM+6*, ADM+7*, ADM+9, ADM+10, ADM+12!, ACT+1*
, ACT+3, ACT+4!, READ+8, ADJ+3, FILE+9
Z EXIT!, DISC+4*, DISC+9*, DISC+15*, DISC+17*, DISC+22*, DISC+24*
ZCFLOC CKCFLOC+4~, CKCFLOC+7*, CKCFLOC+8, CKCFLOC+9
ZDFN CKCFLOC+4~, CKCFLOC+6*, CKCFLOC+7

Marked Items

Name Field # of Occurrence
$T( FILE+17
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 |  Marked Items  | All