Routine: SDAPIER

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	PAUSE^VALM1
Scheduling	1	START^SDAPIER

Package	Total	Caller Graph
Scheduling	7	SDAPI SDAPIAE0 SDAPIAP SDAPICO SDAPICO1 SDAPIDP SDAPIER

Entry Points

Name	Comments	DBIA/ICR reference
1075	;;W;STOPS;"Invalid stop code #"_+SDATA_". Code not processed."
HDR	; -- print header
9999	;;
130	;;E;CO;"Hospital Location for appointment is not a clinic. [#"_+SDATA_"]"
110	;;E;APPT;"Encounter ien not available."
PRINT	; -- print list of errors
1070	;;W;STOPS;"Invalid stop code #"_+SDATA_". Code not added."
1050	;;W;PROV;"Provider #"_+SDATA_" is not a valid IEN. Data not added."
1051	;;W;PROV;"Provider #"_+SDATA_" is not a valid IEN. Data not processed."
1052	;;W;PROV;"Deleting provider #"_+SDATA_" was not attempted. At least one provider is required for 'checked-out'."
ERRORS	; -- errors and warning messages
1078	;;W;CPT;"The number of CPT code '"_$P(SDATA,U)_"' to delete was larger than what was entered for encounter."
1076	;;W;CPT;"CPT code '"_$P(SDATA,U)_"' is not a valid code. Code not processed."
1077	;;W;STOPS;"Stop code '"_$P(SDATA,U)_"' did not exist for encounter. Nothing to delete."
1074	;;W;STOPS;"Error occurred during add/edit backdoor filing."
STARTQ
1072	;;W;CPT;"CPT code '"_$P(SDATA,U)_"' is not a valid code. Procedure data not added."
1073	;;W;CPT;"The desired number of CPT code '"_$P(SDATA,U)_"' have already been filed."
ERRCHK()	; -- check to see if error ; >1000 are warnings
1071	;;W;STOPS;"No slots remain to file stop codes and CPT procedure codes."
1	;;E;BASIC;"No event data array."
3	;;E;BASIC;"USER number [#"_+SDATA_"] is not valid."
2	;;E;BASIC;"Patient DFN [#"_+SDATA_"] is not valid."
5	;;E;BASIC;"Encounter date is null."
4	;;E;BASIC;"CLINIC number [#"_+SDATA_"] is not valid."
1030	;;W;CO;"Appointment does not need to be checked-out. (Before check-out requirement)"
1031	;;W;CO;"Patient was an inpatient at the time of appointment. ["_+SDATA_"]"
ERRFILE(SDERROR,SDATA)	; -- file error
PRINTQ
DATA(SDERROR)	; -- get error parameters
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
START	; -- print error table
102	;;E;APPT;"Not a vaild appointment slot ["_+SDATA_"] for clinic. [#"_+$P(SDATA,U,2)_"]"
103	;;E;APPT;"Current appointment status '"_$P(SDATA,U)_"' does not allow check out."
100	;;E;APPT;"Not a vaild appointment date/time ["_+SDATA_"] for patient [#"_+$P(SDATA,U,2)_"]."
101	;;E;APPT;"Patient appointment for clinic #"_+SDATA_", not clinic #"_+$P(SDATA,U,2)_", as requested."
104	;;E;APPT;"Encounter date/time ["_+SDATA_"] is greater than today. ["_DT_"]."
1043	;;W;CLASS;"Classification '"_$P(SDATA,U)_"' data is uneditable. Not updated."
1042	;;W;CLASS;"Classification '"_$P(SDATA,U)_"' is no longer required for this encounter."
1041	;;W;CLASS;"Invalid classification code passed: '"_$P(SDATA,U)_"'."
1040	;;W;CLASS;"Classification data passed but not required. No classification data was filed."
1047	;;W;CLASS;"'"_$P(SDATA,U)_"' classification data not required for this encounter. Data not filed."
1046	;;W;CLASS;"Changing 'SC' classification data may cause encounter status not to be 'checked-out'."
1045	;;W;CLASS;"Deleting classification data may cause encounter status not to be 'checked-out'."
1044	;;W;CLASS;"Data for classification '"_$P(SDATA,U)_"' is invalid. [Value:'"_$P(SDATA,U,2)_"']"
1061	;;W;DX;"Diagnosis code '"_+SDATA_"' is not a valid ICD9 code. Data not processed."
1060	;;W;DX;"Diagnosis code '"_+SDATA_"' is not a valid ICD9 code. Data not added."
1062	;;W;DX;"Deleting diagnosis code '"_+SDATA_"' was not attempted. At least one dx code is required for 'checked-out'."
1100	;;W;CO;"Appointment already checked-out."
TEST	; -- test message

Name	Line Occurrences
Function Call: READ	Prompt: "Enter error#: " Formatting: ! Timeout: DTIME Variable: ERROR Line Location: TEST+3
Function Call: WRITE	Prompt: !,Y Line Location: TEST+6
Function Call: WRITE	Prompt: !,">>> Print API Error code Table",! Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF,?25,"Outpatient API Error Code Table",?73,"Page: ",SDPAGE,!! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Code #",?10,"Type of Code",?25,"Section Affected",!,SDASH Line Location: HDR+3
Routine Call	%ZIS Line Location: PRINT+3

Name	Line Occurrences
$$DATA	ERRFILE+2, TEST+4, START+6
$$QUE	PRINT+5
HDR	START+4, START+8
PRINTQ	PRINT+3, PRINT+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+1~, PRINT+3*
DTIME	TEST+3
ERROR	TEST+1~, TEST+3*, TEST+4, TEST+5
I	ERRFILE+1~, ERRFILE+3*, ERRFILE+4
IO	START+1
IO("Q"	PRINT+4, QUE+3!
IOF	HDR+2
IOM	START+3
IOSL	START+8
IOST	HDR+1
POP	PRINT+1~, PRINT+3
SDASH	START+2~, START+3*, START+7, HDR+3
SDATA	ERRFILE~, TEST+1~, TEST+2, START+2~, START+3
SDERDAT	ERRFILE+1~, ERRFILE+2, ERRFILE+4, START+2~, START+6
>> SDERROOT	ERRFILE+3*, ERRFILE+4, ERRCHK+1
SDERROR	ERRFILE~, ERRFILE+2, ERRFILE+4, DATA~, START+2~, START+5*, START+6, START+7
SDI	START+2~, START+5*
SDMSG	START+2~, START+7
SDPAGE	START+2~, START+3, HDR+1, HDR+2, HDR+4
SDSECT	START+2~, START+6*, START+7
SDTEXT	ERRFILE+1~, ERRFILE+4
SDTYPE	ERRFILE+1~, ERRFILE+2, ERRFILE+3, ERRFILE+4, DATA+1~, DATA+4, START+2~, START+6, START+7
U	ERRFILE+4, TEST+5
Y	DATA+1~, DATA+2, DATA+3, DATA+4, DATA+5, TEST+1~, TEST+4, TEST+5, TEST+6, PRINT+1~ , PRINT+5
>> ZTDESC	QUE+4*
>> ZTQUEUED	PRINTQ
>> ZTRTN	QUE+4*
ZTSK	PRINT+1~, QUE+3!, QUE+5, QUE+6

Name	Field # of Occurrence
$T(@SDERROR	DATA+2
$T(ERRORS+SDI	START+5

Customize PDF page

Package: Scheduling

Routine: SDAPIER

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
^%ZIS	PRINT+3
^%ZISC	PRINTQ
^%ZTLOAD	QUE+5
START^SDAPIER	PRINT+4
PAUSE^VALM1	HDR+1