Routine: ALPBPARM

Package	Total	Call Graph
VA Fileman	2	(,IX)^DIC ^DIR
Kernel	1	$$NS^XUAF4
Toolkit	1	(DEL,EN,GETLST)^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	5	ALPBGEN ALPBIN ALPBIND ALPBINP PSB BCBU LINK ASSOCIATIONS

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;division help
Q3	;Ask Default
Q2	;Link help
LINKS	;What logical links for a division?
DLINKS	;What logical links for the DEFAULT parmeter?
GET(HLL,DIV,FLG,PR)	;Return HLL("LINKS") array for a given patient division
DV(DV)	;take internal or external division and return institution
GET1	;
DIV	;division
SET(ALPBDIVP,LINK)	;function to set or delete parameter for logical link
OUT	;EXIT

External References

Name	Field # of Occurrence
^DIC	DV+3
IX^DIC	DLINKS+1, GET+10
^DIR	ALPBPARM+5, ALPBPARM+13, DIV+5, DLINKS+16, LINKS+13
DEL^XPAR	SET+3
EN^XPAR	SET+2
GETLST^XPAR	GET+13, GET+17
$$NS^XUAF4	LINKS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Medical Ctr Divisions must be associated with an institution." Line Location: DIV+10
Function Call: WRITE	Prompt: !,"Division information is required." Line Location: DIV+12
Function Call: WRITE	Prompt: !,"BAR CODE MED ADMIN MISSING FROM PACKAGE FILE." Line Location: DLINKS+3
Function Call: WRITE	Prompt: !,"No DEFAULT links defined for this package." Line Location: DLINKS+7
Function Call: WRITE	Prompt: !,"The following DEFAULT links are associated with this package:" Line Location: DLINKS+8
Function Call: WRITE	Prompt: !,$P(ZLNK("LINKS",X),U,2) Line Location: DLINKS+10
Function Call: WRITE	Prompt: !,RESULT Line Location: DLINKS+19
Function Call: WRITE	Prompt: !,"The Institution associated with this division is ",$$NS^XUAF4(ALPBINST) Line Location: LINKS+1
Function Call: WRITE	Prompt: !,"No links defined for this division." Line Location: LINKS+3
Function Call: WRITE	Prompt: !,"The following links are associated with this division:" Line Location: LINKS+4
Function Call: WRITE	Prompt: !,$P(LNK("LINKS",X),U,2) Line Location: LINKS+6
Function Call: WRITE	Prompt: !,RESULT Line Location: LINKS+16
Function Call: WRITE	Prompt: "...Added" Line Location: SET+2
Function Call: WRITE	Prompt: "...Deleted" Line Location: SET+3
Function Call: WRITE	Prompt: !,"Unknown Institiution-please review Medical Ctr Division File." Line Location: GET+16
Function Call: WRITE	Prompt: !,"Do you want all backup data to go to the same group of" Line Location: Q3+1
Function Call: WRITE	Prompt: !,"backup devices regardless of the patient's division?" Line Location: Q3+2
Routine Call	DIC Line Location: DV+3
Routine Call	DIR Line Location: ALPBPARM+5 ALPBPARM+13 DIV+5 DLINKS+16 LINKS+13
Routine Call	DIC Line Location: DLINKS+1 GET+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Label References

