Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SDAPIER

Package: Scheduling

Routine: SDAPIER


Information

SDAPIER ;ALB/MJK - Outpatient API/Error Processing ; 22 FEB 1994 11:30 am

Source Information

Source file <SDAPIER.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 7

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

External References

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

Interaction Calls

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

Label References

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(@SDERROR DATA+2
$T(ERRORS+SDI START+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items |  All