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

Package: Prosthetics

Routine: RMPR5N1


Information

RMPR5N1 ;HIN/RVD-PROS STOCK ITEM RECORDS ;3/17/03 13:19

Source Information

Source file <RMPR5N1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  KILL^XUSCLEAN  
VA FileMan 3 (,DD)^%DT  ^DIC  ^DIR  
Prosthetics 1 DIV4^RMPRSIT  

Entry Points

Name Comments DBIA/ICR reference
EN
ENDATE
PRINT
PRI
PRI1
EXIT ;EXIT FROM REPORT HERE
EXIT1
REST ;
SET ;
WRI
HEAD
IHEAD
HEAD1 ;write heading
HTOTAL ;
ITOTAL ;
NONE ;nothing to report.
NONEALL

External References

Name Field # of Occurrence
^%DT EN+5, ENDATE
DD^%DT ENDATE+1, HEAD+1
^%ZIS ENDATE+2
HOME^%ZIS EN
^%ZISC EXIT1
^%ZTLOAD ENDATE+5
^DIC EN+1
^DIR EXIT+2, WRI+19, HEAD1+1
DIV4^RMPRSIT RMPR5N1+3
KILL^XUSCLEAN EXIT1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7)," ??",?40,"..Duplicate HCPCS"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$C(7),"Invalid Date Range Selection!!"
  • Line Location: ENDATE+0
Function Call: WRITE
  • Prompt: @IOF,!!,"Processing report......"
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: ?9,$E($P(^DPT(RMPAT,0),U,1),1,14),?26,RMSSN,?31,RMUSR,?47,RMQTY,?59,RMSER,?73,$J(RMCUB,7,0)
  • Line Location: WRI+16
Function Call: WRITE
  • Prompt: ?11,"**Note: ",RMCOM,?49,$J(RMONO,4),?54,$J(RMREC,4),?73,$J(RMCUB,7,0)
  • Line Location: WRI+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRI+20
Function Call: WRITE
  • Prompt: !,"*** ISSUE and STOCK CONTROL RECORD - PROSTHETICS STOCK ITEMS ***",?65,"Page: ",RMPAGE,!,?30,"station: ",$E($P($G(^DIC(4,RMPR("STA"),0)),U,1),1,20)
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,Y," to "
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,"HCPCS: ",R0,?16,"Item: ",R1
  • Line Location: IHEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD1+1
Function Call: WRITE
  • Prompt: !,RMPR("L")
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,?44,"QTY",?50,"QTY",?55,"QTY",?63,"SERIAL"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !," DATE",?9,"PATIENT",?26,"SSN",?31,"USER",?44,"ISSUE",?50,"ORDR",?55,"REC",?63,"NUMBER",?73,"BALANCE"
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !," ----",?9,"-------",?26,"---",?31,"----",?44,"-----",?50,"----",?55,"---",?63,"------",?73,"-------"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!,?23,"*** Dollar Value of HCPCS Issued",?60,"=",?62,$J(RMTOCOH,11,2)
  • Line Location: HTOTAL+1
Function Call: WRITE
  • Prompt: !,?42,"--------------------------------------",!,?23,"*** Dollar Value of Item Issued",?60,"=",?62,$J(RMTOCO,11,2)
  • Line Location: ITOTAL+1
Function Call: WRITE
  • Prompt: !,RMPR("L"),!,"No Item Statistics for HCPCS: ",RQ,"...for this date range !!!"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !!,"NO DATA AT THIS DATE RANGE!!!!"
  • Line Location: NONEALL+0
Routine Call
  • DIC
  • Line Location:
    • EN+1
Routine Call
  • DIR
  • Line Location:
    • EXIT+2
    • WRI+19
    • HEAD1+1
Routine Call
  • %ZIS
  • Line Location:
    • ENDATE+2
