MCARAP2.m

MCARAP2 ;WASH ISC/SAE-MEDICINE AUTO INSTRUMENT INTERFACE SUMMARY PRINT ;7/25/94  07:45

 ;;2.3;Medicine;;09/13/1996

 ;

QMARK W @IOF,"Choose S, U, or A to select report, or ^ to exit",!,"Enter Patient's name, or press return for all Patients"

 W !,"   E.G. (LAST or LAST,FIRST or LAST,FIRST MI)"

 W !!,"TEST DATE:  Date test was perfomed"

 W !,"FIRST TRANS:  Date/time first transferral attempt of record was made"

 W !,"LAST TRANS:  Date/time last transferral attempt was made"

 W !,"PATIENT:  Patient name as transmitted from Instrument System"

 W !,"SSN:  ID transmitted from Instrument System"

 W !,"TRIES:  Number of times individual record's transferral was attempted"

 W !,"ERR:  Reason for failure to pass DHCP validity checks"

 W !!,"Error codes indicate record transferrral attempt was unsuccessful:",!,?5,"D",?10,"Date and/or Time transmitted were not valid"

 W !,?5,"S",?10,"SSN lookup in DHCP Patient File was unsuccessful",!,?5,"N",?10,"Name transmitted does not match name in DHCP Patient File"

 W !,?5,"L",?10,"ECG File Load attempt was unsuccessful"

 W !,?5,"M",?10,"Machine Diagnosis was null"

 W !,?5,"P",?10,"Provider lookup was unsuccessful"

 W !!,"At end of report is a statistical tally of total number of ""LAST TRANS"" attempts",!,"  made for requested category during designated date range"

 ;W !!,"Record transferral attempts within only the past month are available"

 Q

 ;

QMARK2  ;Displays definitions of integer error codes

 W @IOF,!!,"Error codes >50 indicate record transferrral attempt was unsuccessful:",!!,?5,"51",?10,"Date is a null data field"

 W !,?5,"51",?10,"Time is a null data field"

 W !,?5,"52",?10,"Date/Time not DD-MON-YYYR@HH:MM",!,?5,"53",?10,"Date/Time rejected by %DT"

 W !,?5,"54",?10,"Social Security Number is not numeric",!,?5,"54",?10,"Social Security Number is a null data field"

 W !,?5,"55",?10,"Social Security Number not in patient file",!,?5,"56",?10,"Name does not match patient file"

 W !,?5,"57",?10,"Name is a null data field",!,?5,"58",?10,"ECG record not filed"

 W !,?5,"59",?10,"ECG record undefined-Diagnosis not filed",!,?5,"60",?10,"ECG record undefined-Medication not filed"

 W !,?5,"62",?10,"Diagnosis is a null data field"

 W !,?5,"63",?10,"Interpreted By is a null data field"

 W !,?5,"64",?10,"Interpreted By does not match name in New User file"

 Q

MCARAP2   ;WASH ISC/SAE-MEDICINE AUTO INSTRUMENT INTERFACE SUMMARY PRINT ;7/25/94  07:45

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

QMARK      WRITE @IOF,"Choose S, U, or A to select report, or ^ to exit",!,"Enter Patient's name, or press return for all Patients"

 +1        WRITE !,"   E.G. (LAST or LAST,FIRST or LAST,FIRST MI)"

 +2        WRITE !!,"TEST DATE:  Date test was perfomed"

 +3        WRITE !,"FIRST TRANS:  Date/time first transferral attempt of record was made"

 +4        WRITE !,"LAST TRANS:  Date/time last transferral attempt was made"

 +5        WRITE !,"PATIENT:  Patient name as transmitted from Instrument System"

 +6        WRITE !,"SSN:  ID transmitted from Instrument System"

 +7        WRITE !,"TRIES:  Number of times individual record's transferral was attempted"

 +8        WRITE !,"ERR:  Reason for failure to pass DHCP validity checks"

 +9        WRITE !!,"Error codes indicate record transferrral attempt was unsuccessful:",!,?5,"D",?10,"Date and/or Time transmitted were not valid"

 +10       WRITE !,?5,"S",?10,"SSN lookup in DHCP Patient File was unsuccessful",!,?5,"N",?10,"Name transmitted does not match name in DHCP Patient File"

 +11       WRITE !,?5,"L",?10,"ECG File Load attempt was unsuccessful"

 +12       WRITE !,?5,"M",?10,"Machine Diagnosis was null"

 +13       WRITE !,?5,"P",?10,"Provider lookup was unsuccessful"

 +14       WRITE !!,"At end of report is a statistical tally of total number of ""LAST TRANS"" attempts",!,"  made for requested category during designated date range"

 +15      ;W !!,"Record transferral attempts within only the past month are available"

 +16       QUIT 

 +17      ;

QMARK2    ;Displays definitions of integer error codes

 +1        WRITE @IOF,!!,"Error codes >50 indicate record transferrral attempt was unsuccessful:",!!,?5,"51",?10,"Date is a null data field"

 +2        WRITE !,?5,"51",?10,"Time is a null data field"

 +3        WRITE !,?5,"52",?10,"Date/Time not DD-MON-YYYR@HH:MM",!,?5,"53",?10,"Date/Time rejected by %DT"

 +4        WRITE !,?5,"54",?10,"Social Security Number is not numeric",!,?5,"54",?10,"Social Security Number is a null data field"

 +5        WRITE !,?5,"55",?10,"Social Security Number not in patient file",!,?5,"56",?10,"Name does not match patient file"

 +6        WRITE !,?5,"57",?10,"Name is a null data field",!,?5,"58",?10,"ECG record not filed"

 +7        WRITE !,?5,"59",?10,"ECG record undefined-Diagnosis not filed",!,?5,"60",?10,"ECG record undefined-Medication not filed"

 +8        WRITE !,?5,"62",?10,"Diagnosis is a null data field"

 +9        WRITE !,?5,"63",?10,"Interpreted By is a null data field"

 +10       WRITE !,?5,"64",?10,"Interpreted By does not match name in New User file"

 +11       QUIT