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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPR5NOR

Package: Prosthetics

Routine: RMPR5NOR


Information

RMPR5NOR ;HIN/RVD-PROS INVENTORY ORDER/RECEIVE UTILITY ;2/11/98

Source Information

Source file <RMPR5NOR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 7 (,DD)^%DT  ^DIC  MIX^DIC1  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Prosthetics 2 BAL^RMPR5NU1  DIV4^RMPRSIT  
Kernel 1 KILL^XUSCLEAN  

Entry Points

Name Comments DBIA/ICR reference
LOC ;ask for location
LIST ;list current HCPCS @ this Location
L ;list current ITEM for this HCPCS
ORDER ;order item from vendor or supply.
REC ;receive item from supply, Vendor or Returned Item.
REC1
LITEM ;list current HCPCS @ this Location
UPDLOC ;W ! S DIC("A")="Receiving LOCATION: ",DIC="^RMPR(661.3,",DLAYGO=661.3
UPDQ
UPDC ;ask for total Item cost
STAT
MESS
EXIT ;MAIN EXIT POINT

External References

Name Field # of Occurrence
^%DT RMPR5NOR+3, REC+3, REC+4
DD^%DT RMPR5NOR+3, REC+3, REC+4
^DIC LIST+6, L+6, LITEM+6, LITEM+16
MIX^DIC1 LOC+4, REC1+4
FILE^DICN ORDER+11, STAT+2
^DIE ORDER+6
IX1^DIK LOC+7, ORDER+12, REC1+7, STAT+4
^DIR ORDER+1, UPDC+1
BAL^RMPR5NU1 ORDER+9, STAT
DIV4^RMPRSIT RMPR5NOR+2, REC+2
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RMPR5NOR+5
Function Call: WRITE
  • Prompt: !!,"Ordering ITEM from Supply or Vendor....",!
  • Line Location: LOC+1
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"*** Item was not ordered...."
  • Line Location: ORDER+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter quantity 1 to 99999.."
  • Line Location: ORDER+3
Function Call: WRITE
  • Prompt: !,"*** Item ",RMITEM," was ordered...."
  • Line Location: ORDER+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !!,"*** Receiving Item from Supply, Vendor or Veteran...",!
  • Line Location: REC1+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: LITEM+7
Function Call: WRITE
  • Prompt: $C(7),!,"Enter quantity 1 to 999.."
  • Line Location: UPDQ+2
Function Call: WRITE
  • Prompt: $C(7),!,"Enter Cost 0 to 999999.."
  • Line Location: UPDC+3
Function Call: WRITE
  • Prompt: !,"****Current Balance @ Location ",$P(^RMPR(661.3,RMLODA,0),U,1)," is now: ",RMQUA
  • Line Location: STAT+5
Function Call: WRITE
  • Prompt: !,"Nothing Received....."
  • Line Location: MESS+0
Routine Call
  • DIC
  • Line Location:
    • LIST+6
    • L+6
    • LITEM+6
    • LITEM+16
Routine Call
  • DIE
  • Line Location:
    • ORDER+6
