Routine: VAFHLPID

Information

VAFHLPID ;ALB/MLI/ESD - Create generic PID segment ; 21 Nov 2002 3:13 PM

Source file <VAFHLPID.m>

Package	Total	Call Graph
Registration	4	(4,KVA)^VADPT ($$SEQ3,SEQ10,SEQ22)^VAFHLPI1 SEQ11^VAFHLPI2 MAKEIT^VAFHLU
Health Level Seven	1	($$HLDATE,$$HLPHONE,$$M10)^HLFNC
Kernel	1	$$HLNAME^XLFNAME

Package	Total	Caller Graph
Registration	10	DGMSTHL7 DGPFHLU DGQEHL73 DGQEHLS VAFHADT2 VAFHCA08 VAFHCOPT VAFHLA04 VAFHLA34 VAFHQRY
Automated Lab Instruments	4	LA7DVC LA7DVM LA7VORR1 LA7VPID
Controlled Substances	2	PSDADT PSDADT1
Electronic Dental Record	2	BADEHL1 BADEHLI
Radiology Nuclear Medicine	2	RAHLR RAHLRPTT
Surgery	2	SRHLUO SRHLVUO
Barcode Medication Administration	1	ALPBINP
IHS Changes To Pharmacy	1	APSPES1
Lab Service	1	LREPI3
Outpatient Pharmacy	1	PSOHLSG1
Patient Care Component Surveillance	1	APCSHLOC
Scheduling	1	SDRPA07

Name	Comments	DBIA/ICR reference
QUIT
EN(DFN,VAFSTR,VAFNUM,PTID)	; returns PID segment ; Input - DFN as internal entry number of the PATIENT file ; VAFSTR as string of fields requested separated by commas ; VAFNUM as sequential number for SET ID (default=1) ; PTID is flag denoting which Patient ID (seq 3) to use ; 0 - Use DFN formatted as data type CK (default) ; 1 - Use ICN ; 2 - Use DFN formatted as data type CX ; 3 - Use SSN (with dashes)	ICR #263 Status: Active Usage: Supported

Name	Line Occurrences (* Changed, ! Killed)
^DIC(11 - [#11]	EN+72
^DIC(13 - [#13]	EN+74
^DIC(5 - [#5]	EN+65
^DPT - [#2]	EN+66

Name	Line Occurrences
QUIT	EN+24

Name	Field # of Occurrence
DFN	EN~, EN+23*, EN+24, EN+35, EN+38, EN+42, EN+46, EN+66
DGMMN	EN+21~, EN+47
DGMMN("FIELD"	EN+46*
DGMMN("FILE"	EN+46*
DGMMN("IENS"	EN+46*
DGNAME	EN+21~, EN+43
DGNAME("FIELD"	EN+42*
DGNAME("FILE"	EN+42*
DGNAME("IENS"	EN+42*
>> HLECH	EN+38, EN+43, EN+47
>> HLQ	EN+32, EN+38, EN+40, EN+43, EN+47, EN+57, EN+63, EN+65, EN+68, EN+70 , EN+72, EN+76, EN+82
HOW	EN+54~, EN+56, EN+57, EN+60~, EN+62, EN+63, EN+79~, EN+81*, EN+82
I	EN+21~
OUTPUT	EN+21~, QUIT+1, QUIT+2
PTID	EN~, EN+34*, EN+35, EN+36, EN+37
VA	EN+21~
VA("BID"	EN+40
VA("PID"	EN+32
VADM	EN+21~
VADM(10	EN+72
VADM(2	EN+76
VADM(3	EN+49
VADM(5	EN+51
VADM(9	EN+74
VAFNUM	EN~, EN+30
>> VAFPID	QUIT+1
VAFSTR	EN~, EN+22, EN+27, EN+30, EN+32, EN+40, EN+45, EN+49, EN+51, EN+53 , EN+55, EN+56, EN+59, EN+61, EN+62, EN+65, EN+68, EN+70, EN+72, EN+74 , EN+76, EN+78, EN+80, EN+81
VAFY	EN+21~, EN+28!, QUIT+1
VAFY(1	EN+30*
VAFY(12	EN+65*
VAFY(13	EN+68*
VAFY(14	EN+70*
VAFY(16	EN+72*
VAFY(17	EN+74*
VAFY(19	EN+76*
VAFY(2	EN+32*
VAFY(3	EN+35, EN+38
VAFY(4	EN+40*
VAFY(5	EN+43*
VAFY(6	EN+47*
VAFY(7	EN+49*
VAFY(8	EN+51*
VAPA	EN+21~
VAPA("P"	EN+26*
VAPA(5	EN+65
VAPA(7	EN+65
X	EN+21~, EN+32, EN+37, EN+38, EN+40, EN+43, EN+47, EN+51, EN+66, EN+68 , EN+70, EN+72, EN+74, EN+76
X1	EN+21~, EN+65, EN+68, EN+70*
Y	EN+21~, EN+55, EN+56, EN+61, EN+62, EN+80*, EN+81