Routine: ECXUTL5

Information

ECXUTL5 ;ALB/JRC - Utilities for DSS Extracts ;5/9/19 16:31

Source file <ECXUTL5.m>

Name	Comments	DBIA/ICR reference
REPEAT(CHAR,TIMES)	;REPEAT A STRING
INSERT(INSTR,OUTSTR,COLUMN,LENGTH)	;INSERT A STRING INTO ANOTHER
TYPE(DFN)	;Determine patient type DBIA #2511 ; input ; DFN = patient ien
CVEDT(DFN,DATE)	;Determine patient CV status DBIA #4156 ; input ; DFN = patient ien
NPRF	;National patient record flags DBIA #3860
RXPTST(K)	;Rx patient status DBIA #2511
NONVAP(K)	;Non-va prescriber DBIA #10060
DOIVPO(K,L)	;Add destination for outpatient ivp orders ; Input K - DFN ; L - Order # from Pharmacy Patient File (#55)
DOUDO(K,L)	;Add destination for outpatient udp orders ; Input K - DFN ; L - Order # from Pharmacy Patient File (#55)
PHAAPI(DRUG)	;Call Pharmacy drug file API dbia 4483 ; Input: drug file (#50) ien
TSSC(X)	;Check treating specialty (ts) and if ts equals any of the following
PSJ59P5(X)	;Get iv room division ; Input X - iv room ien
SCRX(IEN)	;Service connected prescription
SSN(SSN,FILE)	; extended validation of ssn ; input: ssn - social security number to validate ; file - optional "", 2 or 67, the only check is for ; reference lab file (#67) in which case ssn ; "000123456" is considered a valid ssn. ; output: 0 - test patient or invalid ssn ; 1 - valid ssn