Routine: SRSCOR

Information

SRSCOR ;B'HAM ISC/SJA - Surgery/CoreFLS API ; [ 12/6/01 8:59 AM ]

Source file <SRSCOR.m>

Package	Total	Caller Graph
Surgery	9	SROERR SROERR0 SRONEW SROPER SRSCHC2 SRSCHUN1 SRSRQST1 SRSUP1 SRSUPRQ

Name	Comments	DBIA/ICR reference
AR1	; Schedule ID
AR2	; Patient ID (DFN) and ICN
AR3	; Type of Action
AR4	; Date/Time of Surgery
AR5	; Principle CPT code & Name
AR6	; Surgeon ID & Name
AR7	; Surgical Specialty Code & Name
AR8	; Local Surgical Specialty Code & Name
AR9	; Operating Room
SEND	; Call CoreFLS API
AR12	; Scheduled by
AR13	; Entered by
AR10	; SPD Comments
AR11	; Hospital
AR16	; Attending Surgeon
CHKS(SRDA)	; Calculate checksum of SPD COMMENTS field
AR14	; IN/OUT-PATIENT STATUS
AR15	; Time Stamp
EXIT
ST(SRTN)

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ST, AR2+1
^DIC(45.3 - [#45.3]	AR7+3
^SC - [#44]	AR9+1
^SRF - [#130]	ST+3, AR5+1, AR5+2, AR5+5, AR5+6, AR5+9, AR5+10, AR5+13, AR6+1, AR10+1 , AR12+1, AR16+1, SEND+2, SEND+3, CHKS+2
^SRO(133 - [#133]	AR11+1
^SRO(137.45 - [#137.45]	AR7+1
^SRS - [#131.7]	AR9+1
^TMP("CSLSUR1"	ST+2!, AR1+1, AR2+2, AR3+1, AR4+1, AR5+1, AR5+2, AR5+6, AR5+10, AR5+13* , AR6+2, AR7+3, AR8+1, AR9+2, AR10+2, AR11+2, AR12+2, AR13+1, AR14+1, AR15+1 , AR16+2*, EXIT!
^VA(200 - [#200]	AR6+2, AR12+2, AR13+1, AR16+2

Name	Field # of Occurrence
>> %	AR15+1
ASURG	ST+1~, AR16+1*, AR16+2
DUZ	AR13+1
DYNOTE	ST+1~, SEND+1*, SEND+2
II	ST+1~, AR5+9*, AR5+13
J	CHKS+1~, CHKS+2*
JJ	ST+1~, AR5+9, AR5+10, AR5+13, AR9+1*, AR9+2
L	ST+1~, AR10+1, AR10+2, CHKS+1~, CHKS+2
LSS	ST+1~, AR7+1*, AR7+2, AR8+1
LSSC	ST+1~, AR7+1*, AR8+1
LSSN	ST+1~, AR7+1*, AR8+1
MM	ST+1~, AR5+13*
NSSIEN	ST+1~, AR7+2*, AR7+3
OCIEN	ST+1~, AR5+9*, AR5+10
OCPT	ST+1~, AR5+10*
OMIEN	ST+1~, AR5+13*
OR	ST+1~, AR9+1*
ORN	ST+1~, AR9+1*, AR9+2
PM	ST+1~, AR5+5*, AR5+6
PMIEN	ST+1~, AR5+5*, AR5+6
SPF	ST+1~, AR11+1*, AR11+2
SRCSUM	CHKS+1~, CHKS+2, CHKS+3
SRDA	CHKS~, CHKS+2
SRICN	ST+1~, AR2+1*, AR2+2
SRICPT	ST+1~, AR5+2*
SRNODE0	ST+1~, ST+3*, AR2+1, AR2+2, AR4+1, AR7+1, AR9+1, AR14+1
SRNODE30	ST+1~, ST+3*
SRNODE31	ST+1~, ST+3*, AR4+1, SEND+2
SROP	ST+1~, AR5+1, AR5+2, SEND+3
SROPER	ST+1~, SEND+3*
SRSP	ST+1~, AR12+1*, AR12+2
SRTN	ST~, ST+3, AR1+1, AR5+1, AR5+2, AR5+5, AR5+6, AR5+9, AR5+10, AR5+13 , AR6+1, AR10+1, AR11+1, AR12+1, AR16+1, SEND+2, SEND+3
>> SRTYPE	AR3+1
SURGN	ST+1~, AR6+1*, AR6+2
X	ST, AR2+1, AR10+1, AR10+2, CHKS+1~, CHKS+2