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 |  Local Variables  | All
Print Page as PDF
Routine: RMPR37

Package: Prosthetics

Routine: RMPR37


Information

RMPR37 ;PHX/HNC,JLT-POST AN ECMS 2237 TO 10-2319 ;8/29/1994

Source Information

Source file <RMPR37.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 6 COMMA^%DTC  %XY^%RCR  (FILE,YN)^DICN  IX1^DIK  Y^DIQ  ^DIR  
Prosthetics 5 A^RMPR37A  CPT^RMPRCPTU  LINK^RMPRS  DIV4^RMPRSIT  GETPAT^RMPRUTIL  
IFCAP 1 ^PRCSDIC  
Kernel 1 HOME^%ZIS  

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 RMPR ECMS 2237  

Entry Points

Name Comments DBIA/ICR reference
OBL ;get obligation number
DSP ;display obligation line items
DSP0 ;DISPLAY BUT WITHOUT CLEARING THE SCREEN.
ASK ;ask item to post
PAT ;get patient
AB
POST
H
KILL
EXIT

External References

Name Field # of Occurrence
COMMA^%DTC ASK+1, ASK+3
%XY^%RCR OBL+8
HOME^%ZIS DSP+1
FILE^DICN POST+3
YN^DICN AB
IX1^DIK POST+18
Y^DIQ PAT+6
^DIR ASK+11, PAT+2, PAT+3, PAT+4, PAT+7, PAT+8, PAT+9, PAT+14, PAT+15
^PRCSDIC OBL+5
A^RMPR37A DSP0+1
CPT^RMPRCPTU PAT+11
LINK^RMPRS POST+22
DIV4^RMPRSIT RMPR37+9
GETPAT^RMPRUTIL PAT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"OBILIGATION TRANSACTION CANCELED",!
  • Line Location: OBL+6
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"**WARNING -- THIS 2237 DOES NOT HAVE AN IFCAP PURCHASE ORDER **",!
  • Line Location: OBL+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: !,"All lines of this 2237 have been posted.",!
  • Line Location: DSP0+2
Function Call: WRITE
  • Prompt: !?34,"TOTAL EST. COST: ",X
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !?34,"OBLIGATED AMOUNT: ",X
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"REMARKS:",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,R410("RM",D1,0)
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"VENDOR: ",$P(R410(2),U,1)
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"Please Try Later!"
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !!,"** LINE ITEM UNIQUE ID "_RMPREIID_" has already been posted! **",!!
  • Line Location: ASK+17
Function Call: WRITE
  • Prompt: !," Posting Now ..."
  • Line Location: POST+0
Function Call: WRITE
  • Prompt: !!,"*** Request failed to post. Please contact support. ***"
  • Line Location: POST+4
Function Call: WRITE
  • Prompt: !?5,"Updated 10-2319 Record"
  • Line Location: POST+19
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES if you want to post this request to the Patient's 10-2319 Record."
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,$C(7),"** Did Not POST 2237 to Veterans 2319 Record! **"
  • Line Location: KILL+0
Routine Call
  • DIR
  • Line Location:
    • ASK+11
    • PAT+2
    • PAT+3
    • PAT+4
    • PAT+7
    • PAT+8
    • PAT+9
    • PAT+14
    • PAT+15