Name	Line Occurrences
$$DV	GET+15
$$SET	DLINKS+18, LINKS+15
DIV	DIV+14
DLINKS	ALPBPARM+16
GET	DLINKS+6, LINKS+2, GET+20
GET1	GET+14
LINKS	DIV+14
OUT	ALPBPARM+6, ALPBPARM+14, ALPBPARM+16, DIV+10, DIV+12, GET+9, GET+16
Q1	DIV+5
Q2	DLINKS+13, LINKS+10
Q3	ALPBPARM+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALPBDIVE	ALPBPARM+3~, DIV+1~, DIV+8*, LINKS+2
ALPBDIVI	ALPBPARM+3~, DIV+1~, DIV+7*
ALPBDIVP	ALPBPARM+3~, DIV+1~, DIV+2, DIV+11, DIV+12, LINKS+15, SET~, SET+2, SET+3
ALPBINST	ALPBPARM+3~, DIV+1~, DIV+9*, DIV+10, DIV+11, LINKS+1
ALPBPARM	ALPBPARM+3~, ALPBPARM+8, ALPBPARM+10, SET+2, SET+3
>> ALPBPKG	DLINKS+2, DLINKS+3, DLINKS+4, DLINKS+18, GET+11, GET+12, GET+13
ALPBSCRN	ALPBPARM+3~
>> ALPSCRN(	DLINKS+11, LINKS+7, SET+3!
>> D	DLINKS+1, GET+10
DA	ALPBPARM+3~, ALPBPARM+7!, ALPBPARM+15!, DIV+13!, DLINKS+17!, DLINKS+20!, LINKS+14!, LINKS+17!, DV+2~
DEF	ALPBPARM+2~, ALPBPARM+7*, ALPBPARM+8, ALPBPARM+16
DIC	ALPBPARM+3~, DLINKS+1, GET+10, DV+2~, DV+3*
DIC(0	DLINKS+1, GET+10, DV+3*
DIE	ALPBPARM+3~
DIR	ALPBPARM+3~, ALPBPARM+7!, ALPBPARM+15!, DIV+13!, DLINKS+17!, DLINKS+20!, LINKS+14!, LINKS+17!
DIR("?"	Q1+1, Q1+2, Q1+3, Q1+4, Q2+1, Q2+2, Q2+3, Q2+4, Q2+5, Q2+6 , Q2+7*
DIR("A"	ALPBPARM+12, DLINKS+15, LINKS+12*
DIR("B"	ALPBPARM+5, ALPBPARM+12
DIR("S"	DLINKS+14, LINKS+11
DIR(0	ALPBPARM+5, ALPBPARM+11, DIV+5, DLINKS+16, LINKS+13*
>> DIRUT	DIV+6, DLINKS+12, DLINKS+17, LINKS+9, LINKS+14
DIV	GET~, GET+9, GET+15
DR	ALPBPARM+3~
>> DTOUT	ALPBPARM+6, ALPBPARM+14, DIV+6, DLINKS+12, DLINKS+17, LINKS+9, LINKS+14
>> DUOUT	ALPBPARM+6, ALPBPARM+14, DIV+6, DLINKS+12, DLINKS+17, LINKS+9, LINKS+14
DV	DV~, DV+1, DV+3
ERR	ALPBPARM+3~, SET+2, SET+3, SET+4, GET+13, GET+17, GET+18, GET1+1
FLG	GET~, GET+7*, GET+19
HLL	GET~, GET+20
HLL("LINKS"	GET1+4*
INST	GET+15~*, GET+16, GET+17
LINK	SET~, SET+2, SET+3
LNK	ALPBPARM+3~, LINKS+2, LINKS+3, LINKS+8!
LNK("LINKS"	LINKS+5, LINKS+6, LINKS+7
LNK870	GET1+3~*
LST	GET+8~*, GET+13, GET+17
LST(	GET1+1, GET1+2, GET1+3, GET1+4
LST(0	GET+18, GET1+1
OPR	ALPBPARM+2~, ALPBPARM+15*, DLINKS+7, DLINKS+11, DLINKS+14, LINKS+3, LINKS+7, LINKS+11, SET+2, SET+3
PR	GET~, GET+6*, GET1+4
RESULT	DLINKS+18, DLINKS+19, LINKS+15, LINKS+16, LINKS+17!
U	DIV+8, DIV+9, DLINKS+2, DLINKS+10, DLINKS+11, DLINKS+18, LINKS+6, LINKS+7, LINKS+15, GET+11 , GET1+2, GET1+3, GET1+4, DV+4
X	DLINKS+1, DLINKS+9, DLINKS+10, DLINKS+11, LINKS+5, LINKS+6, LINKS+7, GET+10, GET1+1~, GET1+2 , GET1+3, GET1+4, DV+1, DV+3*
Y	ALPBPARM+7!, ALPBPARM+15!, DIV+7, DIV+8, DIV+13!, DLINKS+1!, DLINKS+2, DLINKS+17!, DLINKS+18, DLINKS+20! , LINKS+14!, LINKS+15, LINKS+17!, GET+10!, GET+11, DV+2~, DV+4
Y(0	DIV+9, DV+4
ZLNK	ALPBPARM+2~, DLINKS+5!, DLINKS+6, DLINKS+7, DLINKS+21!
ZLNK("LINKS"	DLINKS+9, DLINKS+10, DLINKS+11

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBPARM

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: