Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ALPBPARM

Package: Barcode Medication Administration

Routine: ALPBPARM


Information

ALPBPARM ;SFVAMC/JC - Parameter Definitions ;05/02/2003 15:24

Source Information

Source file <ALPBPARM.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 5

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All