ALPBUTL3 ;OIFO-DALLAS MW,SED,KC-BCBU BACKUP REPORT FUNCTIONS AND UTILITIES ;01/01/03
Source file <ALPBUTL3.m>
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 |
|