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

Package: Prosthetics

Routine: RMPRPIYJ


Information

RMPRPIYJ ;HINCIO/RVD-ISSUE FROM STOCK / CONT. ;9/18/02 07:39

Source Information

Source file <RMPRPIYJ.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Prosthetics 5 CHK^RMPRED5  $$ISS^RMPRPIU6  $$AMGR^RMPRPIX2  (,1,2,LOWBA,RES)^RMPRPIYI  ^RMPRPIYK  
VA FileMan 2 DD^%DT  ^DIR  
Kernel 1 KILL^XUSCLEAN  

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 RMPRPIYI  

Entry Points

Name Comments DBIA/ICR reference
QTY
DATE ;delivery date is set to today's date
SERV ;date of service
LI
LOT ;
REMA ;
LIST ;ENTRY POINT FOR STOCK ISSUE ROUTINES TO DISPLAY TRANSACTION DATA
DEA ;
POST ;
GGC ;
EXIT ;EXIT FOR STOCK ISSUES
INV1
SETARR(RMPR60) ;

External References

Name Field # of Occurrence
DD^%DT DATE+1, SERV+1, SERV+6
^DIR QTY+1, SERV+3, LI+1, LOT+3, REMA+3, LIST+9, DEA+4
CHK^RMPRED5 LIST+2
$$ISS^RMPRPIU6 GGC+2
$$AMGR^RMPRPIX2 POST+4
^RMPRPIYI QTY+2, QTY+3, SERV+3, LIST+11
1^RMPRPIYI LIST+10
2^RMPRPIYI QTY+4, GGC+3
LOWBA^RMPRPIYI QTY+4, GGC+3
RES^RMPRPIYI DEA+5, GGC+8
^RMPRPIYK LIST+3
KILL^XUSCLEAN EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Issue quantity exceeds on-hand (",RMITQTY,") for scanned item bar code!!",!
  • Line Location: QTY+5
Function Call: WRITE
  • Prompt: !,"This field is mandatory!!!",!
  • Line Location: SERV+5
Function Call: WRITE
  • Prompt: !,"Jumping not allowed"
  • Line Location: LI+3
Function Call: WRITE
  • Prompt: $C(7),!?5,"Deleted..."
  • Line Location: LI+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed"
  • Line Location: LOT+5
Function Call: WRITE
  • Prompt: $C(7),!?5,"Deleted..."
  • Line Location: LOT+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed"
  • Line Location: REMA+5
Function Call: WRITE
  • Prompt: $C(7),!?5,"Deleted..."
  • Line Location: REMA+6
Function Call: WRITE
  • Prompt: !!,$C(7),?50," Deleted..."
  • Line Location: DEA+5
Function Call: WRITE
  • Prompt: !,"*** ERROR in API RMPRPIU6, ERROR = ",RMPRERR," !!!"
  • Line Location: GGC+4
Function Call: WRITE
  • Prompt: !,"Posted to 2319..."
  • Line Location: GGC+7
Routine Call
  • DIR
  • Line Location:
    • QTY+1
    • SERV+3
    • LI+1
    • LOT+3
    • REMA+3
    • LIST+9
    • DEA+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J GGC+5*

Label References

