Routine: APSSLIC

Entry Points

Name	Comments	DBIA/ICR reference
1	; the LOCATION file# (9999999.06) must have the state defined in field .23
SNAME(CLIN)	; Site Name
EP1(APSSPIEN,APSSMETH)	;MDM - Main entry point
SDEA(CLIN)	; Site DEA Number
PADDR(PAT)	; Patient Address

Name	Field # of Occurrence
$$GET1^DIQ	1+1, 1+11, 1+12, 1+13, SDEA+2, SDEA+4, SDEA+5, SDEA+6, SNAME+3, SNAME+4
GETS^DIQ	PADDR+3
$$SITE^VASITE	SDEA+2, SDEA+6, SNAME+2, SNAME+5
$$FMTE^XLFDT	1+14

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	1+7

Name	Field # of Occurrence
ADDR	PADDR+1~, PADDR+4*, PADDR+5
ADDR1	PADDR+1~
ADDR2	PADDR+1~
ADDR3	PADDR+1~
APSSDAT	EP1+37~
APSSEDT	EP1+37~, 1+14*
APSSENT	EP1+37~, EP1+42, 1+7, 1+9
APSSEXIT	EP1+37~, EP1+42, 1+7, 1+21, 1+25, 1+29
APSSFLOC	EP1+37~, 1+1*, 1+4, 1+21, 1+25
APSSIDT	EP1+37~, 1+13*, 1+14, 1+19, 1+21, 1+25, 1+29
APSSKEY	EP1+37~, 1+9*, 1+11, 1+12, 1+13
APSSLNO	EP1+37~, EP1+42, 1+4, 1+21, 1+25, 1+29, 1+35*, 1+37
APSSMETH	EP1~, EP1+5, 1+4, 1+17, 1+23, 1+27, 1+35
APSSPIEN	EP1~, EP1+3, 1+7, 1+9
APSSTATE	EP1+37~, 1+11*, 1+21, 1+25
APSSTMP	EP1+38~, EP1+42, 1+12, 1+19, 1+21, 1+25, 1+29, 1+35
APSSTMP1	EP1+38~, 1+19*
CITY	PADDR+1~
CLIN	SDEA~, SDEA+2, SDEA+4, SNAME~, SNAME+2, SNAME+3
DT	1+19, 1+21, 1+25, 1+29
DUZ(2	1+1
>> IENS	PADDR+2*, PADDR+3, PADDR+4
INST	SDEA+1~, SDEA+4, SDEA+5, SNAME+1~, SNAME+3, SNAME+4
PADDR	PADDR+1~
PADDR(2	PADDR+4
PAT	PADDR~, PADDR+2
SDEA	SDEA+1~, SDEA+3, SDEA+5, SDEA+6*, SDEA+7
SNAME	SNAME+1~, SNAME+4, SNAME+5, SNAME+6
STATE	PADDR+1~
U	SNAME+2, SNAME+5, PADDR+4
ZIP	PADDR+1~