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

Package: Prosthetics

Routine: RMPRPIUG


Information

RMPRPIUG ;HINCIO/ODJ - CONVERT OLD PIP TO NEW PIP ;7/30/02 08:19

Source Information

Source file <RMPRPIUG.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Prosthetics 8 $$GETUSR^RMPRPIU0  $$REC^RMPRPIU9  (CONV,GETITM)^RMPRPIUH  CONV^RMPRPIUI  (LOCN,UNIT)^RMPRPIUJ  (BAL,REC)^RMPRPIUK  $$CRE^RMPRPIX4  $$CRE^RMPRPIXN  
VA FileMan 2 NOW^%DTC  IXALL^DIK  

Entry Points

Name Comments DBIA/ICR reference
CONV
DUZ
RENDX
CONVX
CONV1A
CONV1
CONV2
CONV3
TMPH(RMPR5) ;
TMPHX
CONV1AX

External References

Name Field # of Occurrence
NOW^%DTC CONV1A+5
IXALL^DIK RENDX
$$GETUSR^RMPRPIU0 DUZ
$$REC^RMPRPIU9 TMPH+30, TMPH+35, TMPH+43
CONV^RMPRPIUH DUZ+14
GETITM^RMPRPIUH CONV3+19
CONV^RMPRPIUI DUZ+12
LOCN^RMPRPIUJ DUZ+11
UNIT^RMPRPIUJ DUZ+17
BAL^RMPRPIUK DUZ+16
REC^RMPRPIUK DUZ+15
$$CRE^RMPRPIX4 CONV3+23
$$CRE^RMPRPIXN CONV3+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONV+2
Function Call: WRITE
  • Prompt: "** File 661.5 already exists, aborting conversion, please log NOIS"
  • Line Location: CONV+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DUZ+3
Function Call: WRITE
  • Prompt: "** Need valid DUZ variable set"
  • Line Location: DUZ+4
Function Call: WRITE
  • Prompt: !,"PIP Old to New file conversion starting."
  • Line Location: DUZ+8
Function Call: WRITE
  • Prompt: !,"PIP Old to New file conversion complete.",!
  • Line Location: RENDX+2
