Routine: HDISVM04

Name	Comments	DBIA/ICR reference
DECODE(IN,OUT,FIND,ZERO)	;UUDecode contents of text ; Input: IN = Array containing lines of text to encode ; (FULL GLOBAL REFERENCE) ; IN(1) = "begin 644 FILENAME" ; IN(2..n) = UUEncoded line of text ; IN(n+1) = "`" ; IN(n+2) = "end" ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; FIND = Flag indicating if the "begin 644 FILENAME" line ; must be found. A value of 1 will cause this utility ; to order through the nodes of the array until the ; beginning line is found. A value of 0 will cause ; this utility to assume that node IN(1) is the ; beginning node. ; (DEFAULTS TO 0) ; ZERO = Flag indicating if the input array stores it's data ; on a zero node. A value of 1 denotes that the ; uuencoded data is stored in IN(node,0). A value of ; 0 denotes that the uuencoded data is not. ; (DEFAULTS TO 0)
UUD4(CHARS)	;UUDecode 4 characters ; Input: CHARS = Characters to uudecode
APPEND(TEXT,WORKING,OUT,OUTNODE,FORCE)	;Append text to running text ; Input: TEXT = Text to append to uudecoded output array ; WORKING = Text that hasn't been added to output array yet ; but is uudencoded. Text is added to the output ; array 245 characters at a time. ; (PASS BY REFERENCE) ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; OUTNODE = Node in OUT to store uudecoded text into ; (PASS BY REFERENCE) ; FORCE = Flag indicating that a carriage return / line feed ; was encountered and all of the uudecoded text passed ; in should be stored in the output array. Passing a ; value of 1 will force storage and incrementing of ; OUTNODE. Passing a value of 0 will only store data ; in the output array if the running text exceeds 245 ; characters. ; (DEFAULTS TO 0)
STORE(TEXT,OUT,NODE)	;Store text in uudecoded array ; Input: TEXT = Text to append to uudecoded output array ; OUT = Array to put uudecoded text into ; (FULL GLOBAL REFERENCE) ; NODE = Node in OUT to store uudecoded text into

Name

Comments

DBIA/ICR reference

;UUDecode contents of text
; Input: IN = Array containing lines of text to encode
; (FULL GLOBAL REFERENCE)
; IN(1) = "begin 644 FILENAME"
; IN(2..n) = UUEncoded line of text
; IN(n+1) = "`"
; IN(n+2) = "end"
; OUT = Array to put uudecoded text into
; (FULL GLOBAL REFERENCE)
; FIND = Flag indicating if the "begin 644 FILENAME" line
; must be found. A value of 1 will cause this utility
; to order through the nodes of the array until the
; beginning line is found. A value of 0 will cause
; this utility to assume that node IN(1) is the
; beginning node.
; (DEFAULTS TO 0)
; ZERO = Flag indicating if the input array stores it's data
; on a zero node. A value of 1 denotes that the
; uuencoded data is stored in IN(node,0). A value of
; 0 denotes that the uuencoded data is not.
; (DEFAULTS TO 0)

UUD4(CHARS)

;UUDecode 4 characters
; Input: CHARS = Characters to uudecode

APPEND(TEXT,WORKING,OUT,OUTNODE,FORCE)

;Append text to running text
; Input: TEXT = Text to append to uudecoded output array
; WORKING = Text that hasn't been added to output array yet
; but is uudencoded. Text is added to the output
; array 245 characters at a time.
; (PASS BY REFERENCE)
; OUT = Array to put uudecoded text into
; (FULL GLOBAL REFERENCE)
; OUTNODE = Node in OUT to store uudecoded text into
; (PASS BY REFERENCE)
; FORCE = Flag indicating that a carriage return / line feed
; was encountered and all of the uudecoded text passed
; in should be stored in the output array. Passing a
; value of 1 will force storage and incrementing of
; OUTNODE. Passing a value of 0 will only store data
; in the output array if the running text exceeds 245
; characters.
; (DEFAULTS TO 0)

STORE(TEXT,OUT,NODE)

;Store text in uudecoded array
; Input: TEXT = Text to append to uudecoded output array
; OUT = Array to put uudecoded text into
; (FULL GLOBAL REFERENCE)
; NODE = Node in OUT to store uudecoded text into

Customize PDF page

Package: Health Data and Informatics

Routine: HDISVM04

Information

Source Information

Entry Points