©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SDAPIER ;ALB/MJK - Outpatient API/Error Processing ; 22 FEB 1994 11:30 am
Source file <SDAPIER.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| Registration | 1 | PAUSE^VALM1 |
| Scheduling | 1 | START^SDAPIER |
| 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 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| 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 |