Routine Call
  • DIR
  • Line Location:
    • ORDER+1
    • UPDC+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(661.2 - [#661.2] Classic Fileman Calls
^RMPR(661.3 - [#661.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.1 - [#661.1] LIST+8, L+10, LITEM+8
^RMPR(661.2 - [#661.2] ORDER+12*, STAT+3*
^RMPR(661.3 - [#661.3] LOC+6, LOC+7, LIST+8, L+8, L+11, ORDER+7, REC1+6, REC1+7, LITEM+8, LITEM+19
UPDC+6*, UPDC+10*, UPDC+11, UPDC+14*, UPDC+15, STAT+5, STAT+6*

Label References

Name Line Occurrences
EXIT LOC+5, REC1+5
LIST L+6
LITEM LITEM+16
LOC LIST+7, ORDER+2, ORDER+14
MESS UPDQ+1, UPDC+2
ORDER ORDER+3
REC1 LITEM+7, STAT+7
UPDC UPDC+3
UPDQ UPDQ+2

Naked Globals

Name Field # of Occurrence
^(0 LOC+7*, REC1+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D LOC+2*, LOC+4*, REC1+2*, REC1+4*
DA LOC+5*, LOC+7, ORDER+6*, ORDER+12*, REC1+5*, REC1+7, UPDC+1!, STAT+4*
DA(1 L+2*, L+3, L+5, ORDER+5, LITEM+12*, LITEM+13, LITEM+15
DA(2 L+2*, L+3, L+5, ORDER+5, LITEM+12*, LITEM+13, LITEM+15
DD ORDER+10!, STAT+1!
>> DIC LOC+3*, LOC+5, LIST+6*, L+3*, L+5*, ORDER+10*, ORDER+12, REC1+3*, REC1+5, LITEM+6*
LITEM+13*, LITEM+15*, STAT+1*, STAT+4
>> DIC("A" LOC+4*, LIST+2*, L+4*, REC1+4*, LITEM+2*, LITEM+14*
DIC("B" RMPR5NOR+2!, LOC+1!, LIST+1!, REC+2!, REC1+1!, LITEM+1!, LITEM+11!
DIC("S" LOC+2*, LIST+1!, L+1!, REC1+2*, LITEM+1!, LITEM+11!
>> DIC("W" LIST+5*, LITEM+5*
>> DIC(0 LOC+3*, LIST+5*, L+5*, ORDER+10*, REC1+3*, LITEM+5*, LITEM+15*, STAT+1*
>> DIE ORDER+5*
>> DIK LOC+5*, ORDER+12*, REC1+5*, STAT+4*
DIR ORDER+1!, ORDER+4!, UPDC+1!, UPDC+4!
DIR("A" ORDER+1*, UPDC+1*
DIR(0 ORDER+1*, UPDC+1*
DLAYGO LOC+3*, ORDER+10*, ORDER+11!, STAT+1*, STAT+2!
DO ORDER+10!, STAT+1!
>> DR ORDER+6*
DT ORDER+10, ORDER+12, STAT+1, STAT+3
DTIME UPDQ
DTOUT LOC+1!, LOC+5, LIST+1!, LIST+7, L+1!, L+6, ORDER+2, REC1+1!, REC1+5, LITEM+1!
LITEM+7, LITEM+11!, LITEM+16, UPDQ+1, UPDC+2
DUOUT LOC+1!, LOC+5, LIST+1!, LIST+7, L+1!, L+6, ORDER+2, REC1+1!, REC1+5, LITEM+1!
LITEM+7, LITEM+11!, LITEM+16, UPDQ+1, UPDC+2
DUZ ORDER+12, STAT+3
>> DZ LOC+2*, REC1+2*
IOF RMPR5NOR+5, REC+1
>> RM3 ORDER+7*, ORDER+8, LITEM+19*, LITEM+20
>> RMAV L+7*
>> RMAVA L+7*, ORDER+12, UPDC+8*, UPDC+9*, UPDC+10, STAT+3
>> RMBAL L+7*
>> RMCO L+7*, LITEM+20*, UPDC+5
>> RMCOA UPDC+5*, UPDC+6, UPDC+8
>> RMCOM ORDER+11*, ORDER+12, STAT+2*, STAT+3
>> RMCOREC UPDC+4*, UPDC+5, UPDC+9
>> RMDAHC LIST+8*, L+10, ORDER+12, LITEM+8*, STAT+3
>> RMDAIT L+9*, L+10
>> RMDAT RMPR5NOR+3*, REC+3*
>> RMDAT1 REC+4*
>> RMDAT2 REC+4*
>> RMHCDA LIST+8*, L+2, L+8, L+11, ORDER+7, LITEM+8*, LITEM+12, LITEM+19, UPDC+6, UPDC+10
UPDC+11, UPDC+14, UPDC+15, STAT+6
>> RMHCFLG L+7*
>> RMHCPC LIST+8*, LITEM+8*
>> RMIT L+8*, L+9, ORDER+12, LITEM+19*, STAT+3
>> RMITDA L+6*, L+8, L+11, ORDER+6, ORDER+7, LITEM+17*, LITEM+19, UPDC+6, UPDC+10, UPDC+11
UPDC+14, UPDC+15, STAT+6
>> RMITEM L+10*, ORDER+13
>> RMITFLG L+7*
>> RMLOC LOC+6*, REC1+6*
>> RMLODA LOC+5*, LOC+6, LIST+6, LIST+8, L+2, L+8, L+11, ORDER+7, ORDER+12, REC1+5*
REC1+6, LITEM+6, LITEM+8, LITEM+12, LITEM+19, UPDC+6, UPDC+10, UPDC+11, UPDC+14, UPDC+15
STAT+3, STAT+5, STAT+6
>> RMORD L+11*, UPDC+11*, STAT+6
>> RMORDER ORDER+4*, ORDER+12
RMPR EXIT+1~
RMPR("STA" LOC+7, ORDER+12, REC1+7, STAT+3
RMPRSITE EXIT+1~
>> RMQTREC UPDQ*, UPDQ+1, UPDQ+2, UPDC+7, UPDC+9, STAT+3, STAT+6
>> RMQU LITEM+20*, UPDC+7
>> RMQUA UPDC+7*, UPDC+8, UPDC+9, UPDC+14, STAT+5
>> RMSO ORDER+8*, LITEM+20*, UPDC+15*
>> RMTOBA ORDER+12, STAT+3
>> RMTOCO ORDER+12, STAT+3
U LOC+6, LOC+7, LIST+8, L+8, L+10, L+11, ORDER+8, REC1+6, REC1+7, LITEM+8
LITEM+19, LITEM+20, UPDC+6, UPDC+10, UPDC+11, UPDC+14, UPDC+15, STAT+5, STAT+6
>> X RMPR5NOR+3*, ORDER+3, ORDER+10*, REC+3*, REC+4*, UPDC+3, STAT+1*
Y RMPR5NOR+2, RMPR5NOR+3, LOC+5, LIST+7, LIST+8, L+6, ORDER+1!, ORDER+4!, ORDER+12!, REC+2
REC+3, REC+4, REC1+5, LITEM+7, LITEM+8, LITEM+16, LITEM+17, UPDC+1!, UPDC+4!, STAT+3
STAT+4
Info |  Source |  Call 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