Function Call: WRITE
  • Prompt: !,"Creating Current Inventory - file 661.7 "
  • Line Location: CONV1A+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X=79
  • Line Location: CONV2+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: CONV2+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(661.1 - [#661.1] CONV2+11, CONV2+12
^RMPR(661.3 - [#661.3] CONV1, CONV1+4, CONV2, CONV2+8, CONV3, CONV3+2
^RMPR(661.4 - [#661.4] CONV3+22
^RMPR(661.5 - [#661.5] CONV
^TMP($J DUZ+10!, DUZ+18!, CONV1+2, CONV1+3, CONV1+8!, CONV2+6!, CONV3+28, CONV3+29, CONV3+38*, TMPH+3
, TMPH+5, TMPH+7, TMPH+8, TMPHX!, CONV1AX!

Label References

Name Line Occurrences
CONV1 CONV1+2, CONV2+4
CONV1A DUZ+13
CONV1AX CONV1+1
CONV2 CONV2+10, CONV2+11, CONV2+17, CONV3+1
CONV3 CONV3+3, CONV3+7, CONV3+27, CONV3+47
CONVX CONV, DUZ+1
TMPH CONV2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CONV1A+5
DA CONV1A~
>> DIK RENDX*
DUZ DUZ
IO("Q" CONV+1, DUZ+2, DUZ+7, RENDX+1, CONV1A+2, CONV2+1
RMPR CONV1A+1~, TMPH+1~, TMPH+24!, TMPH+30, TMPH+31!, TMPH+35
RMPR("NEW UNI T COST" , TMPH+27*, TMPH+28, TMPH+34*
RMPR("QUANTITY" TMPH+25*, TMPH+27, TMPH+32*
RMPR("VALUE" TMPH+26*, TMPH+27
RMPR("VENDOR IEN" , TMPH+29*, TMPH+33*
RMPR11 CONV1A+1~, CONV2+13!, CONV3+19, CONV3+23, CONV3+45, TMPH+1~, TMPH+14!, TMPH+30, TMPH+35, TMPH+43
RMPR11("HCPCS" CONV2+16*, CONV2+17, CONV3+3, CONV3+22, CONV3+28, CONV3+29, CONV3+38, TMPH+17*
RMPR11("ITEM" CONV3+22, CONV3+28, CONV3+29, CONV3+38, TMPH+18*
RMPR11("SOURCE" CONV3+4*, CONV3+5*
RMPR11("STATI ON IEN" , CONV2+15*, CONV3+22, TMPH+16*
RMPR11("STATION" CONV2+14*, TMPH+15*
RMPR11("UNIT" CONV3+8*, CONV3+37, TMPH+19*
RMPR4 CONV1A+1~, CONV3+15!, CONV3+23
RMPR4("RE-ORD ER QTY" , CONV3+16*
RMPR41 CONV1A+1~, CONV3+17!, CONV3+45
RMPR41("DATE ORDER" , CONV3+43*
RMPR41("ORDER QTY" , CONV3+18*, CONV3+41
RMPR41("STATUS" CONV3+44*
RMPR41("VENDOR" CONV3+42*
RMPR5 CONV1A~, CONV2+5, CONV3+23, TMPH~, TMPH+30, TMPH+35, TMPH+43
RMPR5("IEN" CONV1+3*, CONV3+22
RMPR5("STATION" CONV1+5*, CONV2+14, CONV2+15, TMPH+15, TMPH+16
RMPR6 CONV1A+1~, CONV3+10!, TMPH+1~, TMPH+9!, TMPH+43
RMPR6("NEW UN IT COST" , TMPH+41*, TMPH+42*
RMPR6("QUANTITY" CONV3+11*, CONV3+30, CONV3+34, TMPH+10*, TMPH+23, TMPH+25, TMPH+42
RMPR6("UNIT" TMPH+12*
RMPR6("VALUE" CONV3+12*, CONV3+13*, CONV3+31, CONV3+35, TMPH+11*, TMPH+26, TMPH+40*, TMPH+42
RMPR6("VENDOR IEN" , CONV3+14*, CONV3+27, CONV3+28, CONV3+29, CONV3+38, CONV3+42, TMPH+13*, TMPH+29, TMPH+33
>> RMPR7("UNIT" CONV3+9*
>> RMPRDUZ DUZ*, DUZ+1
RMPRERR CONV1A~, CONV3+23*, CONV3+45*, TMPH+1~, TMPH+30*, TMPH+35*, TMPH+43*
RMPRH CONV1A+1~, CONV1+9*, CONV2*, CONV2+4, CONV2+8, CONV3, CONV3+2, TMPH+1~, TMPH+2*, TMPH+3*
, TMPH+5, TMPH+7, TMPH+8, TMPH+17
RMPRHIEN CONV1A+1~, CONV2+9*, CONV2+10, CONV2+11, CONV2+12, CONV3+19
RMPRHREC CONV1A~, CONV2+12*, CONV2+16
RMPRI CONV1A~, CONV2+20*, CONV3*, CONV3+1, CONV3+2, TMPH+1~, TMPH+4*, TMPH+5*, TMPH+7, TMPH+8
, TMPH+18
RMPRITM CONV1A~, CONV3+6*, CONV3+7, CONV3+19
RMPRL CONV1A~, CONV1A+6*, CONV1*, CONV1+1, CONV1+2, CONV1+3, CONV1+4, CONV2, CONV2+8, CONV3
, CONV3+2
RMPRREC CONV1A~, CONV1+4*, CONV1+5, CONV2+8*, CONV2+9, CONV3+2*, CONV3+3, CONV3+5, CONV3+6, CONV3+8
, CONV3+9, CONV3+11, CONV3+12, CONV3+14, CONV3+16, CONV3+18
RMPRSRC CONV1A+1~
RMPRSS CONV1A~, CONV3+29*, CONV3+30*, CONV3+31*, CONV3+34*, CONV3+35*, CONV3+37*, CONV3+38, TMPH+1~, TMPH+8*
, TMPH+10, TMPH+11, TMPH+12, TMPH+19
RMPRTODT CONV1A+1~, CONV1A+5*, CONV3+43
RMPRUCST TMPH+1~, TMPH+28*, TMPH+34
RMPRV TMPH+1~, TMPH+6*, TMPH+7*, TMPH+8, TMPH+13
U CONV3+37, TMPH+19
X CONV1A~
Y CONV1A~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All