Routine: ALPBUTL3

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Local Variables

Package	Total	Call Graph
VA Fileman	2	DD^%DT NOW^%DTC

Package

Total

Call Graph

VA Fileman

DD^%DT NOW^%DTC

Package	Total	Caller Graph
Barcode Medication Administration	6	ALPBBK ALPBFRM1 ALPBOP ALPBPALL ALPBPPAT ALPBPWRD

Package

Total

Caller Graph

Barcode Medication Administration

ALPBBK ALPBFRM1 ALPBOP ALPBPALL ALPBPPAT ALPBPWRD

Entry Points

Name	Comments	DBIA/ICR reference
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)
START(DAY)	;Get current date
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
ARRAY(DAY)
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)
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)
MON(DAY)	;Get the month

Name	Field # of Occurrence
DD^%DT	START+4, MON+4, ARRAY+16
NOW^%DTC	START+1, MON+1, ARRAY+13

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

Name	Line Occurrences (* Changed, ! Killed)
^ALPB(53.7 - [#53.7]	LSTACT+8, LSTACT+9, LSTACT+11, LSTACT+12*, LACT+7, LACT+8, LACT+9
^ALPB(53.71 - [#53.71]	DEFML+4, DEFOR+6, DEFPR+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %I(2	START+3, MON+3, ARRAY+15
ALP	LSTACT+5~, LSTACT+8, LSTACT+9, LACT+4~, LACT+8, LACT+9
ALPDFN	LACT~, LACT+5, LACT+7, LACT+8, LACT+9
ALPDRUG	LACT~, LACT+6, LACT+7, LACT+8, LACT+9
>> CNT	START+8, START+13, START+17, START+18, ARRAY+20, ARRAY+25*, ARRAY+28
>> DA	LSTACT+11, LSTACT+12
>> DA(1	LSTACT+8, LSTACT+9, LSTACT+11, LSTACT+12
>> DA(2	LSTACT+8, LSTACT+9, LSTACT+11, LSTACT+12
DATA	LACT+4~, LACT+9*, LACT+10
DATE	LSTACT+5~, LSTACT+11*, LSTACT+12
DAY	START~, START+9, START+17, MON~, ARRAY~, ARRAY+21, ARRAY+28
DRUG	LSTACT+5~, LSTACT+9*, LSTACT+10, LSTACT+12
>> J	START+12, START+14, START+15, START+16, START+17, START+19, ARRAY+24, ARRAY+26*, ARRAY+27
>> LD	START+6, START+7, MON+6, ARRAY+18*, ARRAY+19
>> LDD	START+7, START+10, START+11, START+12, ARRAY+19, ARRAY+22, ARRAY+23, ARRAY+24
>> MON	START+5, START+6, MON+5, MON+6, ARRAY+17*, ARRAY+18, ARRAY+28
>> MONT(	ARRAY+28
>> MONT("APR"	ARRAY+4*
>> MONT("AUG"	ARRAY+8*
>> MONT("DEC"	ARRAY+12*
>> MONT("FEB"	ARRAY+2*
>> MONT("JAN"	ARRAY+1*
>> MONT("JUL"	ARRAY+7*
>> MONT("JUN"	ARRAY+6*
>> MONT("MAR"	ARRAY+3*
>> MONT("MAY"	ARRAY+5*
>> MONT("NOV"	ARRAY+11*
>> MONT("OCT"	ARRAY+10*
>> MONT("SEP"	ARRAY+9*
>> SP	START+8, START+13, START+14, START+18, START+19, ARRAY+20, ARRAY+25*, ARRAY+28
>> SS	START+9, START+10, START+11, START+16, ARRAY+21, ARRAY+22, ARRAY+23, ARRAY+27
>> STARD	START+3, START+9, START+12, MON+3, ARRAY+15*, ARRAY+21, ARRAY+24
U	DEFML+4, DEFOR+6, DEFPR+6, LSTACT+9, LSTACT+11
X	START+2, MON+2, ARRAY+14, DEFML+3~, DEFML+4, DEFML+5, DEFOR+5~, DEFOR+6, DEFOR+7, DEFPR+5~ , DEFPR+6*, DEFPR+7
>> Y	START+2, START+5, MON+2, MON+5, ARRAY+14*, ARRAY+17

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBUTL3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: