RMPORPR ;VA-EDS/PAK LIST HOME OXY PTS PRESCRIPTIONS/ITEMS ;7/24/98
Source file <RMPORPR.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; Compile and print report
|
|
SELP | ; Select patient
|
|
; 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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RMPR(665 - [#665] | Classic Fileman Calls |