Routine: ALPBUTL3

Information

ALPBUTL3 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03

Name	Comments	DBIA/ICR reference
START(DAY)	;Get current date
MON(DAY)	;Get the month
ARRAY(DAY)
DEFML()	; fetch and return default med log print... ; returns default number of med log entries to print based on entry in ; MED-LOG NUMBER field in BCMA BACKUP PARAMETERS file (53.71)
DEFOR()	; fetch and return purge order flag... ; returns the number of day to hold a patient order after ; the Stop Date. Default is 7 ; Based on entry in PURGE ORDER DAYS field in BCMA BACKUP ; PARAMETERS file (53.71)
DEFPR()	; fetch and return purge patient flag... ; returns the number of days to hold the patient record ; with no orders. Default is 30 ; Based on entry in PURGE PATIENT field in BCMA BACKUP ; PARAMETERS file (53.71)
LSTACT	; Build a cross reference by patient by drug to keep up ; with the last action of the drug. The x-ref is built but stays ; even if order is purged. The x-ref gets removed when the patient ; is purged. ; ^ALPB(53.1,DFN,"LSTACT",DRUG,ACTION DATE)=PERSON^ACTION
LACT(ALPDFN,ALPDRUG)	; Retrieve the last action infor for a patient ; for a certian drug ; ALPDFN = Patient DFN ; ALPDRUG = Drug Ordable Item IEN

Name	Line Occurrences
Function Call: WRITE	Prompt: ?SP+6,$P(MONT(MON),"^",1) Line Location: ARRAY+28