Name Line Occurrences
DEA LIST+9
EXIT GGC+4
GGC POST+1
LI LI+3
LIST QTY+1, SERV+4, LI+2, LOT+4, REMA+4, REMA+6, DEA+6
LOT LI+4, LOT+5
POST LIST+9
QTY QTY+5, INV1+1
REMA LOT+6, REMA+5
SERV SERV+5
SETARR GGC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CK DEA+4, POST+5
>> CK1 LI+1, LOT+3, REMA+3
>> CK2 QTY+2, SERV+3
DIR QTY!, QTY+6!, SERV+3!, LOT+2!, REMA+2!, LIST+4!, LIST+9!, DEA+1!, DEA+5!
DIR("?" LIST+8*
DIR("A" SERV+1*, LIST+6*, DEA+2*
DIR("B" QTY*, SERV+1*, SERV+2*, LI*, LOT+2*, REMA+2*, LIST+7*, DEA+3*
DIR(0 QTY*, SERV+1*, LI*, LOT+2*, REMA+2*, LIST+5*, DEA+3*
>> DIRUT QTY+3, LIST+11, DEA+4
DT DATE+1, SERV+1
>> DTOUT QTY+2, SERV+3, LI+1, LOT+3, REMA+3, LIST+11, DEA+4
>> DUOUT QTY+1, SERV+4, LI+2, LOT+4, REMA+4, LIST+11, DEA+4
>> R1("AM" SETARR+19, SETARR+20
>> R1("D" SERV+2, SERV+6*
>> R1("DATE&TIME" SETARR+24
>> R1(0 QTYQTY+1, QTY+6*, DATE+1*, LILI+4*, LI+5*, LOT+2, LOT+6*, LOT+7*
REMA+2, REMA+6*, REMA+7*, INV1*, SETARR+2, SETARR+3, SETARR+4, SETARR+5, SETARR+6, SETARR+7
, SETARR+8, SETARR+9, SETARR+10, SETARR+12, SETARR+13, SETARR+14, SETARR+15, SETARR+17, SETARR+21
>> R1(1 SERV+6*, LIST+1, SETARR+11, SETARR+16, SETARR+18
>> R3("D" DATE+1*
>> REDIT SERV+2, SERV+4, LIST+10*
>> RMCPT LIST+2
>> RMDAHC LIST+1*
>> RMITQTY QTY+5
RMPR EXIT+1~
>> RMPR11I GGC+2
>> RMPR5 GGC+2
RMPR60 GGC+1, GGC+2, SETARR~, SETARR+1!
RMPR60("COST" SETARR+13*
RMPR60("CPT I EN" , SETARR+17*
RMPR60("CPT M OD" , SETARR+18*
RMPR60("DATE OF SERVICE" , SETARR+11*
RMPR60("DATE&TIME" SETARR+24*
RMPR60("DELIV DATE" , SETARR+10*
RMPR60("ENTRY DATE" , SETARR+2*
RMPR60("GROUPER" SETARR+23*
RMPR60("HCPCS" SETARR+16*
RMPR60("IEN" GGC+5
RMPR60("IFCAP ITEM" , SETARR+6*
RMPR60("ISSUE TYPE" , SETARR+4*
RMPR60("LOT N UM" , SETARR+15*
RMPR60("PAT C AT" , SETARR+19*
RMPR60("PATIE NT IEN" , SETARR+3*
RMPR60("QUANTITY" SETARR+5*
RMPR60("REMARKS" SETARR+14*
RMPR60("SERIA L NUM" , SETARR+9*
RMPR60("SITE IEN" , SETARR+22*
RMPR60("SOURCE" SETARR+12*
RMPR60("SPEC CAT" , SETARR+20*
RMPR60("UNIT" SETARR+7*
RMPR60("USER" SETARR+21*
RMPR60("VENDO R IEN" , SETARR+8*
>> RMPR699 POST+4
>> RMPR699("AMIS GROUPER" , POST+1, GGC+5, SETARR+23
>> RMPR699("IEN" POST+3*
>> RMPRAMIS POST+2*, POST+4*, POST+5
>> RMPRDFN GGC+5
>> RMPRERR GGC+2*, GGC+3, GGC+4
RMPRSITE POST+3, EXIT+1~, SETARR+22
>> RMPRUCST QTY+6, INV1
>> RMUBA QTY+4
RQUIT LIST+4!
U QTYQTY+1, QTY+6, DATE+1, SERV+2, SERV+6, LILI+4, LI+5, LOT+2
LOT+6, LOT+7, REMA+2, REMA+6, REMA+7, LIST+1, INV1, SETARR+2, SETARR+3, SETARR+4
, SETARR+5, SETARR+6, SETARR+7, SETARR+8, SETARR+9, SETARR+10, SETARR+11, SETARR+12, SETARR+13, SETARR+14
, SETARR+15, SETARR+16, SETARR+17, SETARR+18, SETARR+19, SETARR+20, SETARR+21
>> X SERV+5, LI+3, LI+4, LI+5, LOT+5, LOT+6, LOT+7, REMA+5, REMA+6, REMA+7
Y QTY!, QTY+4, QTY+5, QTY+6, DATE+1*, SERV+1*, SERV+6, LIST+9, LIST+10, DEA+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All