Routine: ALPBFRMU

Information

ALPBFRMU ;OIFO-DALLAS MW,SED,KC-PRINT FORMATTING UTILITIES;01/01/03

Source Information

Source file <ALPBFRMU.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	2	($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
Barcode Medication Administration	1	$$PAD^ALPBUTL

Caller Graph

Caller Graph Total: 6

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

Entry Points

Name	Comments	DBIA/ICR reference
FOOT	; print page footer (note: output is 5 lines)... ; code adapted from original routine ^ALPFOOT by FD@NJHCS, May 2002
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

External References

Name	Field # of Occurrence
$$PAD^ALPBUTL	HDR+10, HDR+11, HDR+13, HDR+14, HDR+15, HDR+17, HDR+18, HDR+20, HDR+41
$$FMTE^XLFDT	HDR+9, HDR+14, HDR+21
$$NOW^XLFDT	HDR+9
$$REPEAT^XLFSTR	FOOT+9, FOOT+14, FOOT+19, FOOT+24

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: ?50,"INJECTION SITES (Right or Left)" Line Location: FOOT+6
Function Call: WRITE	Prompt: ?88,"VA FORM 10-2970" Line Location: FOOT+7
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+8
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",38) Line Location: FOOT+9
Function Call: WRITE	Prompt: ?40,"\|_______\| 1. DELTOID" Line Location: FOOT+10
Function Call: WRITE	Prompt: ?71,"4. MED (ANTERIOR) THIGH" Line Location: FOOT+11
Function Call: WRITE	Prompt: ?96,"7. ABDOMEN" Line Location: FOOT+12
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+13
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",38) Line Location: FOOT+14
Function Call: WRITE	Prompt: ?40,"\|_______\| 2. VENTRAL GLUTEAL" Line Location: FOOT+15
Function Call: WRITE	Prompt: ?71,"5. VASTUS LATERALIS" Line Location: FOOT+16
Function Call: WRITE	Prompt: ?96,"8. THIGH" Line Location: FOOT+17
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+18
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",38) Line Location: FOOT+19
Function Call: WRITE	Prompt: ?40,"\|_______\| 3. GLUTEUS MEDIUS" Line Location: FOOT+20
Function Call: WRITE	Prompt: ?71,"6. UPPER ARM" Line Location: FOOT+21
Function Call: WRITE	Prompt: ?96,"9. BUTTOCK" Line Location: FOOT+22
Function Call: WRITE	Prompt: !,"\|" Line Location: FOOT+23
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("_",38) Line Location: FOOT+24
Function Call: WRITE	Prompt: ?40,"\|_______\|10. UPPER BACK PRN: E=Effective N=Not Effective" Line Location: FOOT+25

Local Variables

Name	Field # of Occurrence
ALPBALG	HDR+7~, HDR+35*, HDR+36!, HDR+37, HDR+42
ALPBALGL	HDR+7~, HDR+32*, HDR+41
ALPBALGX	HDR+7~, HDR+31, HDR+32, HDR+37, HDR+40, HDR+41, HDR+42, HDR+43
>> ALPBCNT	HDR+33*
ALPBTEMP	FTEXT+10~, FTEXT+32
ALPBTEMP(	FTEXT+17, FTEXT+26, FTEXT+31*
ALPBX	HDR+7~, HDR+33, HDR+34, HDR+35, HDR+42
COL	FTEXT~, FTEXT+9, FTEXT+20, FTEXT+28
DATA	FTEXT+14*, FTEXT+15, FTEXT+18, FTEXT+19, HDR~
DATA(0	HDR+12, HDR+13, HDR+14, HDR+15, HDR+16, HDR+17, HDR+18, HDR+21
DATA(1	HDR+24, HDR+28, HDR+34, HDR+35, HDR+42
FSTRING	FTEXT+10~, FTEXT+21, FTEXT+23, FTEXT+26, FTEXT+27*
I	FTEXT+10~, FTEXT+11, FTEXT+13, FTEXT+14
J	FTEXT+10~, FTEXT+11, FTEXT+16, FTEXT+17, FTEXT+25, FTEXT+26, FTEXT+30, FTEXT+31
L	FTEXT+10~, FTEXT+18*, FTEXT+19
LINE	HDR+7~, HDR+22, HDR+26, HDR+27, HDR+29, HDR+30, HDR+38, HDR+39, HDR+43, HDR+44
M	FTEXT+10~, FTEXT+22*, FTEXT+23, FTEXT+24
PG	HDR~, HDR+8*, HDR+11
RESULTS	FTEXT~, FTEXT+32*, HDR~
RESULTS(	HDR+26, HDR+27, HDR+30, HDR+39, HDR+43*
RESULTS(0	HDR+44*
RESULTS(1	HDR+9, HDR+10, HDR+11*
RESULTS(2	HDR+12, HDR+13, HDR+14, HDR+15
RESULTS(3	HDR+16, HDR+17, HDR+18*
RESULTS(4	HDR+19, HDR+20, HDR+21*
TEXT	FTEXT~, FTEXT+9
TEXT(	FTEXT+13, FTEXT+14
XSTRING	FTEXT+10~, FTEXT+12, FTEXT+19, FTEXT+20, FTEXT+21, FTEXT+22, FTEXT+23, FTEXT+24, FTEXT+28, FTEXT+29 , FTEXT+31

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Barcode Medication Administration

Routine: ALPBFRMU

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Local Variables

Legend: