Routine: SDOECPT

Information

SDOECPT ;ALB/MJK - ACRP CPT APIs For An Encounter ;8/12/96

Source file <SDOECPT.m>

Package	Total	Call Graph
Scheduling	3	$$VALOE^SDOEOE ($$OLD,$$VIEN)^SDOEUT BLD^SDQVAL
DRG Grouper	1	$$CPT^ICPTCOD
PCE Patient Care Encounter	1	($$CPT,CPTARR)^PXAPIOE

Package	Total	Caller Graph
Scheduling	2	SDOE SDOERPC

Name	Comments	DBIA/ICR reference
VALCPT(SDCPTID,SDERR)	; -- validate CPT input
CPTQ
GETCPTG	; -- goto entry point ; -- do validation checks
OLDCPT(SDOE)	; -- at least one cpt for OLD encounter?
OLDCPTS(SDOE,SDARY)	; -- get cpt's for OLD encounter
FINDCPT(SDOE,SDCPTID,SDERR)	; -- SDOE FIND PROCEDURE ; API ID: 71
CPT(SDOE,SDERR)	; -- SDOE ASSIGNED A PROCEDURE ; API ID: 65
GETCPT(SDOE,SDCPT,SDERR)	; -- SDOE GET PROCEDURES ; API ID: 61
FINDCPTQ
COUNT(SDOE,SDZARY)	; -- count/find cpt's for OLD encounter
GETCPTQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	COUNT+15
^SCE - [#409.68]	COUNT+2
^SDV - [#409.5]	COUNT+8, COUNT+9, COUNT+10
^SDV("ADT"	COUNT+6

Name	Field # of Occurrence
I	FINDCPT+4~, FINDCPT+12, FINDCPT+13, COUNT+1~, COUNT+17*
MODNODE	GETCPTG+6~, GETCPTG+8, GETCPTG+11
SDARY	OLDCPTS~, OLDCPTS+8, OLDCPTS+9
SDATE	COUNT+1~, COUNT+4*, COUNT+6
SDCL	COUNT+1~, COUNT+5*, COUNT+15
SDCNT	OLDCPTS+1~, OLDCPTS+3, OLDCPTS+5, OLDCPTS+9
SDCPT	GETCPT~, GETCPTG+3, GETCPTG+7, GETCPTG+11
SDCPTID	FINDCPT~, FINDCPT+8, FINDCPT+13, VALCPT~, VALCPT+4, VALCPT+8, VALCPT+9
SDCPTS	FINDCPT+4~, FINDCPT+5*, FINDCPT+11
SDCPTS(	FINDCPT+13
SDERR	CPT~, CPT+8, CPT+11, GETCPT~, GETCPTG+2, GETCPTG+7, FINDCPT~, FINDCPT+8, FINDCPT+11, VALCPT~ , VALCPT+10
SDFN	COUNT+1~, COUNT+3*, COUNT+6
SDIEN	OLDCPTS+1~, OLDCPTS+3, OLDCPTS+4, OLDCPTS+5, OLDCPTS+6, OLDCPTS+8
SDIN	VALCPT+7~, VALCPT+10
SDIN("ID"	VALCPT+8*
SDOE	CPT~, CPT+8, CPT+9, CPT+11, GETCPT~, GETCPTG+2, GETCPTG+3, GETCPTG+7, FINDCPT~, FINDCPT+11 , OLDCPT~, OLDCPT+2, OLDCPTS~, OLDCPTS+2, COUNT~, COUNT+2
SDOE0	COUNT+1~, COUNT+2*, COUNT+3, COUNT+4, COUNT+5
SDOK	CPT+4~, CPT+5, CPT+9, CPT+11, CPTQ, FINDCPT+4~, FINDCPT+8, FINDCPT+12, FINDCPT+13, FINDCPTQ
SDOUT	VALCPT+7~, VALCPT+10
SDOUT("ID"	VALCPT+9*
SDPR	COUNT+1~, COUNT+10*, COUNT+17
SDPROC	COUNT+1~, COUNT+17*
SDSC	COUNT+1~, COUNT+8*, COUNT+9, COUNT+10
SDSC0	COUNT+1~, COUNT+9*, COUNT+15
SDT	COUNT+1~, COUNT+6*, COUNT+8, COUNT+9, COUNT+10
SDXARY	OLDCPT+1~, OLDCPT+3
SDYARY	OLDCPTS+1~
SDYARY(	OLDCPTS+4, OLDCPTS+5
SDZARY	COUNT~, COUNT+17
U	OLDCPTS+6, OLDCPTS+7, COUNT+3, COUNT+5, COUNT+15, COUNT+17
X	OLDCPTS+1~, OLDCPTS+5*, OLDCPTS+7
Y	OLDCPTS+1~, OLDCPTS+6, OLDCPTS+7, OLDCPTS+8