| GENERAL DESCRIPTION |
Integrated Billing is given permission from Outpatient
Pharmacy to call HD^PSOSD2 and PAT^PSOSD for the purpose of printing the
Action Profile and the Information Profile in batch.
CONDITIONS: The entry points may only be used in an approved fashion. The
following subroutine uses the entry points in an acceptable manner:
RXPROF ;For printing the Outpatient Pharmacy Action Profile or the
;Information Profile for a single patient whose DFN is defined.
;Does not ask for the device nor close the device.
;INPUTS:
;PSDAYS = number of days to print the medication profile for
;PSTYPE=1 for the Action Profile, =0 for the Information Profile
;DFN
;
N IBDFN,ADDR,ADDRFL,CLASS,CNDT,DRUG,HDFL,I,II,J,L,LINE,P,PAGE,
PSDOB,PSII X,PSNAME,PSOI,PSSN,PSIX,PGM,PRF,PSDATE,VAL,VAR,RX,
RX0,RX2,ST,ST0,PSDAY,RF,RFS,PSOPRINT,X1,X2,ZTSK,X,Y,PSII,PSDT,LMI
S IBDFN=DFN
S X1=DT,X2=-PSDAYS D C^%DTC S (PSDATE,PSDAY)=X
S LINE="" F I=1:1:132 S LINE=LINE_"-"
S PAGE=1
D HD^PSOSD2,PAT^PSOSD
W @IOF
S DFN=IBDFN
Q
|
