Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ALPBFRMU

Package: Barcode Medication Administration

Routine: ALPBFRMU


Information

ALPBFRMU ;OIFO-DALLAS MW,SED,KC-PRINT FORMATTING UTILITIES;03/06/16 3:06pm

Source Information

Source file <ALPBFRMU.m>

Entry Points

Name Comments DBIA/ICR reference
FTEXT(COL,TEXT,RESULTS) ; format TEXT array...
; COL = number of columns (line length)
; TEXT = array to be reformatted. the array should be in
; standard FM format: TEXT(1,0)=text
; TEXT(2,0)=text
; TEXT(n,0)=text
; RESULT = array passed by reference into which reformatted text
; will be returned: RESULTS(1,0)=formatted text to COL length
; RESULTS(2,0)=formatted text to COL length
HDR(DATA,PG,RESULTS) ; print page header...
; DATA = an array passed by reference containing the nodes in
; a patient's record in ^ALPB(53.7,...)
; PG = page number to use
; RESULTS = an array passed by reference that will be used to return
; the formated data
; returns data in formated 132-column output
FOOT ; print page footer (note: output is 5 lines)...
; code adapted from original routine ^ALPFOOT by FD@NJHCS, May 2002

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: ?13,"SIGNATURE/TITLE"
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: ?40,"| INIT"
  • Line Location: FOOT+4
Function Call: WRITE
  • Prompt: ?48,"|"
  • Line Location: FOOT+5
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: FOOT+6
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",38)
  • Line Location: FOOT+7
Function Call: WRITE
  • Prompt: ?40,"|_______|"
  • Line Location: FOOT+8
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: FOOT+9
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",38)
  • Line Location: FOOT+10
Function Call: WRITE
  • Prompt: ?40,"|_______|"
  • Line Location: FOOT+11
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: FOOT+12
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",38)
  • Line Location: FOOT+13
Function Call: WRITE
  • Prompt: ?40,"|_______|"
  • Line Location: FOOT+14
Function Call: WRITE
  • Prompt: !,"|"
  • Line Location: FOOT+15
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",38)
  • Line Location: FOOT+16
Function Call: WRITE
  • Prompt: ?40,"|_______|"
  • Line Location: FOOT+17
Info |  Source |  Entry Points |  Interaction Calls