Routine Call
  • %ZIS
  • Line Location:
    • EN

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD
^DPT - [#2] WRI+13, WRI+16
^RMPR(661.1 - [#661.1] EN+2, REST+11, REST+14, IHEAD
^RMPR(661.2 - [#661.2] PRI1+1, REST+3
^TMP($J EN!, SET+1*, WRI+2, WRI+3
^VA(200 - [#200] WRI+12

Label References

Name Line Occurrences
ENDATE ENDATE
EXIT ENDATE+1, ENDATE+2, PRINT+3, PRI+2
EXIT1 EN+1, EN+5, ENDATEENDATE+5
HEAD PRINT+5, WRI+19, WRI+20, HEAD1+1
HEAD1 WRI+2, WRI+11, WRI+19, WRI+20
HTOTAL WRI+2
IHEAD WRI+2
ITOTAL WRI+2
NONE PRI1+2
NONEALL PRINT+3
PRI1 PRI
PRINT ENDATE+3
REST PRI1+1
WRI PRI+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% HEAD+1~
>> %DT EN+5*, ENDATE*
>> %DT("A" EN+5*, ENDATE*
>> %DT("B" EN+5*, ENDATE*
>> %ZIS ENDATE+2*
>> DIC EN*
>> DIC("A" EN+1*
>> DIC("S" EN*
>> DIC(0 EN*
DIR EXIT+2!
DIR(0 EXIT+2*, WRI+19*, HEAD1+1*
>> DTOUT EN+1, WRI+19, HEAD1+1
>> DUOUT EXIT+2
>> HCPCS EN+1*, EN+3*
IO ENDATE+3
IO("Q" ENDATE+3, ENDATE+4!
IOF PRINTWRI+19, WRI+20, HEAD1+1
ION ENDATE+4
IOP ENDATE+2!
IOSL WRI+19, WRI+20, HEAD1+1
IOST PRINTEXIT+2, WRI+19, HEAD1+1
>> POP ENDATE+2
>> QTYT PRINT+4*
>> R0 PRI+1*, WRI+2*, WRI+3, IHEADIHEAD+2
>> R1 WRI+2*, WRI+3, WRI+10, IHEAD+2
>> R2 WRI+2*, WRI+3
>> RDATA WRI+3*, WRI+4, WRI+5, WRI+6, WRI+7, WRI+8, WRI+9
>> RM1 REST+14*, REST+15, REST+16
>> RM2 REST+3*, REST+4, REST+5, REST+8, REST+9, REST+10, REST+12
>> RMAV WRI+4*
>> RMAVCO REST+8*, SET+1, WRI+9*
>> RMBA REST+9*, SET+1
>> RMBDATE PRINT+2*
>> RMCO PRINT+4*, WRI+9*, WRI+16, WRI+17, ITOTAL+2*
>> RMCOM REST+9*, SET+1, WRI+7*, WRI+17
>> RMCUB REST+10*, SET+1, WRI+7*, WRI+16, WRI+17
>> RMD PRI*, PRI1+1
>> RMDAHC REST+11*, REST+14, IHEAD*
>> RMDAIT REST+12*, REST+14
>> RMDAT REST+5*, REST+6, REST+13*, SET+1, WRI+4*, WRI+15
>> RMFH WRI*, WRI+2, WRI+14*, HTOTAL+1, HTOTAL+2*
>> RMFI WRI*, WRI+2, WRI+14*, ITOTAL+1, ITOTAL+2*
>> RMHCPC EN+2*, EN+3, EN+4, REST+10*, REST+11
>> RMHI REST+9*, REST+10, REST+12
>> RMI IHEAD+3*
>> RMIFL PRINT+4*
>> RMITEM REST+16*, SET+1, WRI+1*, WRI+2, WRI+10*, IHEAD+1*
>> RMONO REST+10*, SET+1, WRI+6*, WRI+17
>> RMPAGE PRINT+4*, HEADHEAD+2*
>> RMPAT REST+8*, SET+1, WRI+5*, WRI+13, WRI+16, WRI+17
RMPR EXIT1+1~
RMPR("L" HEAD1+2, NONE+1
RMPR("STA" REST+5, REST+7, HEAD
>> RMPRBDT EN+5*, ENDATEENDATE+1, PRINT+2, REST+6, HEAD+1
>> RMPRCOUN EN+5*
>> RMPREDT ENDATE+1*, REST+6, HEAD+1
>> RMPREND EN*, PRINT+4*, PRI1+1, EXIT+2, WRI+2, WRI+19*, HEAD1+1*, HTOTAL+1, ITOTAL+1
RMPRFLG EN!, WRI*, WRI+11, WRI+18*, WRI+20*, HEAD1+6*
RMPRI EN!, PRINT+3
RMPRI( EN+3, EN+4*, PRI
RMPRSITE EXIT1+1~
>> RMPRX ENDATE+1*
>> RMPRY ENDATE+1*
>> RMQTY WRI+6*, WRI+9, WRI+16
>> RMQTYT PRI1*
>> RMREC REST+10*, SET+1, WRI+7*, WRI+17
>> RMSER REST+12*, SET+1, WRI+8*, WRI+16
>> RMSO REST+8*, SET+1, WRI+5*
>> RMSSN REST+2*, WRI+13*, WRI+16
>> RMSTA REST+5*, REST+7
>> RMSTAFL PRI1*, PRI1+2, REST+7*
>> RMSUF PRI1*, REST+1*
>> RMTOCO PRINT+4*, WRI+16*, WRI+17*, ITOTAL+1, ITOTAL+2*
>> RMTOCOH PRINT+4*, WRI*, HTOTAL+1, HTOTAL+2*, ITOTAL+2*
>> RMTOCOI WRI*
>> RMUNI REST+8*, WRI+4*
>> RMUSR REST+9*, SET+1, WRI+6*, WRI+12*, WRI+16
>> RO PRI1+1*, REST+3, SET+1
>> RP PRINT+4*
>> RQ PRI*, SET+1, NONE+1
U EN+2, REST+4, REST+5, REST+8, REST+9, REST+10, REST+12, REST+16, WRI+4, WRI+5
WRI+6, WRI+7, WRI+8, WRI+9, WRI+12, WRI+13, WRI+16, HEAD
X EN+1, HEAD+1~
>> Y RMPR5N1+3, EN+2, EN+4, EN+5, ENDATEENDATE+1*, WRI+19, HEAD+1*, HEAD1+1
>> ZTDESC ENDATE+4*
>> ZTIO ENDATE+4*
>> ZTRTN ENDATE+4*
>> ZTSAVE("RMPR(" ENDATE+4*
>> ZTSAVE("RMPR(""STA"")" ENDATE+4*
>> ZTSAVE("RMPRBDT" ENDATE+4*
>> ZTSAVE("RMPREDT" ENDATE+4*
>> ZTSAVE("RMPRI(" ENDATE+4*
>> ZTSAVE("RMPRX" ENDATE+4*
>> ZTSAVE("RMPRY" ENDATE+4*
>> ZTSK ENDATE+5
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