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

Package: Prosthetics

Routine: RMPOBIL7


Information

RMPOBIL7 ;HINES CIO/RVD - HOME OXYGEN BILLING TRANSACTIONS ;9/16/02 11:11

Source Information

Source file <RMPOBIL7.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Prosthetics 2 (ASK1,ASK2)^RMPOPAT  ^RMPOPAT3  
VA FileMan 1 EN^DIQ1  

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
Prosthetics 1 RMPOBIL6  

Entry Points

Name Comments DBIA/ICR reference
DIS ;DISPLAY APPLIANCES OR REPAIRS
END
EXIT
XIT()
PRT
OVER
HDR ;Print Header, Screen 4

External References

Name Field # of Occurrence
EN^DIQ1 PRT+27
ASK1^RMPOPAT EXIT+2, OVER+2, OVER+3
ASK2^RMPOPAT EXIT+3
^RMPOPAT3 OVER+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No home oxygen items for this veteran!",!!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"End of Home Oxygen records for this veteran!"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !,RK,". ",DATE,?13,QTY,?17
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: $E($P(^("HST"),U,1),1,10)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: ?30,TRANS,?31,TRANS1
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: ?33,RMPRLPRO
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: ?33,$E(VEN,1,10)
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: ?50,$E(SN,1,9),?60,DEL
  • Line Location: PRT+29
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: OVER+1
Function Call: WRITE
  • Prompt: $C(7),!," Must be between 1 and ",RK," to be valid"
  • Line Location: OVER+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$E(RMPRNAM,1,20),?23,"SSN: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $E(RMPRSSN,1,3)_"-"_$E(RMPRSSN,4,5)_"-"_$E(RMPRSSN,6,10)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?42,"DOB: "
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?61,"CLAIM# ",$G(RMPRCNUM)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?4,"Date",?12,"Qty",?19,"Item",?28,"Type",?34,"Vendor",?45,"Sta",?50,"Serial",?58,"Delivery Date",?72,"Tot Cost"
  • Line Location: HDR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+6
^PRC(440 - [#440] PRT+10
^RMPO(665.72 - [#665.72] RMPOBIL7+17
^RMPR(660 - [#660] RMPOBIL7+14, RMPOBIL7+16, DIS+3, PRT+4, PRT+9, PRT+19, PRT+25
^RMPR(660.1 - [#660.1] PRT+11
^RMPR(661.1 - [#661.1] PRT+17
^UTILITY("DIQ1" RMPOBIL7+12!, EXIT+4!

Label References

Name Line Occurrences
$$XIT DIS+2
DIS DIS+2, END+2
END RMPOBIL7+18
EXIT DIS+2, END, END+1
HDR RMPOBIL7+13, OVER+4
OVER DIS+3, END+3, OVER+6
PRT DIS+3

Naked Globals

Name Field # of Occurrence
^("HST" PRT+19, PRT+25
^(0 PRT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMIS EXIT+5!, PRT+10*, PRT+11*, PRT+17
AN RMPOBIL7+13*, RMPOBIL7+15*, RMPOBIL7+16*, RMPOBIL7+17, DIS+2*, DIS+3, EXIT+5!, PRT+4, PRT+9, PRT+11
, OVER+7*
ANS RMPOBIL7+13*, XIT, OVER~, OVER+1*, OVER+2*, OVER+3, OVER+4, OVER+5, OVER+6, OVER+7
, OVER+8
CST EXIT+5!, PRT+4*, PRT+30
DA RMPOBIL7+11~, PRT+27*
DATE EXIT+5!, PRT+1*, PRT+7*, PRT+15
DEL EXIT+5!, PRT+3*, PRT+14*, PRT+29
DIC RMPOBIL7+11~, PRT+27*
DIQ RMPOBIL7+11~, EXIT+4!, PRT+27*
DIQ(0 PRT+27*
DR RMPOBIL7+11~, PRT+27*
DTIME OVER+1
DTOUT EXIT+2, EXIT+5!, XIT
DUOUT EXIT+2, EXIT+5!, XIT
FL EXIT+3*, EXIT+5!
FRM EXIT+5!, PRT+6*
I EXIT+1!
IOF HDR+1
IOSL DIS+3
IT RMPOBIL7+18, EXIT+1!
IT( RMPOBIL7+17*, DIS+2, PRT+19, PRT+25, PRT+32*, OVER+8
J EXIT+1!
L EXIT+1!
PAGE EXIT+5!, HDR+2*
QTY EXIT+5!, PRT+1*, PRT+15
R0 EXIT+1!
RA RMPOBIL7+13*, RMPOBIL7+14*, RMPOBIL7+16, EXIT+1!
RC RMPOBIL7+13*, RMPOBIL7+17*, DIS+1*, DIS+2, END, END+2, END+4, EXIT+5!, OVER+4
REM EXIT+5!, PRT+6*, PRT+31
RK RMPOBIL7+13*, DIS+1*, DIS+2*, END+2, EXIT+5!, PRT+15, PRT+19, PRT+25, PRT+32, OVER+1
, OVER+4, OVER+6, OVER+7!, OVER+8*
>> RMOXY OVER+7
RMPRCNUM EXIT+4!, HDR+7
>> RMPRDFN RMPOBIL7+14, RMPOBIL7+16, EXIT
>> RMPRDOB HDR+6
RMPRLPRO PRT+22, PRT+23!
>> RMPRNAM HDR+3
>> RMPRSSN HDR+4
RMPRSTN EXIT+4!
RMPRSTN(4 PRT+28
>> RMY PRT*, PRT+30
RZ RMPOBIL7+13*, EXIT+5!, PRT+32, OVER+1*, OVER+7*
SN EXIT+5!, PRT+2*, PRT+29
STA EXIT+5!, PRT+2*, PRT+26, PRT+27, PRT+28
TRANS EXIT+4!, PRT+2*, PRT+12*, PRT+13*, PRT+20
TRANS1 EXIT+4!, PRT+12*, PRT+13*, PRT+20
TYPE EXIT+4!, PRT+1*, PRT+9*, PRT+17, PRT+19
U XIT, PRT+1, PRT+2, PRT+3, PRT+4, PRT+6, PRT+9, PRT+10, PRT+11, PRT+17
, PRT+19, PRT+25, PRT+30, PRT+32, OVER+8
VEN EXIT+4!, PRT+2*, PRT+10*, PRT+24
Y DIS+3*, PRT, PRT+1, PRT+2, PRT+3, PRT+4, PRT+6, PRT+10, PRT+17, HDR+6*!
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