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

Package: Prosthetics

Routine: RMPORPR


Information

RMPORPR ;VA-EDS/PAK LIST HOME OXY PTS PRESCRIPTIONS/ITEMS ;7/24/98

Source Information

Source file <RMPORPR.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 NOW^%DTC  EN1^DIP  ^DIR  
Kernel 1 KILL^XUSCLEAN  
Prosthetics 1 HOSITE^RMPOUTL0  
Registration 1 ^VADPT  

Entry Points

Name Comments DBIA/ICR reference
START ; Compile and print report
SELP ; Select patient
PRINT ; Print report
ADTL() ; Get Additional detail: cost, FCP and calculate total cost of all items
COST()
FCP()
EXTC() ; Return extended cost
EXIT ;
END ; End the report line
SSN() ; Get SSN ;RNPR*3.0*179 Flag a deceased patient by attaching an '*' to SSN. ^DPT(D0,.35) direct read supported by ICR #10035
SDT() ; Get Rx activation Date.
EDT() ; Get the most recently entered Rx.
RPTHDR ; Report header

External References

Name Field # of Occurrence
NOW^%DTC PRINT+4
EN1^DIP PRINT+34
^DIR START+8, SELP+4, PRINT+35
HOSITE^RMPOUTL0 START+2
^VADPT SSN+4
KILL^XUSCLEAN EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?47,"Total Patients: ",COUNT
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,?38,"Total Deceased Patients: ",RMPODCNT
  • Line Location: END+4
Function Call: WRITE
  • Prompt: RPTDT,?(40-($L(RMPO("NAME"))/2)),RMPO("NAME"),?65,"Page: "_PAGE
  • Line Location: RPTHDR+2
Function Call: WRITE
  • Prompt: !,?23,"Prescription Report",?52,"* denotes deceased patient",!
  • Line Location: RPTHDR+3
Routine Call
  • DIR
  • Line Location:
    • START+8
    • SELP+4
    • PRINT+35

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+4
^DPT - [#2] SSN+3
^RMPR(665 - [#665] ADTL+4, ADTL+9, SDT+3, EDT+3, EDT+7, EDT+9
^TMP("RMPO" PRINT+1*, ADTL+7*, ADTL+12*, ADTL+13*, COST, FCP, EXTC+2*, EXIT+3!

Label References

Name Line Occurrences
EXIT START+17
PRINT START+16
SELP START+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+4
ALL START+5!, START+9*, START+11, START+14
BRK PRINT+2*, EXIT+1!
>> BY PRINT+7*
COST ADTL+1~, ADTL+11*, ADTL+12, ADTL+13
COUNT PRINT+1*, EXIT+1!, END+1*, END+2, SSN+6*
>> D0 ADTL+3, SSN+3, SSN+4, SDT+3, EDT+3, EDT+7, EDT+9
DFN EXIT+2!, SSN+4*
>> DHD PRINT+8*
DIC START+5!, PRINT+7*
>> DIOEND PRINT+9*
DIR START+5!, SELP+1~, PRINT+35!
DIR("A" START+8*
DIR("B" START+8*
DIR("S" SELP+3*
DIR(0 START+8*, SELP+2*, PRINT+35*
DIRUT START+5!
DIS START+5!
DIS(0 START+14*
DTOUT START+5!, START+9
DTSTRG EXIT+1!
DUOUT START+5!
EXPDT EXIT+2!
EXTC EXTC+1~, EXTC+2*, EXTC+3, EXIT+2!
FCP ADTL+1~, ADTL+10*, ADTL+12
>> FLDS PRINT+11*
>> FLDS(1 PRINT+12*
>> FLDS(10 PRINT+25*
>> FLDS(11 PRINT+26*
>> FLDS(12 PRINT+27*
>> FLDS(13 PRINT+28*
>> FLDS(14 PRINT+29*
>> FLDS(15 PRINT+30*
>> FLDS(16 PRINT+31*
>> FLDS(17 PRINT+32*
>> FLDS(2 PRINT+13*
>> FLDS(3 PRINT+15*
>> FLDS(4 PRINT+17*
>> FLDS(5 PRINT+19*
>> FLDS(6 PRINT+20*
>> FLDS(7 PRINT+21*
>> FLDS(8 PRINT+23*
>> FLDS(9 PRINT+24*
>> FR START+14*
>> FR(1 START+11*
>> FR(2 START+11*
>> L PRINT+7*
PAGE PRINT+1*, EXIT+1!, RPTHDR+1*, RPTHDR+2
QTY ADTL+1~, ADTL+10*, ADTL+11
RC EDT+1~, EDT+9*, EDT+10
RD EXIT+1!
REC ADTL+1~, ADTL+9*, ADTL+10
RI EXIT+1!
>> RMEND PRINT+1*, PRINT+35
>> RMPO("NAME" RPTHDR+2
>> RMPODCNT START+5*, END+3*, END+4, SSN+6*
>> RMPODFN PRINT+33*, ADTL+3*, ADTL+4, ADTL+9
RMPOEXP SSN+1~, SSN+2*, SSN+3*, SSN+6
RMPOITEM PRINT+33*, ADTL+3*, ADTL+4*, ADTL+7, ADTL+9, EXIT+2!
>> RMPORPT PRINT+1*, PRINT+35
RMPORX EXIT+2!, EDT+5*, EDT+7*, EDT+9
>> RMPORXDT EDT+3*, EDT+5, EDT+7
>> RMPOXITE START+2
RMPR EXIT+3~
RMPRSITE EXIT+3~
RNAM EXIT+1!
ROK EXIT+2!
RPTDT PRINT+5*, EXIT+1!, RPTHDR+2
RY EXIT+2!
SP PRINT+1*, EXTC+3, EXIT+1!
>> TO START+14*
>> TO(1 START+11*
U ADTL+10, ADTL+12, COST, FCP, SDT+3, EDT+9
UCOST ADTL+1~, ADTL+10*, ADTL+11*
VA EXIT+2!, SSN+4!
VA("PID" SSN+5
VADM EXIT+2!, SSN+4!
X SSN+1~, SSN+2*, SSN+5*, SSN+6*, SSN+7, SDT+1~, SDT+3*, SDT+4*, SDT+5, EDT+1~
X1 EXIT+1!
>> Y START+9, START+11, PRINT+4*, PRINT+5
>> Y(0 START+11
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