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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ALPBUTL

Package: Barcode Medication Administration

Routine: ALPBUTL


Information

ALPBUTL ;OIFO-DALLAS MW,SED,KC-BCMA BCBU REPORT FUNCTIONS AND UTILITIES ;2/28/13 8:13am

Source Information

Source file <ALPBUTL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 $$FMTE^XLFDT  $$LEAP^XLFDT2  $$UP^XLFSTR  
Barcode Medication Administration 2 CLEAN^ALPBUTL1  $$ERRCT^ALPBUTL2  
VA FileMan 2 C^%DTC  ^DIK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Barcode Medication Administration 15 ALPBBK  ALPBELOG  ALPBFRM1  ALPBFRM2  ALPBFRMU  ALPBHL1  ALPBPALL  ALPBPCLN  
ALPBPPAT  ALPBPWRD  ALPBSP1  ALPBSPAT  ALPBSWRD  PSB BCBU WARD LIST  PSB BCBU WRKSTN MAIN  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
DEFPRT() ; fetch and return default printer...
; returns default printer entry from Device file based on entry in
; DEFAULT MAR PRINTER field in BCMA BACKUP PARAMETERS file (53.71)
STATUS ; return last update date/time and count of any errors...
FDAYS(START,DAYS,SPACE) ; format a sequence of DAYS beginning with START separated by SPACE...
; START = a date in FileMan internal format from which the formatted string will start
; DAYS = the number of consecutive days to return in the formatted string
; SPACE = the number of spaces between each number in the formatted string
; (if not passed, defaults to 4 spaces)
; returns a formatted string (example: 1 2 3)
DELPT(IEN) ; delete a patient's entire record...
; IEN = patient's record number in file 53.7
WARDSEL(WARD,RESULTS) ; find a selected ward...
; WARD = a string representing a ward input by the user
; RESULTS = an array passed by reference in which possible matches are stored
; returns possible matches for the WARD in RESULTS
FDATE(X) ; special format for a FileMan date/time...
; X = date and time (time is optional) in FileMan format
; returns the FileMan date/time in the format MM/DD/YY@HH:MM
WARDLIST(DTYPE) ; list of wards on file...
; DTYPE = 'C' for vertical (columnar) list
; 'L' for horizontal list
ORDS(IEN,DATE,RESULTS,CO,INCLIM) ; retrieve orders for a given patient... *73
; IEN = patient's record number in file 53.7
; DATE = the date/time used to determine whether all or only current
; orders are returned:
; >passed as a date/time in FileMan internal format -- only orders
; with a stop date/time equal to or greater than DATE are returned
; >passed = "" then all orders are returned regardless of status
; returns RESULTS(order# ien) -- note: RESULTS(0)=count of active orders
; *73 add 2 new input varaibles below
; CO = Clinic name selected to match for return orders, if clinic
; report requested.
; INCLIM = Include IM orders for a CO report request. Y or N
FMONS(START,DAYS,SPACE) ; format a sequence of months given a START date separated by SPACE...
; START = a date in FileMan internal format the month of which will be the string starting point
; DAYS = the number of days that will be displayed
; SPACE = the number of spaces between each month (defaults to 1 space)
; returns a string equal to the month or months depending upon the number of days passed
; for example: if START=3021031 (Oct 31, 2002) and DAYS=3 then two month names will be
; returned: OCT NOV
CLINSEL(CLIN,RESULTS) ; find a selected Clinic...
; CLIN = a string representing a clinic input by the user
; RESULTS = an array passed by reference in which possible matches
; are stored
; returns possible matches for the CLIN in RESULTS
OTYP(CODE) ; expand order type for printing...
; CODE = a character representing an order type
; returns expanded order type from ^DD(53.79,6,0)
MLRANGE(IEN) ; find first and last Med Log entries' date/time...
; IEN = patient's record number in file 53.7
; returns a delimited string = first Med Log date/time^last Med Log date/time
DELORD(IEN,OIEN) ; delete an order from a patient's record...
; IEN = patient's record number in file 53.7
; OIEN = order number's record number
CLINLIST(DTYPE) ; list of Clinics on file...
; DTYPE = 'C' for vertical (columnar) list
; 'L' for horizontal list
DEFDAYS() ; fetch and return default days for MAR printing...
; returns default number of days to print MARs based on entry in
; DEFAULT DAYS FOR MAR field in BCMA BACKUP PARAMETERS file (53.71)
; if null or undefined, returns default of 3 (days)
DIM(X) ; number of days in a specified month...
; X = a date in internal FileMan format (can be partial: YYYMM)
; returns a number representing the number of days in month X
MONN(X) ; month name...
; X = month number (1-12)
; returns name of month specified in X
PAD(STRING,SPACES) ; pad a string...
; STRING = a string passed by reference
; SPACES = number of spaces to concatenate onto STRING
; returns STRING padded with SPACES number of blank spaces
FDATES(START,DAYS,RESULTS) ;

External References

Name Field # of Occurrence
C^%DTC FDATES+5
CLEAN^ALPBUTL1 DELPT+7
$$ERRCT^ALPBUTL2 STATUS+5
^DIK DELPT+4, DELORD+5
$$FMTE^XLFDT FDATE+5, STATUS+4
$$LEAP^XLFDT2 DIM+11
$$UP^XLFSTR WARDSEL+15, CLINSEL+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Wards with BCMA Backup Data on this workstation:",!
  • Line Location: WARDLIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WARDLIST+9
Function Call: WRITE
  • Prompt: ", "
  • Line Location: WARDLIST+11
Function Call: WRITE
  • Prompt: !,"NOTICE! There is no entry in the BCMA BACKUP PARAMETERS FILE!"
  • Line Location: STATUS+3
Function Call: WRITE
  • Prompt: !,"NOTICE! ",ALPBCNT_" filing error"_$S(ALPBCNT=1:" has",1:"s have")_" been logged."
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !,"Clinics with BCMA Backup Data on this workstation:",!
  • Line Location: CLINLIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLINLIST+9
Function Call: WRITE
  • Prompt: ", "
  • Line Location: CLINLIST+11
Function Call: WRITE
  • Prompt: !,"No Clinics on file",!
  • Line Location: CLINLIST+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ALPB(53.7 - [#53.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] DEFPRT+6
^ALPB(53.7 - [#53.7] MLRANGE+4, MLRANGE+7, WARDLIST+7, WARDLIST+11, WARDSEL+7, WARDSEL+17, ORDS+17, ORDS+18, ORDS+19, ORDS+20
, ORDS+21, ORDS+40, ORDS+42, ORDS+44, ORDS+46, ORDS+48, ORDS+50, ORDS+52, ORDS+54, ORDS+56
, CLINLIST+7, CLINLIST+11, CLINLIST+13, CLINSEL+8, CLINSEL+18
^ALPB(53.71 - [#53.71] DEFPRT+4, DEFPRT+6, DEFDAYS+5, DEFDAYS+7, STATUS+2, STATUS+4

Label References

Name Line Occurrences
$$DIM FDAYS+11, FMONS+12, FMONS+22
$$MONN FMONS+13, FMONS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALPBCLIN CLINLIST+4~, CLINLIST+6*, CLINLIST+7*, CLINLIST+9, CLINLIST+10, CLINLIST+11, CLINLIST+12, CLINSEL+5~, CLINSEL+7*, CLINSEL+8*
, CLINSEL+9, CLINSEL+10, CLINSEL+11, CLINSEL+12, CLINSEL+17*, CLINSEL+18*, CLINSEL+19, CLINSEL+20, CLINSEL+21, CLINSEL+22
ALPBCNT STATUS+1~, STATUS+5*, STATUS+6
ALPBPARM STATUS+1~, STATUS+2*, STATUS+3, STATUS+4
ALPBWARD WARDLIST+4~, WARDLIST+6*, WARDLIST+7*, WARDLIST+9, WARDLIST+10, WARDLIST+11, WARDLIST+12, WARDSEL+4~, WARDSEL+6*, WARDSEL+7*
, WARDSEL+8, WARDSEL+9, WARDSEL+10, WARDSEL+11, WARDSEL+16*, WARDSEL+17*, WARDSEL+18, WARDSEL+19, WARDSEL+20, WARDSEL+21
ALPBX WARDSEL+4~, ORDS+15~, ORDS+41*, ORDS+42*, ORDS+44, ORDS+47*, ORDS+48*, ORDS+50, ORDS+53*, ORDS+54*
, ORDS+56, CLINSEL+5~
ALPBY ORDS+15~, ORDS+43*, ORDS+44, ORDS+45, ORDS+49*, ORDS+50, ORDS+51, ORDS+55*, ORDS+56, ORDS+57
ALPTOTCL CLINLIST+4~, CLINLIST+10*
CLIN CLINSEL~, CLINSEL+9, CLINSEL+11, CLINSEL+16*, CLINSEL+19, CLINSEL+21
CLNAM ORDS+15~, ORDS+24*, ORDS+25, ORDS+26
CO ORDS~, ORDS+13*, ORDS+24, ORDS+25, ORDS+26
CODE OTYP~, OTYP+3, OTYP+4
DA DELPT+2~, DELPT+3*, DELORD+3~, DELORD+4*
DA(1 DELORD+4*
DATE FDATE+3~, FDATE+4*, FDATE+6*, FDATE+7, ORDS~, ORDS+29, ORDS+31
DAYS FDAYS~, FDAYS+7, FDAYS+12, FMONS~, FMONS+8, FMONS+14, FMONS+15, FDATES~, FDATES+3, DIM+4~
, DIM+7*, DIM+11*, DIM+12
DIK DELPT+2~, DELPT+3*, DELORD+3~, DELORD+4*
DIM FDAYS+6~, FDAYS+11*, FDAYS+14, FMONS+7~, FMONS+12*, FMONS+14, FMONS+18, FMONS+22*
DTYPE WARDLIST~, WARDLIST+3*, WARDLIST+8, CLINLIST~, CLINLIST+3*, CLINLIST+8
FIRST MLRANGE+3~, MLRANGE+4*, MLRANGE+5, MLRANGE+6*, MLRANGE+9, MLRANGE+10
FMDATE FDATE+3~, FDATE+5*, FDATE+6
I PAD+4~, PAD+7*, FDAYS+6~, FDAYS+10*, FDAYS+12*, FDAYS+16, FMONS+7~, FMONS+11*, FMONS+15*, FMONS+23*
, FMONS+24, FDATES+1~, FDATES+3*, FDATES+4, FDATES+6
IEN MLRANGE~, MLRANGE+4, MLRANGE+7, ORDS~, ORDS+14, ORDS+17, ORDS+18, ORDS+19, ORDS+20, ORDS+21
, ORDS+40, ORDS+42, ORDS+44, ORDS+46, ORDS+48, ORDS+50, ORDS+52, ORDS+54, ORDS+56, DELPT~
, DELPT+3, DELPT+7, DELORD~, DELORD+4
INCLIM ORDS~, ORDS+13*, ORDS+26
IOM WARDLIST+9, CLINLIST+9
J FDAYS+6~, FDAYS+17*, FMONS+7~
LAST MLRANGE+3~, MLRANGE+7*, MLRANGE+8*, MLRANGE+9, MLRANGE+10
MON FMONS+7~, FMONS+13*, FMONS+21*, DIM+4~, DIM+5*, DIM+6, DIM+7, DIM+9
MON1 FMONS+7~, FMONS+12*, FMONS+13, FMONS+19*, FMONS+20*, FMONS+21, FMONS+22
NEXTMON FMONS+7~
OIEN DELORD~, DELORD+4
ORDERDAT ORDS+15~, ORDS+25!, ORDS+26!, ORDS+29!, ORDS+31!
ORDERDAT(0 ORDS+18*, ORDS+22, ORDS+24, ORDS+33, ORDS+34
ORDERDAT(1 ORDS+19*, ORDS+29
ORDERDAT(3 ORDS+20*, ORDS+35
ORDERDAT(4 ORDS+21*, ORDS+39
>> ORDERIEN ORDS+16*, ORDS+17*, ORDS+18, ORDS+19, ORDS+20, ORDS+21, ORDS+33, ORDS+34, ORDS+35, ORDS+36
, ORDS+37, ORDS+39, ORDS+40, ORDS+42, ORDS+43, ORDS+44, ORDS+45, ORDS+46, ORDS+48, ORDS+49
, ORDS+50, ORDS+51, ORDS+52, ORDS+54, ORDS+55, ORDS+56, ORDS+57
ORDERST ORDS+15~, ORDS+22*, ORDS+31, ORDS+36
ORIEN ORDS+15~
RESULT PAD+4~, PAD+7*, PAD+8, FDAYS+6~, FDAYS+9*, FDAYS+10*, FDAYS+15*, FDAYS+17*, FDAYS+18, FMONS+7~
, FMONS+13*, FMONS+14, FMONS+16*, FMONS+21*, FMONS+23, FMONS+24*, FMONS+25
RESULTS FDATES~, WARDSEL~, ORDS~, CLINSEL~
RESULTS( FDATES+6*, WARDSEL+9*, WARDSEL+11*, WARDSEL+19*, WARDSEL+21*, ORDS+33*, ORDS+35*, ORDS+36*, ORDS+37*, ORDS+39*
, ORDS+43, ORDS+44*, ORDS+45*, ORDS+49, ORDS+50*, ORDS+51*, ORDS+55, ORDS+56*, ORDS+57*, CLINSEL+10*
, CLINSEL+12*, CLINSEL+20*, CLINSEL+22*
RESULTS("B" ORDS+34*
RESULTS(0 FDATES+2*, FDATES+6*, WARDSEL+5*, WARDSEL+9*, WARDSEL+11*, WARDSEL+14, WARDSEL+19*, WARDSEL+21*, ORDS+14*, ORDS+16*
, ORDS+32*, CLINSEL+6*, CLINSEL+10*, CLINSEL+12*, CLINSEL+15, CLINSEL+20*, CLINSEL+22*
RESULTS(1 FDATES+2*
SPACE FDAYS~, FDAYS+8*, FDAYS+10, FDAYS+17, FMONS~, FMONS+9*, FMONS+11
SPACES PAD~, PAD+6, PAD+7
START FDAYS~, FDAYS+7, FDAYS+9, FDAYS+11, FMONS~, FMONS+8, FMONS+12, FMONS+22, FDATES~, FDATES+2
, FDATES+4
STRING PAD~, PAD+5*, PAD+6, PAD+7
TODAY FDAYS+6~, FDAYS+9*, FDAYS+13*, FDAYS+14*, FDAYS+15, FMONS+7~, FMONS+12*, FMONS+14, FMONS+17*, FMONS+18
, FMONS+22*
U DEFPRT+6, ORDS+24
WARD WARDSEL~, WARDSEL+8, WARDSEL+10, WARDSEL+15*, WARDSEL+18, WARDSEL+20
X DEFPRT+3~, DEFPRT+4*, DEFPRT+5, DEFPRT+6, DEFDAYS+4~, DEFDAYS+5*, DEFDAYS+6, DEFDAYS+7, FDATES+1~, FDATES+6
, FDATES+7!, DIM~, DIM+3, DIM+5, DIM+10, MONN~, MONN+3, MONN+4*, MONN+5, FDATE~
, FDATE+4, FDATE+5, DELPT+2~, DELORD+3~
X1 FDATES+1~, FDATES+4*, FDATES+7!
X2 FDATES+1~, FDATES+4*, FDATES+7!
XSPACE FMONS+7~, FMONS+10*, FMONS+11*, FMONS+16, FMONS+24
>> XSTRIP FMONS+10*, FMONS+11*, FMONS+24
Y DELPT+2~, DELORD+3~
YEAR DIM+4~, DIM+10*, DIM+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All