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

Package: Prosthetics

Routine: RMPRPIYS


Information

RMPRPIYS ;HINCIO/ODJ - RC - PIP Receive Stock ;10/8/02 13:11

Source Information

Source file <RMPRPIYS.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Prosthetics 11 CPT^RMPRCPTU  CHK^RMPRED5  ZPLII^RMPRPI11  $$SCAN^RMPRPIUA  ($$ETOI,$$GET,$$HPACT,$$HPETOI)^RMPRPIX1  ($$GET,$$VNDIEN)^RMPRPIX6  ($$BAL,$$ETOI)^RMPRPIX7  $$STN^RMPRPIY1  
HCPCS^RMPRPIY7  ITEM^RMPRPIYP  PVEN^RMPRPIYR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Prosthetics 5 RMPR INV REPRINT BARCODE  RMPRPIYE  RMPRPIYG  RMPRPIYI  RMPRPIYY  

Entry Points

Name Comments DBIA/ICR reference
PB
STN
HCPCS
HCPCS2
HCPCS3
HCPCS3A
HCPCS4
CURST
NLAB
SELP
PBX
PRINT
SELD
PNOW ;jump here if not queued.
PRINTC
PRINTX
NLABP(RMPRNLAB,RMPRMAX,RMPREXC) ;
NLABPX
NLABPH2
BARC(RMPRBARC,RMPREXC) ;
BARC1
BARCX
BARCH
SCAN
SCAN1
SCANX
SCANE
CPT(RDA) ;
CPTX
UPCASE(RMPRSTR) ;

External References

Name Field # of Occurrence
^%ZIS SELD+1
^%ZISC PRINTC
^%ZTLOAD SELD+8
^DIR NLABP+8, BARC1, CPT+12
CPT^RMPRCPTU CPT+6, CPT+14
CHK^RMPRED5 CPT+4
ZPLII^RMPRPI11 PNOW+1
$$SCAN^RMPRPIUA SCAN1+18
$$ETOI^RMPRPIX1 SCAN1+41
$$GET^RMPRPIX1 SCAN1+39
$$HPACT^RMPRPIX1 SCAN1+29
$$HPETOI^RMPRPIX1 SCAN1+31
$$GET^RMPRPIX6 SCAN1+57
$$VNDIEN^RMPRPIX6 SCAN1+59
$$BAL^RMPRPIX7 SCAN1+85
$$ETOI^RMPRPIX7 CURST+9, SCAN1+21
$$STN^RMPRPIY1 STN+1
HCPCS^RMPRPIY7 HCPCS2
ITEM^RMPRPIYP HCPCS3
PVEN^RMPRPIYR CURST+1
KILL^XUSCLEAN PBX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STN+1
Function Call: WRITE
  • Prompt: !!,"Print Bar code Labels for current inventory...",!
  • Line Location: HCPCS+0
Function Call: WRITE
  • Prompt: !,"** No HCPCS selected..."
  • Line Location: HCPCS2+4
Function Call: WRITE
  • Prompt: !!,"HCPCS: "_RMPR1("HCPCS")_" "_RMPR1("SHORT DESC")
  • Line Location: HCPCS4+0
Function Call: WRITE
  • Prompt: !!,"IFCAP Item: ",RMPR11("ITEM MASTER")
  • Line Location: HCPCS4+1
Function Call: WRITE
  • Prompt: !!,"PIP Item desc.: ",RMPR11("DESCRIPTION")
  • Line Location: HCPCS4+2
Function Call: WRITE
  • Prompt: !,"This item is not currently in stock.",!!
  • Line Location: CURST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NLAB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELD+1
Function Call: WRITE
  • Prompt: !!,"** WARNING - This is NOT a Zebra Bar Code Printer!!",!!
  • Line Location: SELD+3
Function Call: WRITE
  • Prompt: "Type in the number of bar code labels you want to print for the",!
  • Line Location: NLABPH2+0
Function Call: WRITE
  • Prompt: "inventory item you have selected.",!
  • Line Location: NLABPH2+1
Function Call: WRITE
  • Prompt: "If you have access to a bar code scanner, use it to scan the item bar code now.",!
  • Line Location: BARCH+0
Function Call: WRITE
  • Prompt: "Don't press the [Enter] key as the scanner should do this automatically.",!
  • Line Location: BARCH+1
