Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDAPIER

SDAPIER.m

Go to the documentation of this file. 
  1. SDAPIER ;ALB/MJK - Outpatient API/Error Processing ;22 FEB 1994 11:30 am
  1.  ;;5.3;Scheduling;**27,586**;08/13/93;Build 28
  1.  ;
  1. ERRFILE(SDERROR,SDATA) ; -- file error
  1.  N SDTEXT,SDTYPE,I,SDERDAT
  1.  S SDERDAT=$$DATA(SDERROR),SDTYPE=$P(SDERDAT,";",3)
  1.  S (I,@SDERROOT@(SDTYPE))=$G(@SDERROOT@(SDTYPE))+1
  1.  S @("SDTEXT="_$P(SDERDAT,";",5)),@SDERROOT@(SDTYPE,I)=SDERROR_U_SDTEXT
  1.  Q
  1.  ;
  1. ERRCHK() ; -- check to see if error ; >1000 are warnings
  1.  Q $G(@SDERROOT@("ERROR"))>0
  1.  ;
  1. DATA(SDERROR) ; -- get error parameters
  1.  N Y,SDTYPE
  1.  S Y=$TEXT(@SDERROR)
  1.  S:Y="" Y="???? ;;E;ERROR;""ERROR HANDLING PROBLEM"""
  1.  S SDTYPE=$P(Y,";",3),$P(Y,";",3)=$S(SDTYPE="E":"ERROR",SDTYPE="W":"WARNING",1:"UNKNOWN")
  1.  Q Y
  1.  ;
  1. TEST ; -- test message
  1.  N Y,ERROR,SDATA
  1.  S SDATA="ONE^TWO^THREE^FOUR^FIVE"
  1.  F  R !,"Enter error#: ",ERROR:DTIME Q:"^"[ERROR  D
  1.  . S Y=$$DATA(ERROR)
  1.  . S @("Y="_$P(Y,";",5)),Y=ERROR_U_Y
  1.  . W !,Y
  1.  Q
  1.  ;
  1. PRINT ; -- print list of errors
  1.  N Y,%ZIS,POP,ZTSK
  1.  W !,">>> Print API Error code Table",!
  1.  S %ZIS="PMQ" D ^%ZIS I POP G PRINTQ
  1.  I '$D(IO("Q")) D START^SDAPIER G PRINTQ
  1.  S Y=$$QUE
  1. PRINTQ D:'$D(ZTQUEUED) ^%ZISC Q
  1.  ;
  1. START ; -- print error table
  1.  U IO
  1.  N SDI,SDATA,SDERROR,SDSECT,SDMSG,SDTYPE,SDASH,SDPAGE,SDERDAT
  1.  S $P(SDASH,"-",IOM)="",SDPAGE=1,SDATA="1 Parameter^2 Parameter^3 Parameter"
  1.  D HDR
  1.  F SDI=2:1 S SDERROR=+$TEXT(ERRORS+SDI) Q:SDERROR=9999  D
  1.  . S SDERDAT=$$DATA(SDERROR),SDTYPE=$P(SDERDAT,";",3),SDSECT=$P(SDERDAT,";",4),@("SDMSG="_$P(SDERDAT,";",5))
  1.  .W !?1,SDERROR,?10,SDTYPE,?25,SDSECT,!?5,"Message: ",SDMSG,!,SDASH
  1.  .I ($Y+6)>IOSL D HDR
  1. STARTQ Q
  1.  ;
  1. HDR ; -- print header
  1.  I SDPAGE>1,$E(IOST,1,2)="C-" D PAUSE^VALM1
  1.  W @IOF,?25,"Outpatient API Error Code Table",?73,"Page: ",SDPAGE,!!
  1.  W !,"Code #",?10,"Type of Code",?25,"Section Affected",!,SDASH
  1.  S SDPAGE=SDPAGE+1
  1.  Q
  1.  ;
  1. QUE() ; -- que job
  1.  ; return: did job que [ 1|yes   0|no ]
  1.  ;
  1.  K ZTSK,IO("Q")
  1.  S ZTDESC="Outpatient API Error Table",ZTRTN="START^SDAPIER"
  1.  D ^%ZTLOAD W:$D(ZTSK) "   (Task: ",ZTSK,")"
  1.  Q $D(ZTSK)
  1.  ;
  1. ERRORS ; -- errors and warning messages
  1.  ;;type;section;message
  1. 1 ;;E;BASIC;"No event data array."
  1. 2 ;;E;BASIC;"Patient DFN [#"_+SDATA_"] is not valid."
  1. 3 ;;E;BASIC;"USER number [#"_+SDATA_"] is not valid."
  1. 4 ;;E;BASIC;"CLINIC number [#"_+SDATA_"] is not valid."
  1. 5 ;;E;BASIC;"Encounter date is null."
  1. 100 ;;E;APPT;"Not a vaild appointment date/time ["_+SDATA_"] for patient [#"_+$P(SDATA,U,2)_"]."
  1. 101 ;;E;APPT;"Patient appointment for clinic #"_+SDATA_", not clinic #"_+$P(SDATA,U,2)_", as requested."
  1. 102 ;;E;APPT;"Not a vaild appointment slot ["_+SDATA_"] for clinic. [#"_+$P(SDATA,U,2)_"]"
  1. 103 ;;E;APPT;"Current appointment status '"_$P(SDATA,U)_"' does not allow check out."
  1. 104 ;;E;APPT;"Encounter date/time ["_+SDATA_"] is greater than today. ["_DT_"]."
  1. 110 ;;E;APPT;"Encounter ien not available."
  1. 130 ;;E;CO;"Hospital Location for appointment is not a clinic. [#"_+SDATA_"]"
  1. 1100 ;;W;CO;"Appointment already checked-out."
  1. 1030 ;;W;CO;"Appointment does not need to be checked-out. (Before check-out requirement)"
  1. 1031 ;;W;CO;"Patient was an inpatient at the time of appointment. ["_+SDATA_"]"
  1. 1040 ;;W;CLASS;"Classification data passed but not required. No classification data was filed."
  1. 1041 ;;W;CLASS;"Invalid classification code passed: '"_$P(SDATA,U)_"'."
  1. 1042 ;;W;CLASS;"Classification '"_$P(SDATA,U)_"' is no longer required for this encounter."
  1. 1043 ;;W;CLASS;"Classification '"_$P(SDATA,U)_"' data is uneditable. Not updated."
  1. 1044 ;;W;CLASS;"Data for classification '"_$P(SDATA,U)_"' is invalid. [Value:'"_$P(SDATA,U,2)_"']"
  1. 1045 ;;W;CLASS;"Deleting classification data may cause encounter status not to be 'checked-out'."
  1. 1046 ;;W;CLASS;"Changing 'SC' classification data may cause encounter status not to be 'checked-out'."
  1. 1047 ;;W;CLASS;"'"_$P(SDATA,U)_"' classification data not required for this encounter. Data not filed."
  1. 1050 ;;W;PROV;"Provider #"_+SDATA_" is not a valid IEN. Data not added."
  1. 1051 ;;W;PROV;"Provider #"_+SDATA_" is not a valid IEN. Data not processed."
  1. 1052 ;;W;PROV;"Deleting provider #"_+SDATA_" was not attempted. At least one provider is required for 'checked-out'."
  1. 1060 ;;W;DX;"Diagnosis code '"_+SDATA_"' is not a valid ICD code. Data not added."
  1. 1061 ;;W;DX;"Diagnosis code '"_+SDATA_"' is not a valid ICD code. Data not processed."
  1. 1062 ;;W;DX;"Deleting diagnosis code '"_+SDATA_"' was not attempted. At least one dx code is required for 'checked-out'."
  1. 1070 ;;W;STOPS;"Invalid stop code #"_+SDATA_". Code not added."
  1. 1071 ;;W;STOPS;"No slots remain to file stop codes and CPT procedure codes."
  1. 1072 ;;W;CPT;"CPT code '"_$P(SDATA,U)_"' is not a valid code. Procedure data not added."
  1. 1073 ;;W;CPT;"The desired number of CPT code '"_$P(SDATA,U)_"' have already been filed."
  1. 1074 ;;W;STOPS;"Error occurred during add/edit backdoor filing."
  1. 1075 ;;W;STOPS;"Invalid stop code #"_+SDATA_". Code not processed."
  1. 1076 ;;W;CPT;"CPT code '"_$P(SDATA,U)_"' is not a valid code. Code not processed."
  1. 1077 ;;W;STOPS;"Stop code '"_$P(SDATA,U)_"' did not exist for encounter. Nothing to delete."
  1. 1078 ;;W;CPT;"The number of CPT code '"_$P(SDATA,U)_"' to delete was larger than what was entered for encounter."
  1. 9999 ;;