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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPOBIL4

Package: Prosthetics

Routine: RMPOBIL4


Information

RMPOBIL4 ;NG/DUG-HOME OXYGEN BILLING TRANSACTIONS ;7/22/98 11:08

Source Information

Source file <RMPOBIL4.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 C^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ACCEPT ;the vaiable RMPOTYPE is available. If '1',1358. If '2',purchase card.
PROS ;
POST ;locates item records for the "Post" option using CNT1(CNT1) array
POST1
POST2 ;requires variable RMPOCAP which verifies successful posting
EXPIRE ;this subroutine is used to calculate the Rx expiration date for
EXPAT(X,Y) ;Entry for RMPOPED

External References

Name Field # of Occurrence
C^%DTC EXPIRE+24
^DIR ACCEPT+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: RET
  • Timeout: DTIME
  • Line Location: ACCEPT+6
Function Call: WRITE
  • Prompt: !!,"All transactions have been accepted.",!,"Press <RETURN> to continue."
  • Line Location: ACCEPT+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Accept ? Y// "
  • Variable: ANS1
  • Timeout: DTIME
  • Line Location: ACCEPT+7
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to ACCEPT these transactions (",ANS,") ? No // "
  • Line Location: ACCEPT+8
Function Call: READ
  • Variable: ANS1
  • Timeout: DTIME
  • Line Location: ACCEPT+9
Function Call: WRITE
  • Prompt: !,"Type 'Y' to accept the billing transactions for ",!,"the patients you selected. Press return to leave."
  • Line Location: ACCEPT+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROS+8
Function Call: WRITE
  • Prompt: !,"No items listed for this patient. Record is incomplete."
  • Line Location: POST+2
Function Call: WRITE
  • Prompt: !!,"Warning, transactions cannot be editted once they are posted."
  • Line Location: POST1+1
Function Call: READ
  • Prompt: "Post ? No// "
  • Variable: ANS1
  • Timeout: DTIME
  • Line Location: POST1+2
Function Call: WRITE
  • Prompt: !!,"UNSUCCESSFUL POSTING!"
  • Line Location: POST2+3
Function Call: WRITE
  • Prompt: !!,"."
  • Line Location: POST2+6
Routine Call
  • DIR
  • Line Location:
    • ACCEPT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] POST+7
^RMPO(665.72 - [#665.72] PROS+1, PROS+2, PROS+3, POST+2, POST+3, POST+4, POST+5, POST+6, POST2+5*
^RMPR(661 - [#661] POST+7
^RMPR(665 - [#665] EXPIRE+10, EXPIRE+15, EXPIRE+20
^RMPR(669.9 - [#669.9] EXPIRE+22
^TMP($J PROS+5, PROS+7*, PROS+8*, POST2+4!

Label References

Name Line Occurrences
ACCEPT ACCEPT+10
EXPIRE EXPAT+1
PROS ACCEPT+5, ACCEPT+7

Naked Globals

Name Field # of Occurrence
^(0 PROS+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANS ACCEPT+8
>> ANS( PROS+1
>> ANS1 ACCEPT+7*, ACCEPT+9*, ACCEPT+10, POST1POST1+2*
>> CNT PROS+1
>> CNT( PROS+1, PROS+2
>> CNT1 POST+5*, POST+6, POST+7*
>> CNT1( POST+6*, POST+7*
DA EXPIRE+10, EXPAT+1~*
DA(1 EXPIRE+10, EXPIRE+15, EXPIRE+20, EXPAT+1*
DIR ACCEPT+5!
DIR("?" ACCEPT+5*
DIR("A" ACCEPT+5*
DIR(0 ACCEPT+5*
>> DIRUT ACCEPT+5
DTIME ACCEPT+6, ACCEPT+7, ACCEPT+9, POST1+2
>> M PROS+1*, PROS+2
>> RET ACCEPT+6*
>> RMPOA ACCEPT+7
>> RMPOACPN ACCEPT+6
RMPOCAP POST+1!, POST2+3
RMPODATA EXPIRE+9~, EXPIRE+10*, EXPIRE+11, EXPIRE+15, EXPIRE+24
>> RMPODATE POST+2
RMPODAXD EXPIRE+9~, EXPIRE+14*, EXPIRE+15*, EXPIRE+22
>> RMPOIT POST+7*
>> RMPOITEM POST+6*, POST+7
>> RMPOPATN PROS+6, POST+1*, POST+2, POST+6, POST2+4, POST2+5
RMPOPO POST2+3!, POST2+7!
>> RMPOREC PROS+1, PROS+2, PROS+3, POST+2, POST+3, POST+4, POST+5, POST+6, POST2+5
>> RMPOREC1 PROS+1, PROS+2, PROS+3, POST+2*, POST+3, POST+4, POST+5, POST+6, POST2+5
>> RMPOREC2 PROS+2*, PROS+3, POST+2*, POST+3, POST+4, POST+5, POST+6, POST2+5*
>> RMPOREC3 POST+5*, POST+6
RMPOSITE EXPIRE+19~, EXPIRE+20*, EXPIRE+21, EXPIRE+22
RMPOUA ACCEPT+5*!, PROS+3, PROS+7, PROS+8
>> RMPOVEN POST+4*, POST+5, POST+6
>> RMPOX PROS+4*, PROS+5*, PROS+6, PROS+7, PROS+8, POST2+4*
U PROS+3, PROS+6, PROS+7, PROS+8, POST+3, POST+5, POST+6, POST+7, POST2+4, POST2+5
EXPIRE+20, EXPIRE+22, EXPIRE+24
X EXPIRE+11*, EXPIRE+14*, EXPIRE+15*, EXPIRE+23*, EXPAT~, EXPAT+1, EXPAT+2
X1 EXPIRE+19~, EXPIRE+24*
X2 EXPIRE+19~, EXPIRE+22*, EXPIRE+23
Y EXPIRE+19~, EXPAT~, EXPAT+1
Y(0 ACCEPT+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All