Function Call: WRITE
  • Prompt: "If the scanner cannot read the bar code, type in the character sequence",!
  • Line Location: BARCH+2
Function Call: WRITE
  • Prompt: "immediately below the bar code.",!
  • Line Location: BARCH+3
Function Call: WRITE
  • Prompt: !,"** No HCPCS Selected due to null HCPCS entered..."
  • Line Location: SCAN1+4
Function Call: WRITE
  • Prompt: !,"** No HCPCS Selected or Unable to Select Inactive HCPCS..."
  • Line Location: SCAN1+14
Function Call: WRITE
  • Prompt: !,"*** The Item scanned is not available, please update your inventory !!!"
  • Line Location: SCAN1+19
Function Call: WRITE
  • Prompt: !,"This item is not associated with an IFCAP Item.",!
  • Line Location: SCAN1+44
Function Call: WRITE
  • Prompt: "Please use the Edit Inventory option before trying to issue this item."
  • Line Location: SCAN1+45
Function Call: WRITE
  • Prompt: !
  • Line Location: SCAN1+46
Function Call: WRITE
  • Prompt: !,"A problem has occurred with the scan, please try again.",!
  • Line Location: SCANE+0
Routine Call
  • %ZIS
  • Line Location:
    • SELD+1
Routine Call
  • DIR
  • Line Location:
    • NLABP+8
    • BARC1
    • CPT+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.1 - [#661.1] SCAN1+12, SCAN1+13, SCAN1+66

Label References

Name Line Occurrences
$$UPCASE SCAN1+5
BARC SCAN1
BARC1 BARC1+5
BARCX BARC1+1, BARC1+2, BARC1+3, BARC1+4
CPT SCAN1+49
CPTX CPT+7, CPT+8
HCPCS HCPCS3+2, CURST+4, NLAB+3, NLAB+4, SELP, SELP+1
HCPCS2 CURST+5
HCPCS3 CURST+3
HCPCS3A HCPCS2+6
NLABP NLAB+1
NLABPX NLABP+9, NLABP+10, NLABP+11
PBX STN+2, STN+3, HCPCS2+1, HCPCS2+3, HCPCS3+1, CURST+2, NLAB+2
PNOW SELD+4
PRINT SELP
PRINTC SELD+8
PRINTX SELD+1
SCAN SCAN1+4, SCAN1+14
SCAN1 SCAN1+19, SCAN1+20, SCAN1+22, SCAN1+30, SCAN1+32, SCAN1+40, SCAN1+42, SCAN1+43, SCAN1+51, SCAN1+58
, SCAN1+60
SCANE SCAN1+20, SCAN1+22, SCAN1+30, SCAN1+32, SCAN1+40, SCAN1+42, SCAN1+58, SCAN1+60
SCANX SCAN1+1, SCAN1+2, SCAN1+50
STN HCPCS2+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS SELD+1*
>> %ZIS("A" SELD*
DA NLABP+1~, BARC+1~, CPT+1~
DIC CPT+1~
DIR NLABP+1~, BARC+1~, CPT+1~
DIR("?" BARC+7*
DIR("??" NLABP+7*
DIR("A" NLABP+5*, BARC+6*, CPT+12*
DIR("B" NLABP+6*, CPT+12*
DIR(0 NLABP+4*, BARC+5*, CPT+12*
DIROUT NLABP+1~, NLABP+10, BARC+1~, BARC1+2
DIRUT NLABP+1~, BARC+1~
DTOUT NLABP+1~, NLABP+9, BARC+1~, BARC1+1, CPT+1~, CPT+8, CPT+12, CPT+16
DUOUT NLABP+1~, NLABP+11, BARC+1~, BARC1+3, CPT+1~, CPT+7, CPT+12, CPT+15
IO SELD+4
IO("Q" SELD+4, SELD+5!
IOF STN+1
ION SELD+6
IONOFF PNOW+2*, PRINTC!
IOP SELD+1!
IOST SELD+2
>> POP SELD+1
>> R1("DATE&TIME" SCAN1+23*
>> R1(0 SCAN1+24*, SCAN1+49, SCAN1+61*, SCAN1+68*, SCAN1+69*, SCAN1+77*, SCAN1+79*, SCAN1+90*, SCAN1+92*, SCAN1+93*
, SCAN1+94*, SCAN1+95*
>> R1(1 SCAN1+67*, CPT+5, CPT+9*, CPT+17, CPT+18, CPT+19*
>> R1(2 SCAN1+80*, SCAN1+81*
>> R3("D" SCAN1+62*, SCAN1+75*, SCAN1+78*, SCAN1+91*
RDA CPT~, CPT+6, CPT+14
>> RDESC SCAN1+74*
>> REDIT BARC1+4, CPT+5, CPT+10, CPT+11
>> RMCPT CPT+4, CPT+9, CPT+10, CPT+17, CPT+18, CPT+19
>> RMCPTC SCAN1+65*, SCAN1+66*, SCAN1+68
RMDAHC SCAN!, SCAN1+12*, SCAN1+13*, SCAN1+14, SCAN1+49, SCAN1+66, SCAN1+67, SCAN1+70, CPT+6, CPT+11
>> RMHCDA SCAN1+70*
>> RMHCNEW SCAN1+70*
>> RMHCOLD CPT+6, CPT+11
>> RMHCPC SCAN1+72*
>> RMIT SCAN1+73*, SCAN1+80, SCAN1+82
>> RMITDA SCAN1+71*
RMITQTY SCAN!, SCAN1+86*
>> RMLOC SCAN1+82*, SCAN1+83, SCAN1+88
>> RMPR("STA" SCAN1+10, SCAN1+36
RMPR1 PB~, STN+4!, HCPCS2, SCAN!, SCAN1+27!, SCAN1+29, SCAN1+31, CPT+2~
RMPR1("HCPCS" HCPCS2, HCPCS3, HCPCS4, SCAN1+28*
RMPR1("SHORT DESC" , HCPCS4, SCAN1+74
RMPR11 PB~, STN+4!, HCPCS2, HCPCS3, SCAN!, SCAN1+35!, SCAN1+39, SCAN1+41, SCAN1+85, CPT+2~
RMPR11("DESCRIPTION" HCPCS4+2, CURST+14, SCAN1+81
RMPR11("HCPCS" CURST+1, CURST+10, SCAN1+37*, SCAN1+72
RMPR11("HCPCS-ITEM" CURST+12, SCAN1+73
RMPR11("IEN" HCPCS2+6, SCAN1+71
RMPR11("ITEM MASTER" , HCPCS4+1, CURST+13, SCAN1+78
RMPR11("ITEM" CURST+1, SCAN1+38*, SCAN1+82*
RMPR11("LOCATION" SCAN1+83*, SCAN1+84
RMPR11("SOURCE" SCAN1+75
RMPR11("STATI ON IEN" , HCPCS3A+1*
RMPR11("STATION" HCPCS3A*, SCAN1+36*, SCAN1+83*
RMPR11I SCAN!, SCAN1+35!, SCAN1+41, CPT+2~
RMPR11I("ITEM MASTER IEN" , SCAN1+43, SCAN1+69, SCAN1+79
RMPR11I("SOURCE" SCAN1+49, SCAN1+76
RMPR1I SCAN!, SCAN1+27!, SCAN1+31
RMPR5 SCAN1+87!
RMPR5("IEN" SCAN1+88*
RMPR6 PB+1~, CURST+1, SCAN!, SCAN1+57, SCAN1+59
RMPR6("DATE&TIME" SCAN1+54*
RMPR6("HCPCS" SCAN1+55*
RMPR6("SEQUENCE" SCAN1+56*
RMPR6("VENDOR IEN" , SCAN1+61
RMPR6("VENDOR" CURST+16, SCAN1+62
RMPR7 PB+1~, CURST+1, CURST+9, SCAN!, SCAN1+9!, SCAN1+18, SCAN1+21, CPT+2~
RMPR7("DATE&TIME" SCAN1+15*
RMPR7("HCPCS" SCAN1+11*, SCAN1+12, SCAN1+28, SCAN1+37, SCAN1+55
RMPR7("IEN" SCAN1+19
RMPR7("ITEM" SCAN1+38
RMPR7("LOCATION" CURST+17
RMPR7("QUANTITY" CURST+5, CURST+15, NLAB, NLAB+1, SCAN1+84, SCAN1+86, SCAN1+89
RMPR7("SEQUENCE" SCAN1+56
RMPR7("STATION" SCAN1+10*
RMPR7("VALUE" CURST+15, SCAN1+89
RMPR7I PB+1~, CURST+8!, CURST+9, SCAN!, SCAN1+21, CPT+2~
RMPR7I("DATE&TIME" CURST+10, CURST+11, SCAN1+23, SCAN1+54
RMPR7I("LOCATION" SCAN1+82
RMPR7I("UNIT" SCAN1+24
RMPRBARC PB+1~, CURST+10*, PNOW+1, BARC~, BARC+2*, BARC1+6*, SCAN1, SCAN1+1*, SCAN1+2, SCAN1+4
, SCAN1+5*, SCAN1+11, SCAN1+15
RMPRBCP PB+1~
RMPRERR PB~, STN+1*, STN+2, CURST+9*, NLABP+1~, NLABP+3*, BARC+1~, BARC+4*, SCAN1+18*, SCAN1+20
, SCAN1+21*, SCAN1+22, SCAN1+29*, SCAN1+30, SCAN1+31*, SCAN1+32, SCAN1+39*, SCAN1+40, SCAN1+41*, SCAN1+42
, SCAN1+57*, SCAN1+58, SCAN1+59*, SCAN1+60
RMPREXC PB~, STN+1, STN+3, HCPCS2, HCPCS2+1, HCPCS2+2, HCPCS2+3, HCPCS3, HCPCS3+1, HCPCS3+2
, CURST+1, CURST+2, CURST+3, CURST+4, NLAB+1, NLAB+2, NLAB+3, NLAB+4, NLABP~, NLABP+9*
, NLABP+10*, NLABP+11*, NLABP+12*, BARC~, BARC+3*, BARC1+1*, BARC1+2*, BARC1+3*, SCAN1, SCAN1+1
, SCAN1+18, SCAN1+50, SCAN1+51, CPT+3*, CPT+7*, CPT+8*, CPT+15*, CPT+16*
RMPRIOP PB+1~
RMPRITXT PB+1~, PNOW+1
RMPRITXT("DATE" CURST+11*
RMPRITXT("ITE M DESC" , CURST+14*
RMPRITXT("ITEM" CURST+12*
RMPRITXT("LOCATION" CURST+17*
RMPRITXT("MAS TER DESC" , CURST+13*
RMPRITXT("UNI T PRICE" , CURST+15*
RMPRITXT("VENDOR" CURST+16*
RMPRLCN PB~, CURST*, CURST+1
RMPRMAX NLABP~, NLABP+4
RMPRNLAB PB~, NLAB*, NLAB+1, PRINT*, PNOW+1, NLABP~, NLABP+2*, NLABP+6, NLABP+13*
RMPROVAL PB~, STN*, STN+4
RMPRQ PB+1~
RMPRSTN PB~, STN+1, SCAN1+10*, SCAN1+83
RMPRSTN("IEN" STN, STN+4, HCPCS2, HCPCS3, HCPCS3A, HCPCS3A+1, CURST+1
RMPRSTR UPCASE~, UPCASE+1
>> RMPRUCST SCAN1+89*, SCAN1+90, SCAN1+91
>> RMSO SCAN1+76*, SCAN1+77
>> RMUBA SCAN1+82*, SCAN1+84*, SCAN1+85*
RQUIT CPT+1~
U SCAN1+13, SCAN1+24, SCAN1+49, SCAN1+61, SCAN1+62, SCAN1+66, SCAN1+67, SCAN1+68, SCAN1+69, SCAN1+75
, SCAN1+77, SCAN1+78, SCAN1+79, SCAN1+80, SCAN1+81, SCAN1+90, SCAN1+91, SCAN1+92, SCAN1+93, SCAN1+94
, SCAN1+95, CPT+5, CPT+9, CPT+17, CPT+18, CPT+19
X NLABP+1~, NLABP+11, BARC+1~, BARC1+3, BARC1+4, BARC1+5, BARC1+6, CPT+1~
Y NLABP+1~, NLABP+13, BARC+1~, CPT+1~, CPT+13
>> ZTDESC SELD+5*
>> ZTIO SELD+6*
>> ZTRTN SELD+5*
>> ZTSAVE("RMPR(" SELD+7*
>> ZTSAVE("RMPRBARC" SELD+6*
>> ZTSAVE("RMPRITXT(" SELD+6*
>> ZTSAVE("RMPRNLAB" SELD+7*
>> ZTSAVE("RMPRSTN(" SELD+7*
>> ZTSK SELD+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All