Print Page as PDF
DBIA237-B ICR (707)

DBIA237-B    ICR (707)

Name Value
NUMBER 707
IA # 707
DATE CREATED 1993/06/15
CUSTODIAL PACKAGE OUTPATIENT PHARMACY
CUSTODIAL ISC Birmingham
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSOSD
NAME DBIA237-B
ORIGINAL NUMBER 237
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


STATUS Active
DURATION Till Otherwise Agreed
ID PSOSD
COMPONENT/ENTRY POINT PAT
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
AUTOMATED INFO COLLECTION SYS Albany