Routine Call
  • %ZIS
  • Line Location:
    • DSP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^RMPR(660 - [#660] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(660 PAT+6
^RMPR(660 - [#660] ASK+17, POST+5*, POST+6*, POST+7*, POST+9*, POST+10*, POST+13*, POST+15*, POST+16*, POST+17*
^RMPR(661 - [#661] PAT+5
^RMPR(669.9 - [#669.9] POST+11, POST+12*
^TMP($J RMPR37+8!, POST+21*, EXIT+2!

Label References

Name Line Occurrences
AB H
DSP POST+23
DSP0 ASK+17, KILL
EXIT RMPR37+9, OBL+5, POST+4
H AB+1
KILL PAT+1, PAT+2, PAT+3, PAT+4, PAT+7, PAT+8, PAT+9, PAT+14, PAT+15, AB+1
OBL OBL+6, DSP0+2, ASK+13
POST AB+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AB*, AB+1
%X OBL+8*!
%Y OBL+8*!
AZL EXIT!
C PAT+6*!
C1 EXIT+3!
CI EXIT!
CTT DSP0+1*, ASK+1, EXIT!
D1 ASK+4*, ASK+5*, POST+14*, POST+15*, EXIT!
DA ASK+14!, PAT+2!, PAT+3!, PAT+4!, PAT+7!, PAT+8!, PAT+9!, POST+17*, EXIT!
DD POST+3!
DIC OBL+2*, OBL+8!, POST+1*, POST+17, EXIT!
DIC("A" OBL+3*
DIC("DR" POST+2*
DIC("S" OBL+1*
DIC(0 OBL+2*, POST+1*
DIK POST+17*, EXIT!
DINUM POST+3!
DIR ASK+7!, PAT+2!, PAT+3!, PAT+4!, PAT+7!, PAT+8!, PAT+9!, PAT+14!, PAT+15!, EXIT!
DIR("?" ASK+8*
DIR("A" ASK+10*, PAT+7*, PAT+8*
DIR("B" PAT+2*, PAT+7*
DIR(0 ASK+9*, PAT+2*, PAT+3*, PAT+4*, PAT+7*, PAT+8*, PAT+9*, PAT+14*, PAT+15*
DIRUT ASK+12, ASK+13, PAT+2, PAT+3, PAT+4, PAT+7, PAT+8, PAT+9, EXIT!
DLAYGO POST+1*, POST+3!
DO POST+3!
DT POST+1, POST+5, POST+11
DTOUT ASK+12, ASK+13, PAT+14, PAT+15, EXIT!
DUOUT PAT+14, PAT+15, EXIT!
DUZ POST+7
FL DSP+1!
GI EXIT+3!
I POST+15*, POST+16, POST+17, EXIT!
IOF DSP+1
ITN DSP0+1*, EXIT!
KI EXIT+3!
KK EXIT+3!
LCT DSP0+1*, DSP0+2, ASK+9, EXIT+1!
N EXIT+3!
PCT DSP0+1*, DSP0+2, EXIT+1!
PRC EXIT!
PRCFLAG EXIT+3!
PRCSIP EXIT+3!
R410 OBL+4!, EXIT!
R410("IT" DSP0+1, ASK+15, PAT+5, PAT+13, POST+5, POST+14
R410("RM" ASK+5
R410(0 POST+6
R410(1 OBL+10, POST+5
R410(2 ASK+6, PAT+12
R410(3 POST+5
R410(4 OBL+11, ASK+3
RAT EXIT+3!
RB EXIT+3!
RC EXIT!
RD DSP+1!, EXIT!
RDA PAT+10*, PAT+11, EXIT+3!
RE EXIT!
RF EXIT!
RG EXIT!
RI EXIT+3!
RIB DSP+1!, EXIT!
RIN EXIT!
RIT DSP+1!, EXIT!
RJ EXIT+3!
RMCHK EXIT+1!
RMCPT POST+6, EXIT+3!
>> RMPR("STA" POST+5
RMPR2237 OBL+7*, ASK+16, EXIT+1!
RMPR660 POST+17*, POST+21, EXIT+1!
RMPR661 PAT+5*, PAT+6, PAT+7*, PAT+8*, POST+5, EXIT+1!
>> RMPR661T PAT+6*, PAT+7
RMPRA POST+5*, EXIT!
RMPRCAT PAT+3*, PAT+4, POST+10, KILL!, EXIT!
RMPRCNT EXIT!
RMPRCNUM EXIT+3!
RMPRDFN PAT+1, POST+5, POST+21, EXIT!
RMPRDOB EXIT+3!
RMPREAID OBL+10*, POST+9, POST+16, EXIT+1!
RMPREIID ASK+14*, ASK+15*, ASK+16*, ASK+17, POST+9, POST+16, KILL!
RMPRG POST+11!*, POST+12*, POST+13, POST+21, EXIT+3!
RMPRHC PAT+9*, PAT+10, POST+6, KILL!, EXIT+3!
RMPRIT ASK+14*, ASK+15, ASK+16, PAT+5, PAT+13, POST+5, POST+14, KILL!, EXIT!
>> RMPRLT PAT+15*, POST+5
RMPRNAM EXIT+3!
RMPRPO OBL+11*, OBL+12, EXIT+1!
RMPRQTY PAT+13*, POST+5, KILL!, EXIT!
RMPRSC PAT+3*, PAT+4*, POST+10, KILL!, EXIT!
RMPRSEL EXIT!
>> RMPRSITE POST+11, POST+12
RMPRSN PAT+14*, POST+5, KILL!, EXIT!
RMPRSSN EXIT+3!
RMPRSSNE EXIT+3!
RMPRTYP PAT+2*, POST+5, KILL!, EXIT!
RMPRV PAT+12*, KILL!, EXIT!
RMPRY ASK+12*, EXIT+3!
RMTYPE PAT+2*, PAT+10, KILL!, EXIT+3!
RNI EXIT!
RRX EXIT+3!
RT EXIT!
RTN EXIT!
RXX EXIT+3!
RZ ASK+12*, EXIT!
RZI EXIT+3!
RZI( POST+14*, POST+15
RZZZ EXIT!
TYPE EXIT+3!
U OBL+6, OBL+10, OBL+11, ASK+3, ASK+6, ASK+15, PAT+5, PAT+6, PAT+12, PAT+13
, POST+5, POST+6, POST+7, POST+10, POST+12, POST+17
UN EXIT!
X RMPR37+9, ASK+1*, ASK+2, ASK+3*, ASK+4, ASK+12, ASK+14!, PAT+2!, PAT+3!, PAT+4!
, PAT+7!, PAT+8!, PAT+9!, PAT+14!, PAT+15!, POST+1*, EXIT!
X2 EXIT!
Y OBL+5, OBL+7, OBL+8, ASK+13, ASK+14!, PAT+2!, PAT+3!, PAT+4!, PAT+6*!, PAT+7!
, PAT+8!, PAT+9!, PAT+14!, PAT+15!, POST+4, POST+5, POST+6, POST+7, POST+9, POST+10
, POST+13, POST+15, POST+16, POST+17, EXIT!
Y(0 OBL+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 |  Local Variables  | All